Spaltenanzahl variabel
21.09.2016 10:14:23
Thomas
ich benutze das untenstehende Makro um meine Listbox zu füllen.
nun verändert sich jedoch die einzulesende Spaltenanzahl.
kann mir jemand helfen ich möchte gern diesen teil
aBereich = .Range("A1:Q" & lLetzte)
des Makros so zu verändern das es variabel ist. Mal natürlich dumm von mir gezeigt
aBereich = .Range("A1:Columns.Count" & lLetzte)
habt schon mal recht vielen dank für euer interesse an meinem Problem.
liebe grüsse thomas
Sub sechster_versuch()
Dim lLetzte As Long ' Listbox füllen mit mehr wie 10 Spalten
'Dim rBereich As Range
Dim aBereich As Variant
Dim lZeile As Long
Dim vTemp As Variant
Application.ScreenUpdating = False
ListBox1.Clear
'TextBox17.Value = Date
With Tabelle1
lLetzte = .Cells.SpecialCells(xlCellTypeLastCell).Row
aBereich = .Range("A1:Q" & lLetzte)
For lZeile = 1 To UBound(aBereich, 1)
aBereich(lZeile, 2) = Format(aBereich(lZeile, 2), "hh:mm:ss")
aBereich(lZeile, 5) = Format(aBereich(lZeile, 5), "hh:mm:ss")
Next
End With
With ListBox1 ' Abstände der Spalten zueinander
.ColumnCount = UBound(aBereich, 2)
.List() = aBereich
'.ColumnHeads = True
End With
End Sub