Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrHandler
Application.EnableEvents = False
Dim rngCell As Excel.Range
For Each rngCell In Target.Cells
Select Case rngCell.Address(0, 0)
Case "B1"
If Range("A1").Value = "Start" Then
Call Druck_1
End If
End Select
Next
SafeExit:
Application.EnableEvents = True
Exit Sub
ErrHandler:
Call MsgBox(Err.Description, vbCritical, "Fehler{'" & Me.Name & "'}: " & Err.Number, Err.HelpFile, Err.HelpContext)
GoTo SafeExit
End Sub