Kopieren und einfügen wenn beschrieben dann rechts
Eva-Maria
Ich brauche wiedermal eure hilfe. Ich habe zwei Tabellenblätter und möchte vom "CHF" Tabellenblatt Daten in das "Jan" Tabellenblatt kopieren. Wenn nun das Jan Tabellenblatt in dieser Zeile schon etwas eingetragen hat dann sollte es eine Zeile nach rechts eintragen. Wie muss nun mein Makro lauten?
Sub Makro4()
Selection.Copy
Sheets("Jan").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("CHF").Select
Range("A8:A13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Jan").Select
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Viel dank für eure Mühen.
Grüsse Eva-Maria
Anzeige