Hallo VBA Profis,
eine frage würde mich sehr über Hilfe freuen.
Dafür bedenke ich mich im vorraus.
ich habe den Code unten und will die Daten aus dem Array meArea2
in ein Tabellenblatt einfügen ab der zeile 2 also A2
Aber irgendwie schaffe ich es nicht.
habe es schon mit
Vorlage.Worksheets("Daten2_erster").Range(Cells(2, 1), Cells(loArCount, 100)) = WorksheetFunction.Transpose(meArea2))
versucht aber leider klappt das nicht.
Könnt ihr mir sagen warum oder woran es liegt und was ich machen könnte ?
'Hier mein code mit dem ich die Einzelnen zeilen einlese in das Array
If frm_Auswertung.chb_erst2.Value = True Then
loArCount = 0
For X = 0 To UBound(meArea1)
'suche code
Set gZelle = Datendatei.Worksheets("erster").Columns("A:A").Find(meArea1(X))
If gZelle Is Nothing Then
'leer nicht gefunden in Tabelle erster
Else
ReDim Preserve meArea2(loArCount)
meArea2(loArCount) = Datendatei.Worksheets("erster").Rows(gZelle.Row)
loArCount = loArCount + 1
End If
Next
End If
'und hier müsste der oder die zeilen aus dem Array wieder in ein anderes tabellenblatt eingefügt werden.
Danke gruß Chris