Array erweitern
19.11.2016 18:17:10
Thomas
Hallo Excelfreunde,
ich möchte gern mein array um eine Spalte erweitern um anschliessend Zeilennummerierung reinzuschreiben. Leider bekomme ich hier
avarDaten = avarDaten.Resize(, avarDaten.Columns.Count + 1)~f~
die Fehlermeldung:
" Objekt erforderlich"
kann mir jemand zeigen wie ich es besser machen kann?
mfg thomas
ist vieleicht besser noch der ganze Code:
~f~
With tblDatenbank.Range("A1").CurrentRegion ':l100") '.CurrentRegion
If .Rows.Count <= 1 Then
avarDaten = Empty
lstData.Clear
Else
avarDaten = Intersect(.Cells, .Offset(1)).Value
'lstData.List = FormatConverter(avarDaten)
avarDaten = avarDaten.Resize(, avarDaten.Columns.Count + 1)
End If
End With
'#################################################################################
'Zeilennummer reinschreiben
Dim anzahl_zeilen As Integer, lngIndex As Integer
Dim spaltenr As Long
Dim lngCount As Long
lngCount = tblDatenbank.Cells(Rows.Count, 1).End(xlUp).Row ' Zeilen zählen
spaltenr = tblDatenbank.Cells(1, Columns.Count).End(xlToLeft).Column
For lngIndex = 1 To spaltenr ' anzahl der spalten
For anzahl_zeilen = 1 To lngCount ' anzahl der Zeilen
avarDaten(anzahl_zeilen, spaltenr + 1) = CStr(anzahl_zeilen)
Next
Next
' Daten zur kontrolle in tabelle schreiben
Tabelle10.Range("a1:z1000").Clear
Tabelle10.Range("a1:z1000") = avarDaten 'Application.WorksheetFunction.Transpose(avarDaten) 'leer
'############ zeilenzahl schreiben
End Sub
#################################################################