Eintrag aus Listbox kopieren
27.02.2017 11:48:30
Guesa
Bräuchte mal wieder Eure Hilfe
Mit folgendem Code befülle ich eine Listbox
Private Sub UserForm_Initialize()
With ListBox1
.ColumnCount = 5
.ColumnWidths = "150pt; 150pt; 80pt; 20pt; 50pt"
.List = Sheets("Test").Range("B4:F20").Value
End With
End Sub
Tabelle 1 in A1:E1 kopiert wird, also beim nächsten klick überschrieben wird.
Hab mir schon die Recherche durchgelesen aber da find ich immer nur das die Einträge untereinander geschrieben werden.
Schon mal ein Dankeschön für Eure Hilfe
Gruß, Guesa und an allen Jecken ein Helau und Alaaf