Problem mit frmNamen

Private Sub cmbAbbrechen_Click()
Unload Me
End Sub

Private Sub cmbOK_Click()

Dim wks As Worksheet

Dim Zeile As Long

If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1.Value = "" Then

MsgBox " Bitte einen Namen auswählen - keine Leerzeile!"

Else

With Worksheets("Bestellungen")

Zeile = .ListObjects(1).DataBodyRange.Row + Me.ComboBox1.ListIndex

.Cells(Zeile, 2).Value = Me.Tag

Unload Me

End With

End If

End Sub

Private Sub ComboBox1_Change()

End Sub