User Form exportiert nicht
Jeron
ich habe ein Userform erstellt. Wenn ich es aufrufe und meine Eingaben mache und auf buchen
klicke üffnet sich eine MsgBox. Wenn ich auch ok klicke sollten die Daten eigentlich exportiert werden.
Ohne die MsgBox hat das auch schon funktioniert, nur jetzt halt nicht mehr.
Mag sich bitte jemand mal den Code ansehen und mir sagen warum die Daten nicht mehr in das Tabellenblatt
exportiert werden?
Private Sub CommandButton3_Click()
'Variablen deklarieren für Msg Box
Dim Eingabewert As Byte
Eingabewert = MsgBox("Eingabe buchen?", vbOKCancel, "Buchung")
' wenn auf ok geklickt wird sollen die Werte aus dem Userform in das Tabellenblatt
' "Promotionbelegung" exportiert werden
If Eingabewert = vbYes Then
Sheets("Promotionbelegung").Cells(ComboBox1.ListIndex + 8, 2) = ComboBox2
Sheets("Promotionbelegung").Cells(ComboBox1.ListIndex + 8, 3) = TextBox2
'Code zur Formatierung für Zahlen
Sheets("Promotionbelegung").Cells(ComboBox1.ListIndex + 8, 3).Value = CLng(TextBox2. _
Text)
Sheets("Promotionbelegung").Cells(ComboBox1.ListIndex + 8, 2).Value = CLng(ComboBox2. _
Text)
With Worksheets("Jahresplanung")
Worksheets("Jahresplanung").Range("B16:C17").Select
Selection.Interior.ColorIndex = 43
Worksheets("Jahresplanung").Range("B16").Value = ComboBox1
End With
ElseIf Eingabewert = vbNo Then
MsgBox "Eingabe wird nicht gebucht"
End If
End Sub
Für jeden Hinweis bin ich total dankbar...Viele Grüße aus München,
Jeron