Listbox füllen, aber nicht mit ganzem Zellenihalt?
25.12.2006 20:50:35
Naddel
Ich habe in Spalte A1 z.B. CALL PGM P1052.h und A2 CALL PGM P1053.h und soweiter stehen. Wobei das CALL PGM immer gleich bleibt.
Wenn ich nun mit Userform1.ListBox1.RowSource = ("A1:A100") die Listbox fülle steht ja immer der ganze Text drin.
Gibt es eine Möglichkeit das CALL PGM vorne dran auszublenden, so dass es nicht angezeigt wird? Aber wenn ich den Listboxinhalt dann wieder mit
Private Sub CommandButton1_Click()
Dim arrList As Variant, lngR As Long, intC As Integer
arrList = ListBox2.List
lngR = ListBox2.ListCount
intC = ListBox2.ColumnCount
With ThisWorkbook.Sheets("eJob")
.Range(.Cells(1, 1), .Cells(lngR, intC)) = arrList
End With
End Sub
auslese dieser dann wieder ganz ausgelesen wird?
Danke für Eure Hilfe
Gruß Naddel
Anzeige