Combobox durch Commandbutton leeren
#1
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
Antworten Top
#2
Code:
ComboBox1.Clear
Schöne Grüße
Berni
Antworten Top
#3
Danke für die schnelle Antwort. In welche Zeile muss ich das einfügen???
Antworten Top
#4
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
Antworten Top
#5
Hallo,

versuche es mal so:

Code:
Private Sub CommandButton1_Click()
ComboBox1.Text = ""
End Sub
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
Antworten Top
#6
Vielen Dank hat geklappt :)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste