habe ein Makro, das mir die Daten in ein bestimmtes Tab kopiert, A6:R56.
Nun möchte ich gern, das er mir die neuen Daten daunter schreibt also in A58:R111 usw. Geht so etwa mit VBA?
Könnt Ihr mir vielleicht helfen?
Mfg Angela
Sub Datenübertrag()
'Daten kopieren
Range("A6:R56").Select
Selection.Copy
'Arbeitsblatt auswählen
Select Case [A30]
Case Is = 1
Sheets("1996").Select
Case Is = 2
Sheets("1997").Select
Case Is = 3
Sheets("1998").Select
Case Is = 4
Sheets("1999").Select
Case Is = 5
Sheets("2000").Select
Case Is = 6
Sheets("2001").Select
Case Is = 7
Sheets("2002").Select
Case Is = 8
Sheets("2003").Select
Case Is = 9
Sheets("2004").Select
Case Is = 10
Sheets("2005").Select
Case Is = 11
Sheets("2006").Select
Case Is = 12
Sheets("2007").Select
End Select
'Datum suchen
[c6].Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
Select Case [A6]
Case Is = [A6]
[A6].Select
End Select