Hallo,
kann mir jemand erklären, wie ich in einem UserForm ein Dropdown-Feld mit (Text-)Einträgen fülle. Der User soll dann die Möglichkeit haben, einen Eintrag auszuwählen, der dann im Dokument an einer bestimmten Selle (Textmarke) eingefügt wird.
Für schnelle Hilfe wäre ich sehr dankbar!
Viele Grüße,
Alexandra
Hallo Alexandra
Hinzufügen:
Schau in der Hilfe unter Control „Combo“, Methode „AddItem“ nach.
Auslesen was gewählt wurde:
For int_i = 0 To lst_source.ListCount - 1
If lst_source.Selected(int_i) Then
'grabsch und treffer!
End If
Next int_i
Tschüss - Peter
Hi Alexandra,
vielleicht sind zusätzlich zu Peters Hinweisen folgende Schnipsel für Dich hilfreich:
Private Sub ListBox1_Click()
Selection.GoTo What:=wdGoToBookmark, Name:=„TextmarkenName“ 'Hier Deine Textmarke
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByLocation
.ShowHidden = False
End With
Selection.TypeText ListBox1
End Sub
Private Sub UserForm_Initialize() 'Mit dem Initialize-Ereignis wird die Listbox geladen
With ListBox1
.AddItem „Adam“
.AddItem „Ingrid“
.AddItem „Klaus“
.AddItem „Werner“
End With
End Sub
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]