Bereich + Zelle Kopieren
08.12.2005 18:02:14
Peter
habe mal wieder eine Frage, womit ich nicht klar komme.
Habe die unten stehende Formel aus dem Service Bereich, die mir einen Bereich kopiert. Möchte nun aber das er ein Datum zusätzlich das in B9 steht kopiert.
Habt Ihr vielleicht einen Tip, oder wie die Anweisung auszusehen hat?
Würde mich freuen
Gruß Peter
Sub kopieren()
Dim rng As Range
Dim lngE As Long
Set rng = Sheets("Tabelle1").Range("F21:r41")
With Sheets("Tabelle2")
lngE = .Range("B65536").End(xlUp).Row + 1
rng.Copy .Cells(lngE, 2)
End With
End Sub
Anzeige