Formular Befehl umstellen
31.05.2021 17:13:53
martinn
Ich bedanke mich schonmal im Voraus für eure tolle Hilfe!
folgendes:
Ich habe eine UserForm erstellt, mit der man einen Namen eines Produktes eingeben kann, dazu noch den Kunde, Datum usw. Alles wird per Klick in eine Datenbank gespeichert.
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_Produkt.Value
.Cells(intErsteLeereZeile, 3).Value = Me.TextBox_Kundennummer.Value
.Cells(intErsteLeereZeile, 4).Value = Me.TextBox_Monat.Value
Ich möchte gern, dass ganz normal der Produktname eingeben wird (ich weiß dass es andere Möglichkeiten gibt, will es allerdings genau so, weil es für meine Mitarbeiter wichtig ist). Wenn ich allerdings den Button zur Eingabe klicke, soll eine Messagebox erscheinen. Dort soll man mit ja oder nein auswählen Können, ob es sich um das normale Produkt handelt (Name wird ganz normal in die Datenbank eingefügt) oder ob umgerüstet wurde (Standard-Name soll nicht in Datenbank erscheinen, sondern der Name des Umgerüsteten Produktes!)
grob etwa so:
If TextBox_Produkt = "Flasche Glas" Then
MsgBox "Wurde mit Flaschenmantel auf eine Thermoflasche umgerüstet?", vbExclamation + vbYesNo, "Umrüstung?"
End If
Wie bekomme ich diesen Befehl in den Code der Messagebox eingeordnet? Oder Muss ich das schon vorher aufspalten?
Habt Ihr Ideen oder Codes? Ich weiß, ist etwas spezifisch, habe mich aber schon dusselig gesucht und bin nicht weiter gekommen.
Danke euch! LG Martinn