Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Combobox und schleife?

Combobox und schleife?
04.02.2004 04:01:38
Torben
Ich habe ca 23 Combobox(en) in einer Datei und möchte nacheinander den Wert abfragen. Ich bekomme den aktuellen Zähler der Combobox über die Variable counter an mein Makro geliefert. Wie kann ich hier die combobox(zähler) abfragen?

Sub uebertrag(counter As Integer)
Dim namealles As String
'Also hier anstatt der 1 den counter
namealles = Sheets("patlist").ComboBox1.Value
msgbox namealles
End Sub

Ist das möglich?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combobox und schleife?
04.02.2004 06:33:26
GraFri
Hallo
Hier eine Möglichkeit:


'In diesem Beispiel wird die Abfrage der Comboboxen
'über ein CommandButton gestartet. Der Name aller
'anzusprechenden Comboboxen muß mit ComboBox beginnen
'(z.B.: ComboBox1, ComboBox2 ...)
Private Sub cmdAbfrage_Click()
Dim a       As Integer
For a = 1 To Sheets(1).OLEObjects.Count
    If Sheets(1).OLEObjects(a).Name Like "ComboBox*" Then
        MsgBox Sheets(1).OLEObjects(a).Name
    End If
    Next a
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Mit freundlichen Grüßen, GraFri
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige