Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

Comboboxen zaehlen

Betrifft: Comboboxen zaehlen von: Ludicla
Geschrieben am: 29.08.2014 09:10:38

Hallo Profis,

wie kann ich die Anzahl von Comboboxen mit Wert grösser 1 zählen ?

Gruss Ludicla

  

Betrifft: AW: Comboboxen zaehlen von: Beverly
Geschrieben am: 29.08.2014 09:13:41

Hi Lidicla,

ComboBoxen im UserForm oder im Tabellenblatt? Falls im Tabellenblatt: Formular- oder ActiveX-Stereuelemente?


GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Comboboxen zaehlen von: Ludicla
Geschrieben am: 29.08.2014 09:27:17

Hallo Karin,

Combobox in Userform als ActiveX-Steuerelement

Gruss Ludicla


  

Betrifft: AW: Comboboxen zaehlen von: Beverly
Geschrieben am: 29.08.2014 09:33:41

Hi Ludicla,

z.B. auf diesem Weg:

   Dim ctrElement As Control
   Dim intZaehler As Integer
   For Each ctrElement In Me.Controls
      If TypeName(ctrElement) = "ComboBox" Then intZaehler = intZaehler + 1
   Next ctrElement
   MsgBox intZaehler

GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Comboboxen zaehlen von: Ludicla
Geschrieben am: 29.08.2014 10:27:53

Danke Karin

ich werde das sofort umsetzen

Gruss Ludicla


  

Betrifft: AW: Comboboxen zaehlen von: Ludicla
Geschrieben am: 29.08.2014 10:34:10

Hallo Karin,

es werden immer alle Boxen gezählt auch bei Wert Null.
Ich brauch ab nur die Boxen mit Wert grösser 1

Gruss Ludicla


  

Betrifft: AW: Comboboxen zaehlen von: Beverly
Geschrieben am: 29.08.2014 10:40:40

Hi Ludicla,

da musst du nur noch deine Bedingung einbauen:

      If TypeName(ctrElement) = "ComboBox" Then
         If IsNumeric(ctrElement) Then
            If CLng(ctrElement) > 1 Then intZaehler = intZaehler + 1
         End If
      End If

GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Comboboxen zaehlen von: Ludicla
Geschrieben am: 29.08.2014 11:29:56

Danke Karin,

hab bischen gebraucht wo genau das Biest rein muss.

schoenes Wochenende

Gruss Ludicla