leider hänge ich schon wieder fest und komme nicht weiter.
Eigentlich sollte der unten stehende Code-Teil die Werte aus verschiedenen Arbeitsblättern zusammen suchen und dann auf dem Zielblatt untereinander schreiben. Aber leider werden die Werte auf dem Zielblatt nur überschrieben und nicht untereinander gesetzt.
Scheinbar aktualisiert sich die Variable "LetzteZelle" nicht nach jedem Schreibvorgang.
Dim vntSh As Variant
Dim Index2 As Integer
Dim LetzteZelle As Long
vntSh = Array(s1b, s1c, s1d, s1e)
LetzteZelle = IIf(IsEmpty(Sheets(s1f).Cells(Rows.Count, 2)), _
Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
For Index2 = 0 To UBound(vntSh)
With Sheets(vntSh(Index2))
.Range("A1:I" & .Cells(Rows.Count, 8).End(xlUp).Row). _
Copy Sheets(s1f).Cells(LetzteZelle + 1, 1)
End With
Next
Kann mir jemand helfen?Gruß Holger