Danke für die Beispieldatei, damit kann man weiter arbeiten.
Feststellung(en):
Zelle A1 enthält eine Formel. Das Ergebnis der Formel wird über einen SVERWEIS mit Suchkriterium aus B1 gebildet.
Wird B1 geändert und die Formel liefert als Ergebnis "Start", dann soll gedruckt werden.
Vorschlag:
=> Wir reagieren auf Änderungen in B1, und prüfen dann den Inhalt von A1 auf "Start"
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
|