in Userform mehrzeilig einlesen
Fred
Ich habe da mal wieder ein Problem und hoffe auf Eure Hilfe.
Ich lese über eine Listbox alle Namen der Tabellenreiter ein .
Der code funktioniert auch prima, ich würde aber gerne das die Namen
nicht alle nur in einer Spalte angezeigt werden, sondern ich würde gerne
immer 5 namen nebeneinander anzeigen lassen, da die Liste sonst so unübersichtlich lang ist.
dochleider ist der unten stehende code dafür nicht geeignet.
Weiss jemand wie man es anstellen muss das immer 5 Namen nebeneinander stehen, aber wie gesagt in 5 Column da ich wenn ich auf einen Namen doppelklicke möchte ich das der angewählte Sheet dann aktiviert wird.
Private Sub UserForm_Initialize()
Dim x As Long
For x = 1 To Worksheets.Count
With ListBox1
.ColumnCount = 5
.ColumnWidths = "4cm;4cm;4cm;4cm;4cm"
End With
ListBox1.AddItem Worksheets(x).Name
Next
End Sub
Grüße Fred
Anzeige