Userform Else Bedingung
22.08.2019 10:39:46
Andreas
in meiner Userform habe ich eine Else Bedingung hinzugefügt, leider kommen jetzt nur noch Fehlermeldungen:
Private Sub CommandButton1_Click()
If (NeuerFehler > 0) And NeuerFehler.Text "" Then
For i = 9 To 46
If ws.Cells(i, 1) = "Sonstiges" Then
Wert = ws.Cells(i, fehlerspalte)
Wert = Wert + NeuerFehler.Value + 0
ws.Cells(i, fehlerspalte) = Wert
Call AddComments(Zelle:=ws.Cells(i, fehlerspalte), sComment:=Neuerfehlerbeschr)
Call SendNotesMailneuerFehler
Else
If ws.Cells(i, 1) = "Sonstiges" Then
Wert = ws.Cells(i, fehlerspalte)
Wert = Wert + 0
ws.Cells(i, fehlerspalte) = Wert
Exit For
End If
Next i
End If
End Sub
Das ist der gesamte Absatz, an dem es momentan scheitert. Ganz grob soll die Userform die Eingabe ausführen, wenn das Textfeld befüllt ist und wenn nicht in die Zelle der Fehlerspalte und der Zeile in der Sonstiges steht (Momentan in Zeile 44) eine 0 schreiben bzw. den aktuellen Wert + 0 addieren.
Zuletzt habe ich den Absatz mit der Else Bedingung eingefügt, da bei leerem Feld die 0 eingefügt werden soll.
Leider erhalte ich aber nur noch Fehlermeldungen ("Next ohne For" oder "For ohne next", wenn ich dann das "next i" in meinem Macro rausnehme) und komme nicht weiter
Ich hoffe jemand kann mir hier weiterhelfen.