Wie kann ich an der Stelle hier unten das Makro dazu bringen, damit das Makro dort erst mal stoppt.
Dann muss erst etwas in die Zelle "O28" eintragen werden, oder wenn schon etwas darin steht- dies kontrollieren- um mit einer "Weiter" MSG Box das Makro weiter laufen lassen.
If MsgBox("Blattkopfdaten ändern?", vbQuestion + vbYesNo) = vbYes Then _
Sheets("Druckmenü").Select
Range("O28").Select
''''''und hier erst mal stoppen'''''
''''''und dann nach Kontrolle das Makro weiter laufen''''''
''''''am besten mit einer WEITER MSG ´''''''
'Bildschirmaktivitäten deaktivieren
Application.ScreenUpdating = False
' Blattkopf Daten Drucken
Dim WS1 As Worksheet, WS2 As Worksheet, WS3 As Worksheet, WS4 As Worksheet
Set WS1 = Worksheets("Druckmenü")
Set WS2 = Worksheets("Deckblatt")
Set WS3 = Worksheets("Startblatt")
Sub Drucke_Blattkopfdaten()
If MsgBox("Blattkopfdaten ändern?", vbQuestion + vbYesNo) = vbYes Then _
Sheets("Druckmenü").Select
Range("O28").Select
''''''und hier soll erst mal etwas ausgefüllt werden'''''
''''''und dann nach Kontrolle soll erst das Makro weiter laufen''''''
'Bildschirmaktivitäten deaktivieren
Application.ScreenUpdating = False
' Blattkopf Daten Drucken
Dim WS1 As Worksheet, WS2 As Worksheet, WS3 As Worksheet, WS4 As Worksheet
Set WS1 = Worksheets("Druckmenü")
Set WS2 = Worksheets("Deckblatt")
Set WS3 = Worksheets("Startblatt")
Set WS4 = Worksheets("Endblatt")
With WS2 '= Worksheets("Deckblatt")
.Range("A14") = WS1.Range("O28").Value
.Range("A65") = WS1.Range("O28").Value
.Range("A15") = WS1.Range("O29").Value
.Range("A66") = WS1.Range("O29").Value
.Range("A16") = WS1.Range("O30").Value
.Range("A67") = WS1.Range("O30").Value
.Range("A17") = WS1.Range("O31").Value
.Range("A68") = WS1.Range("O31").Value
.Range("C43") = WS1.Range("Q45").Value
.Range("F21:G21") = WS1.Range("R33:S33").Value
.Range("F72:G72") = WS1.Range("R33:S33").Value
.Range("F74:G74") = WS1.Range("R35:S35").Value
.Range("F23:G23") = WS1.Range("R35:S35").Value
.Range("M19:N19") = WS1.Range("Y35:Z35").Value
.Range("M70:N70") = WS1.Range("Y35:Z35").Value
.Range("F33").Formula = "=COUNTA(Bearbeiten!C:C)"
.Range("F35").Formula = "=COUNTIF(Bearbeiten!L:L,""ja"")"
.Range("F37").Formula = "=COUNTIF(Bearbeiten!L:L,""nein"")"
.......
Was müsste ich dort einfügen?
MfG Frank