Excel VBA USERFORM - Befehle aus Folge 2: Kombinationsfeld, Combobox

'1. Möglichkeit:

With UserForm1.Box1

.AddItem "Berlin"

.AddItem "Hamburg"

.AddItem "München"

.AddItem "Bonn"

End With

 

 

'2. Möglichkeit:

Worksheets("Tabelle1").Activate

UserForm1.Box2.RowSource = "A2:A5"


'3. Möglichkeit:

Dim i As Integer

 

With UserForm1.Box3

For i = 1 To 20

.AddItem CStr(i)

Next

End With

'Einen der Begriffe bereits in der Combobox anzeigen:

.ListIndex = 1

 

'Einen zusätzlichen Begriff in der Combobox anzeigen:

UserForm1.Box1.Text = "Mainz"

 


Private Sub UserForm_Initialize()

 

'Die CheckBox kann die beiden Werte True und False annehmen:

Check1.Value = True

Check2.Value = False

 

End Sub

 

 

Private Sub Button_Take_Click()

 

Dim last As Integer

last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1

 

Cells(last,1).Value = Text_Name

 

'Zwei Möglichkeiten, Informationen der CheckBox ins Tabellenblatt einzutragen

If Check1.Value = True Then Cells(last,2).Value = "Ja"

If Check1.Value = True Then Cells(last,2).Value = Check1.Caption

 

'Wenn mehrere Informationen in einer Zelle stehen sollen

If Check1.Value = True Then Cells(last,2).Value = Cells(last,2).Value & " + " & Check2.Caption

 

End Sub




Auf einen Blick - Alle Folgen der VideoReihe!

Du hast ein Thema das noch nicht behandelt wurde? Lass es mich wissen :)


Jetzt abonnieren & kein Video

mehr verpassen!

Meine Arbeit unterstützen

Meine Empfehlungen

(Bücher und mehr)