Hallo zusammen,
Ich habe ein kleines Problem mit einem Makro.
Ich möchte ein Makro haben das Automatisch gestartet wird wenn der Zellenwert in D8 geändert wird. soweit ja nicht so schwer... Problem dabei ist, dass in der Zelle D8 eine Formel hinterlegt ist, und so der Zellenwert sich in dem Sinne ja nicht verändert. Villeicht hat jemad hier ja einen Lösungsansatz.
Hier einmal mein bissheriger Code mit dem ich es bissher versucht habe.
Private Sub Worksheet_Change2(ByVal Target As Range)
' Abfragen ob sich der Zellenwert in D8 Geändert hat
If Target.Address = "" Then
'Wenn die der Fall ist soll das Makro automatisch zu Punkt Alles Springen
GoTo Alles
Else: Exit Sub
End If
Alles:
If Worksheets("Tabelle1").Cells(9, 4).Value > Worksheets("Tabelle1").Cells(8, 4).Value Then
Call MsgBox("Der Gewinn pro stück liegt unter dem prozentual gefordeten Gewinn von Verkaufspreis!" & vbCrLf & vbCrLf & "Der Verkauspreis muss angepasst werden", vbOKOnly)
Else: Exit Sub
End If
End sub
Es kann auch auf einem ganz anderen weg passieren nurmuss am Ende die "Fehlermeldung" bekommen.
Danke schonmal für eure Hilfe
Grüße Niko
|