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
Allerdings gibt es die Pflichtfelder "Artikelnummer" und "Grund"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
Wie verbinde ich das ganze?Hier noch die Datei angehängt:
https://www.herber.de/bbs/user/146051.xlsm
Vielen Dank schon mal im Voraus
LG Julian