ich sitze schon seit ner weile an dem Problem, dass ich in meiner Userform (Maske) 2 Pflichtfelder aktivieren will. Werden Sie nicht ausgefüllt, ist ein Speichern nicht möglich und es kommt eine Fehlermeldung das die Felder ausgefüllt werden müssen. Aktuell kommt auch die Fehlermeldung, aber es speichert trotzdem. Ich habe auch schon in anderen Foren überall nachgeschaut, aber es hat mir nicht meinen Fehler aufgezeigt.
Ich hoffe Ihr könnt mir Weiterhelfen als Profis hier :). Unten auch mein kompletter Code. Vielen Dank im Voraus für eure Hilfe.
Private Sub Speichern_Click()
'Erste freie Zelle ausfindig machen
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
'Station von
ActiveSheet.Cells(last, 1).Value = Eingabemaske.StationStart.Value
'Station bis
ActiveSheet.Cells(last, 3).Value = Eingabemaske.StationEnde.Value
'Stationsposition
ActiveSheet.Cells(last, 5).Value = Eingabemaske.Stationsposition.Value
'Endgerät
ActiveSheet.Cells(last, 7).Value = Eingabemaske.Endgeraet.Value
'Stationsname
ActiveSheet.Cells(last, 9).Value = Eingabemaske.Sationsname.Value
'Visu-Art
ActiveSheet.Cells(last, 17).Value = Eingabemaske.VisuArt.Value
'Feldbereich
ActiveSheet.Cells(last, 19).Value = Eingabemaske.Feldbereich.Value
'Ausgabetext
ActiveSheet.Cells(last, 27).Value = Eingabemaske.Ausgabetext.Value
'Codebedingungen
ActiveSheet.Cells(last, 35).Value = Eingabemaske.Codebedingungen.Value
'Planungsnummer
ActiveSheet.Cells(last, 39).Value = Eingabemaske.Planungsnummer.Value
'AVO-Text
ActiveSheet.Cells(last, 43).Value = Eingabemaske.AVOText.Value
'Exotenalarm
ActiveSheet.Cells(last, 53).Value = Eingabemaske.Exotenalarm.Value
'Bemerkungen
ActiveSheet.Cells(last, 55).Value = Eingabemaske.Bemerkungen.Value
'I-Strang
ActiveSheet.Cells(last, 63).Value = Eingabemaske.IStrang.Value
'Endgerät Text leer anzeigen wenn
If Endgeraet.Value = "Bitte wählen Sie aus" Then
Endgeraet = ""
ActiveSheet.Cells(last, 7).Value = Eingabemaske.Endgeraet.Value
End If
'Exotenalarm Text leer anzeigen wenn
If Exotenalarm.Value = "Exotenalarm vorhanden?" Then
Exotenalarm = ""
ActiveSheet.Cells(last, 53).Value = Eingabemaske.Exotenalarm.Value
End If
'I-Strang Text leer anzeigen wenn
If IStrang.Value = "Ist ein I-Strang vorhanden?" Then
IStrang = ""
ActiveSheet.Cells(last, 63).Value = Eingabemaske.IStrang.Value
End If
'Station bis Pflichtfeld
If StationStart.Value = "" Then
MsgBox "Bitte tragen Sie eine Anfangsstation ein!", vbExclamation
StationStart.SetFocus
Cancel = True
Exit Sub
End If
'Station von Pflichtfeld
If StationEnde.Value = "" Then
MsgBox "Bitte tragen Sie eine Anfangsstation ein!", vbExclamation
StationEnde.SetFocus
Cancel = True
Exit Sub
End If
Unload Eingabemaske
End Sub