Clever-Excel-Forum

Guten Abend zusammen,

ich möchte gerne in einer Tabelle Kundendaten eingeben und hab da im VBA eine Userform erstellt. die Eingabe der Daten funktioniert auch schon ganz gut. nun sind da noch 3 Commandbuttons eingefügt und einer davon heißt "Leeren", also es sollen alle einträge in den Textboxen geleert werden, was aich funktioniert, aber ich hab für die Anrede und den Titel je eine Combobox und leider hab ich nichts gefunden wo erklärt wird, was in meinem Code eintragen muss, damit die beiden auch mit geleert werden.

Ich hatte schon in meinem Code nach [Case "Testbox": ctrElement ""] eine Zeile mit [Case "Combobox": ctrElement = ""] eingefügt, aber das ging nicht.

Ich hoffe ihr könnt mir helfen.

Vielen Dank schonmal im voraus.

Robbie1985

Anbei noch der Code:

Private Sub Leeren_Click()

'Alle Eingaben in der Userform löschen

Dim ctrElement As Control

For Each ctrElement In Controls
Select Case TypeName(ctrElement)
Case "TextBox": ctrElement = ""
End Select
Next

End Sub

Code:
ComboBox1.Clear

Danke für die schnelle Antwort. In welche Zeile muss ich das einfügen???

Das mit dem Leeren der Combobox habe ich hinbekommen. Leider leert es nicht nur meine Eingabe, sondern die ganze Auswahl. Z.B. in der Auswahl der Combobox habe ich "Herr", "Frau", "Firma". Nun wähle ich "Herr" aus und wenn ich dann auf Leeren klicke möchte ich, das die Auswahl noch bleibt, nur die Eingabe "Herr" geleert wird.

Code:
Private Sub Leeren_Click()

'Alle Eingaben in der Userform löschen

Dim ctrElement As Control

  For Each ctrElement In Controls

    Select Case TypeName(ctrElement)

      Case "TextBox": ctrElement = ""

    End Select

  Next

  Kunden_anlegen.Anrede.Clear

  Kunden_anlegen.Titel.Clear

End Sub

Hallo,

versuche es mal so:

Code:
Private Sub CommandButton1_Click()

ComboBox1.Text = ""

End Sub

Vielen Dank hat geklappt :)

Robbie1985

MisterBurns

Robbie1985

Robbie1985

Klaus-Dieter

Robbie1985