If Makro funktioniert nicht
12.04.2024 09:56:51
Simon1602
If ob_niedrig.Value = False And ob_mittel.Value = False And ob_hoch.Value = False Then
MsgBox "Es sind nicht alle Pflichtfelder gefüllt! Wählen Sie einen Einheitspreis aus!"
Exit Sub
ElseIf txb_Einheit.Value = "m2" And txb_Laenge.Value = "" Or txb_Breite.Value = "" Then
MsgBox "Es sind nicht alle Pflichtfelder gefüllt! Füllen Sie Länge und Breite korrekt aus!"
Exit Sub
ElseIf txb_Einheit.Value = "m3" And txb_Laenge.Value = "" Or txb_Breite.Value = "" Or txb_Hoehe.Value = "" Then
MsgBox "Es sind nicht alle Pflichtfelder gefüllt! Füllen Sie Länge, Breite und Höhe korrekt aus!"
Exit Sub
ElseIf txb_Einheit.Value = "lm" And txb_Laenge.Value = "" Then
MsgBox "Es sind nicht alle Pflichtfelder gefüllt! Füllen Sie die Länge korrekt aus!"
Exit Sub
End If
Anzeige