MsgBox nach letzter definierten Zelle
05.06.2020 12:02:18
ErikSnase
dies ist mein Porgramm- Code:
Private Sub CommandButton1_Click()
Dim Loletzte As Long, RnG As Range
With Worksheets("Tabelle1")
For Each RnG In .Range("D4:D16")
If RnG = "" Then '..
.Cells(RnG.Row, 4) = Me.TextBox1
Cells(RnG.Row, 5) = Me.TextBox5
TextBox5 1 steht
If Me.TextBox2 = "" And Me.TextBox4 = "" Then
.Cells(RnG.Row, 6) = 0
.Cells(RnG.Row, 7) = 0
.Cells(RnG.Row, 8) = 0
Else
End If
Exit For
End If
Next
End With
End Sub
Jetzt zu meiner Frage:
Wie kann man programmieren, dass wenn D16 beschrieben wurde eine MsgBox mit einer Nachricht erscheint? Weil im Moment wird nach der Zeile D16 nichts mehr eingetragen, ich würde da jetzt gerne noch eine MsgBox hinzufügen, damit der Bediener das auch mitbekommt.
Nächste Frage:
Im Moment wird, wenn man nur in TextBox5 nichts einträgt nur was in die TextBox1 zugehörige Zelle der Excel Tabelle eingetragen. Kann man irgendwie eine MsgBox erscheinen lassen, dass wenn man in TextBox1 was einträgt und in TextBox5 nichts und dann den "EIngabe"- Button Klickt eine MsgBox kommt mit "Sie müssen in TextBox5 auch was eintragen" und er dann den Wert in Textbox1 solange nicht in die Excel Tabelle einträgt, bis man was in TextBox5 reingeschrieben hat?
Hier das Programm:
https://www.herber.de/bbs/user/138045.xlsm
Ich hoffe meine Fragen sind verständlich.
Vielen Dank für eure Antworten