Spaltenende
08.09.2017 07:04:55
Antonio
folgendes:
Worksheets("Tabelle5").Activate
With ListBox1
.Clear
.ColumnCount = 14
.ColumnWidths = "30;350;0;0;0;0;0;0;30;30;30;30;30;30"
Dim arrFill As Variant
arrFill = Sheets("Tabelle5").[A2:N3000]
ListBox1.List() = arrFill
End With
wie kann ich [A2:N3000] so ändern das wenn Zeilen dazu kommen nicht jedesmal die Zahl N3000 ändern muss. Ich meine das die Zahl sich automatisch ergänzt.
Ich hoffe ich habe mein Problem gut geschildert zu haben.