Hallo,

dadurch, dass der Beitrag in einer Zeile erfolgt ist, kann der Code nicht richtig interpretiert werden:

Sub TEST()
    Sheets("ABC").Activate
    'Nächste leere Zeile bestimmen
    NextRow = Cells(Rows.Count, 3).End(xlUp).Row + 1
    
    'Den Namen übertragen
    Cells(NextRow, 3) = Eingabefeld1.Text
    Cells(NextRow, 5) = Eingabefeld2.Text
    Cells(NextRow, 6) = Eingabefeld3.Text
    'Kostenart auswählen
    
    If XXX Then
        Cells(NextRow, 4) = "xxx"
        If YYY Then
            Cells(NextRow, 4) = "yyy"
            If ZZZ Then
                Cells(NextRow, 4) = "zzz"
                'Sicherstellen, dass ein Name eingegeben wird
                If Eingabefeld1.Text = "" Then
                    Ans = MsgBox("Text", vbOKOnly + vbInformation)
                    Exit Sub
                End If
                If Eingabefeld3.Text = "" Then
                    Ans = MsgBox("Text", vbOKOnly + vbInformation)
                    Exit Sub
                End If
                
                'Sicherstellen, dass Eingabefeld3 eine Zahl ist
                If IsNumeric(Eingabefeld3) Then
                    Eingabefeld3.Text = ""
                    OptionUnknown = True
                Else
                    Ans = MsgBox("Text", vbOKOnly + vbInformation)
                    Exit Sub
                End If
                'Steuerelemente für die nächste Eingabe löschen
                Eingabefeld1.Text = ""
                OptionUnknown = True
                Eingabefeld1.SetFocus
                Eingabefeld2.Text = ""
                OptionUnknown = True

End Sub

Bei dieser Interpretation fehlen einige "end if"-Anweisungen.

Die Variablen XXX und YYY werden nicht definiert oder zugewiesen.

LG, Ben