Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Einträge in Userform löschen

Betrifft: Einträge in Userform löschen von: alex
Geschrieben am: 10.09.2004 13:06:02

Liebe Excelfreunde !

Ich habe versucht den nachstehenden Code in meiner Userform zu verwenden. Der Beschreibung nach, sollte mit dem Code das Löschen aller Einträge (ComboBoxen, etc) möglich sein. Nachdem ich den Code einer Schaltfläche zugewiesen habe, lässt sich nur jedes Feld einzeln per Knopfdruck löschen. Manchmal gelingt es auch mit einem Klick auf den Button.


Danke für eure Hilfe

Alex

Private Sub CommandButton2_Click()
'Achtung
'TypeName =  Case Sensitiv !!
'Checkbox wird nicht erkannt
'CheckBox dagegen schon
Dim i As Integer
Dim cb As Control
i = 0
For Each cb In Me.Controls
    Debug.Print TypeName(cb)
    Select Case TypeName(cb)
        Case "CheckBox"
            cb = False
        Case "OptionButton"
            cb = False
        Case "ListBox"
            cb.ListIndex = -1
        Case "ComboBox"
            cb = ""
        Case "TextBox"
            cb.Value = ""
    End Select
Next
End Sub

  


Betrifft: AW: Einträge in Userform löschen von: harry
Geschrieben am: 10.09.2004 13:18:19

hi,
funkt bei mir einwandfrei. heissen bei dir alle controls auch so, wie in der select case anweisung?

liebe grüße,
harry


  


Betrifft: AW: Einträge in Userform löschen von: alex
Geschrieben am: 10.09.2004 14:01:23

Hallo Harry !

Den einzelnen Feldern wurde im Fenster Eigenschaften ein Name zugewiesen!

Da ich in einer Userform mehrere Karteireiter verwende, stellt sich die Frage, ob ich jeden einzelnen Reiter mit einer Schaltfläche versehen kann, sodass die Reiter einzeln gelöscht werden können !

Gruß Alex


  


Betrifft: AW: Einträge in Userform löschen von: Willie
Geschrieben am: 10.09.2004 13:24:10

Hallo Alex
du mußt das so machen!
Dim tb As Object
For Each tb In UserForm1.Controls
If TypeName(tb) = "TextBox" Then tb.Text = ""
Next tb
Gruß

Willie


 

Beiträge aus den Excel-Beispielen zum Thema "Einträge in Userform löschen"