ihr habt mir schon ein paarmal geholfen, dafür bin ich sehr dankbar.
Mit der unten stehender Formel kopiere ich einen Datenbereich in ein anderes Tab. Hier ein kleiner Ausschnitt. In diesem Fall ist zweimal kopiert worden.
Das erste mal von Nov 05 bis 9, dass 2 mal von Nov05 bis 6. in der erstenZelle beim kopieren schreibt er mir "Nov 05" rein, er sollte aber jede Spalte das Datum setzen, hier als ? gekennzeichnet. Das Datum (hier Nov 05 ) holt er aus der Formel, es kann genau so Dez 05, Feb 06 drinstehen.
Liebe Grüße Angela
Nov 05 1 2 3 4 5
? 2 3 4 5 6
? 3 3 3 3 3 9
Nov 05 1 2 3 4 5
? 2 3 4 5 6
Sub kopieren()
Dim rng As Range, lngE As Long
Set rng = Sheets("Tabelle1").Range("F21:r41")
With Sheets("Tabelle2")
lngE = .Range("T65536").End(xlUp).Row + 1
.Cells(lngE, 19) = Sheets("Tabelle1").Range("B9")
rng.Copy .Cells(lngE, 20)
End With
End Sub