hilfe für Makro
06.01.2004 17:51:43
Jürgen
Habe mir folgendes Makro für Tabellenblätter kopieren mit Rekorder aufgezeichnet.
Sub NeuesArbeitsblatt()
Sheets("Einsatzplan").Copy After:=Sheets(4)
Sheets("Einsatzplan (2)").Select
Sheets("Einsatzplan (2)").Name = "Neues Arbeitsblatt"
ActiveWindow.ScrollColumn = 9
Range("A3").Select
End Sub
möchte nun aber nicht immer vom Tabellenblatt "Einsatzplan" kopieren sondern
jeweils immer vom gerade aktiven Tabellenblatt.
Dabei soll dann eine Abfragebox erscheinen wie das neue Blatt heißen soll.
wie ist dieses zumachen.
Gruss Jürgen