Daten aus 2 Tabellen untereinanderschreiben
Nicole
ich habe schon einen Code, der mir bestimmte Spalteneinträge von einem Tabellenblatt in ein anderes (GESAMT) schreibt. Jetzt will ich nur noch, dass aus einem 3. Tabellenblatt auch die Daten in GESAMT geschrieben werden, und zwar ganz einfach unten angehängt. Irgendwie komm ich da nicht mit den Variablen zurecht, die Daten werden immer oben geschrieben, nicht am Ende angefügt. Hier der Code, der super klappt (und danach kommt meiner, der den Text unten angängen soll, es aber nicht macht):
Dim Zelle As Range
Dim X As Long
Set Zelle = rgQuelle1.Offset(X, 0)
Do Until IsEmpty(Zelle)
.....
rgGesamt.Offset(X, 0) = Zelle.Value
rgGesamt.Offset(X, 1) = Zelle.Offset(0, -19).Value
...
X = X + 1
Set Zelle = rgQuelle1.Offset(X, 0)
End Select
Loop
Nun mein Code:
Dim D As Long
D = X + 5 'oben sind noch 5 Zellen Kommentare
Set Zelle = rgQuelle1b.Offset(D, 0)
Do Until IsEmpty(Zelle)
.....
rgGesamt.Offset(D, 0) = Zelle.Value
rgGesamt.Offset(D, 1) = Zelle.Offset(0, -19).Value
...
D = D + 1
Set Zelle = rgQuelle1b.Offset(D, 0)
End Select
Loop
Was mach ich falsch? Brauch ich überhaupt zwei Variablen D+X?
Vielen Dank
Nicole