Command Button Programmieren
07.05.2021 10:45:25
Fuchss
Ich habe noch eine Kleine Schwierigkeit mit meinem Command Button in meiner Userform:
Folgender Code soll ausgeführt werden:
'Erste freie Zeile ausfindig machen
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 With
Unload Verlorene_Angebote
Wenn eines oder beide nicht ausgefüllt sind, soll mit dem oberen Code nichts in das Worksheet "Datenbank" eingetragen werden, sondern eine MessageBox erscheinen und die Userform wieder zu sehen sein, dass man die Eingabe korrigieren kann. Bisher hab ich das:
If TextBox_Artikelnummer = "" Or ListBox_Gund = "" Then
MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt!", vbCritical + vbRetryCancel
Hier noch die Datei angehängt:
https://www.herber.de/bbs/user/146051.xlsm
Vielen Dank schon mal im Voraus
LG Julian
