Hallo zusammen,
mit folgendem Code
Dim vRet As Variant
Dim lngSpalte As Long
vRet = Application.Match(CLng(Date), ActiveSheet.Rows(3), 0)
If IsNumeric(vRet) Then
lngSpalte = CLng(vRet)
ActiveSheet.Columns(lngSpalte).Copy
Sheets("Tabelle2").Select
ActiveSheet.Columns(1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
kopiere ich die ganze Spalte in ein anderes Tabellenblatt, wenn das heutige Datum gefunden wurde.
Wie muss ich den Code umschreiben, um in dieser Spalte nur die Zeilen 13 bis 63 zu kopieren und entsprechend in die Zielspalte 1 bis 51 einzufügen?
Gruß Henno