Makro läuft nur in Modul

Hallo Experten,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Vorlage_01() ' Vorlage_01 Makro Me.Unprotect "qqqqq" Dim Passwort As String Passwort = Application.InputBox(prompt:="Bitte Kennwort eingeben!", Type:=2) If Passwort "qqqqq" Then Exit Sub Sheets("Vorlage 1").Copy Sheets("KW 02").Paste Application.CutCopyMode = False Worksheets("?").Range("A3").Value = "V1" '

Option Explicit Sub Vorl_01() Vorl_Cop Sheets("Vorlage 1").Range("A5:M69"), Sheets("KW 02").Range("A5"), "V1" End Sub Sub Vorl_02() Vorl_Cop Sheets("Vorlage 2").Range("A25:M89"), Sheets("KW 02").Range("A15"), "V2" End Sub Sub Vorl_Cop(rngQuell As Range, rngZiel As Range, txtA3 As String) Dim Passwort As String Passwort = Application.InputBox("Bitte Kennwort eingeben!", Type:=2) If Passwort "qqqqq" Then Exit Sub With Sheets("KW 02") .Unprotect "qqqqq" rngQuell.Copy rngZiel .Range("A3") = txtA3 .Protect "qqqqq" End With End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro läuft nur in Modul

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread