Makro läuft nur in Modul
29.08.2013 15:41:52
Wolfango
folgendes Makros habe ich mir zurechtgebastelt (teilw. mit Rekorder, teilw. durch manuelle Einträge:
Sub Vorlage_01()
' Vorlage_01 Makro
ActiveSheet.Unprotect "qqqqq"
Dim Passwort As String
Passwort = Application.InputBox(prompt:="Bitte Kennwort eingeben!", Type:=2)
If Passwort "qqqqq" Then Exit Sub
Sheets("Vorlage 1").Select
ActiveWindow.SmallScroll Down:=-6
Range("A5:M69").Select
Selection.Copy
Sheets("KW 02").Select
ActiveWindow.SmallScroll Down:=-12
Range("A5:A17").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A3").Select
ActiveCell.FormulaR1C1 = "V1"
Range("A3").Select
Range("A1").Select
ActiveSheet.Protect "qqqqq"
End Sub
Sub Vorlage_02()
' Vorlage_02 Makro
ActiveSheet.Unprotect "qqqqq"
Dim Passwort As String
Passwort = Application.InputBox(prompt:="Bitte Kennwort eingeben!", Type:=2)
If Passwort "qqqqq" Then Exit Sub
Sheets("Vorlage 2").Select
ActiveWindow.SmallScroll Down:=-15
Range("A5:M69").Select
Selection.Copy
Sheets("KW 02").Select
ActiveWindow.SmallScroll Down:=-12
Range("A5:A17").Select
ActiveSheet.Paste
Range("A3").Select
ActiveCell.FormulaR1C1 = "V2"
Range("A3").Select
Range("A1").Select
ActiveSheet.Protect "qqqqq"
End Sub
Sub Vorlage_03()
' Vorlage_03 Makro
ActiveSheet.Unprotect "qqqqq"
Dim Passwort As String
Passwort = Application.InputBox(prompt:="Bitte Kennwort eingeben!", Type:=2)
If Passwort "qqqqq" Then Exit Sub
Sheets("Vorlage 3").Select
ActiveWindow.SmallScroll Down:=-63
Range("A5:M69").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("KW 02").Select
ActiveWindow.SmallScroll Down:=-9
Range("A5:A17").Select
ActiveSheet.Paste
Range("A3").Select
ActiveCell.FormulaR1C1 = "V3"
Range("A3").Select
Range("A1").Select
ActiveSheet.Protect "qqqqq"
End Sub
Solange diese Makros in einem Modul stehen, funktionieren sie.
Sobald ich sie in ein Arbeitsblatt verschiebe, funktionieren sie nicht mehr. Genau das möchte ich aber tun, um arbeitsblattindividuelle Anpassungen (je Arbeitsblatt) im Makro vornehmen zu können.
(Hintergrund: die Makros sollen alternativ die Inhalte aus drei verschiedenen Vorlagen in die aktuelle Tabelle kopieren)
Besten Dank und Gruß,
Wo