Textfelder und Comboboxen leeren
22.02.2013 11:20:03
Andreas
Ich habe auf einem UserForm mehrere Comboboxen und Textfelder. Der Inhalt der Boxen und Felder wird per Commandbutton in die Zellen eingetragen.
Mit einem 2. Commandbutton lösche ich per Makro den Inhalt der Zellen wieder. Es müsste aber auch der Inhalt bzw. die Auswahl der Textfelder und Comboboxen gelöscht werden.
Ein Datumsfeld (DTPicker) ist auch noch auf dem UserForm, dessen Inhalt darf natürlich nicht gelöscht werden.
Kann mir Jemand helfen?
Makro zum Löschen des Zellinhaltes:
Sub Inhalt_löschen()
' Inhalt_löschen Makro
Range("A1:C19").Select
Selection.ClearContents
Range("A1:C1").Select
End Sub Code Commandbutton:
Private Sub CommandButton2_Click()
Call Inhalt_löschen
End Sub
Danke für die Hilfe!
mfg, Andreas
Anzeige