AW: Command Button Eingabe Userformdaten
07.05.2021 11:02:20
Fuchss
Hallo Hajo,
Leider funktioniert der Code nicht.
Ich habe noch einen fehler behoben (Grund ist ListBox), aber er meckert trotzdem rum.
Hier nochmal der gesamte buttoncode:
Private Sub CommandButton_Eingabe_Click()
If TextBox_Artikelnummer = "" Then
MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt!", vbCritical + vbRetryCancel
ElseIf ListBox_Gund = "" Then
MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt!", vbCritical + vbRetryCancel
Else
Dim last
With Worksheets("Datenbank")
Dim intErsteLeereZeile As Long
intErsteLeereZeile = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
.Cells(intErsteLeereZeile, 1).Value = Me.TextBox_Artikelnummer.Value
.Cells(intErsteLeereZeile, 2).Value = Me.ListBox_Grund.Value
.Cells(intErsteLeereZeile, 3).Value = Me.TextBox_Kundennummer.Value
.Cells(intErsteLeereZeile, 4).Value = Me.TextBox_Monat.Value
.Cells(intErsteLeereZeile, 5).Value = Me.TextBox_Bemerkung.Value
End If
End Sub
Danke für deine Hilfe! :)
LG Julian