Problem mit Makro
Sebastian
ich habe ein kleines Problem mit meinem Makro. Ich habe lasse darin eine Formel berechnen, wenn diese jedoch duch 0 geteilt wird, weil besipsielsweise kein Wert in der entsprechenden Zelle steht bekomme ich eine Fehlermeldung. Wie kann ich das Makro nun umschreiben, damit dieser Fehler nicht weiter auftritt.
Anbei das Makro und eine Beispieldatei:
Private Sub ToggleButton1_Click()
Dim TB As ToggleButton
Set TB = ToggleButton1
If TB.Value = False Then
TB.Caption = "Prov.-Quote eingeben"
Tabelle2.Range("A1500") = 1
Else
TB.Caption = "Prov. absolut eingeben"
Tabelle2.Range("A1500") = 0
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Tabelle2.Range("A1500") = "1" Then
Tabelle2.Range("C5") = Tabelle1.Range("c5") * Tabelle2.Range("c6")
Tabelle2.Range("D5") = Tabelle1.Range("d5") * Tabelle2.Range("D6")
Else
Tabelle2.Range("c6") = Tabelle2.Range("c5") / Tabelle1.Range("c5")
Tabelle2.Range("D6") = Tabelle2.Range("D5") / Tabelle1.Range("D5")
End If
End Sub
https://www.herber.de/bbs/user/71984.xls
Vielen Dank vorab für eure Hilfe
Sebastian