mit der folgenden Funktion:
Function Kopieren()
Range(ActiveCell.Offset(0, -6), ActiveCell.Offset(0, 7)).Select
Selection.Copy
Sheets("Navigation").Select
Selection.PasteSpecial Paste:=xlValues
Selection.PasteSpecial Paste:=xlFormats
ActiveCell.Offset(1, 0).Select
Sheets("Calc Audi").Select
ActiveCell.Offset(1, 6).Select
End Function
... kopiere ich Daten ins Navigationsblatt hinein. Mein Problem ist nun, das ich die Daten nicht nur vom Blatt "Calc Audi" sondern auch aus anderen Tabellen kopieren möchte. Also wenn die Daten aus dem Blatt "Calc VW" kopiert werden, dann springt die Funtkion ins Navigationsblatt und kopiert sie dort hin, jetzt soll aber der Rücksprung ins "Calc VW" Blatt geschehen.
Wie kann ich die Zeile "Sheets("Calc Audi").Select" nun variabel halten? Also "Sheets(" Tabelleblatt aus dem die Daten stammen ").Select"
Danke für Euro Hilfe im voraus ...
Grüße
Falk