Ich habe eine Userform die den Inhalt eines Textfeldes auf mind. 12 Stellen Länge kontrollieren soll und dann in die nächste freie Zelle ab "A7" eintregen soll. Bei zu kurzer Eingabe soll ein Fehlerfenster kommen (dieses Funktioniert).
Leider wird aber der Inhalt der Textfeldes nicht eingetragen.
Mein bisheriger Code lautet:
Private Sub CommandButton1_Click()
Z = Range("A7").End(xlDown).Row + 1
If Z > 65000 Then Z = 2
If Len(TextBox1.Text) = 12 Then
Cells(Z, 1) = TextBox1
Else: MsgBox "Nummer Fehlerhaft!", 48, "Achtung"
End If
Dim ctrElement As Control
For Each ctrElement In Controls
Select Case TypeName(ctrElement)
Case "TextBox": ctrElement = ""
Case "CheckBox": ctrElement = False
Case "ListBox", "ComboBox"
If ctrElement.RowSource = "" Then
ctrElement.Clear
Else
ctrElement.ListIndex = -1
End If
End Select
Next
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub
wo liegt der Fehler und warum?Die Codeschnipsel wurden zusammengegoogelt aber nicht alles verstanden!
Danke für Eure Mühe!
mfG der Hans