Makro bei Verlassen des Blattes auslösen
07.10.2008 15:25:00
WalterK
der folgende Code wird per Schaltfläche aktiviert und wenn die Zelle AW25 nicht leer (also aus einer Formelberechnung "" ) ist, werden Berechnungen durchgeführt; wenn AW25 leer (also Formelergebnis ="") ist, kommt eine Msg-Box.
Was muss geändert werden, damit der Code aktiviert wird, wenn ich irgend ein anderes Blatt anklicke. Es soll also, falls ein anderes Blatt angeklickt wird geprüft werden, ob AW25 ="", wenn ja soll eine Msg-Box erscheinen und das Blatt "DN-Daten erfassen" soll nicht gewechselt werden können.
Sub Schaltfläche29_BeiKlick()
If (Worksheets("DN-Daten erfassen").Range("AW25")) = "" Then
MsgBox "In diesem Blatt sind diverse Pflichtfelder vorgegeben, " & vbLf & "die zuerst ausgefü _
llt werden müssen!", vbInformation, " Achtung: Für die Berechnung der Tabelle fehlen noch wichtige Eingaben ..."
Exit Sub
Else
If Range("AT39") "" Then
Range("CC37").GoalSeek Goal:=Range("AT39").Value, ChangingCell:=Range("BN37")
Range("CC37").GoalSeek Goal:=Range("AT39").Value, ChangingCell:=Range("BN37")
End If
If Range("AT44") "" Then
Range("CC42").GoalSeek Goal:=Range("AT44").Value, ChangingCell:=Range("BN42")
Range("CC42").GoalSeek Goal:=Range("AT44").Value, ChangingCell:=Range("BN42")
End If
End If
End Sub
Besten Dank im voraus
und Servus, Walter