Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Combobox Namen per VBA erstellen

Forumthread: Combobox Namen per VBA erstellen

Combobox Namen per VBA erstellen
Herbert
Schönen Vormittag!
Ich möchte den Inhalt einer Combobox auslesen. Den Name der Combobox will ich aber zusammensetzen per VBA, da es deren mehrere gibt.
So geht es nicht:
BoxName = "BlattNr" & "9" 'Zusammenstellen des Combobox.Namens, "9" steht für div Comobox-Nummern
Faktor = Val(BoxName.text) 'Auslesen des Inhaltes.
Wer weiß eine Löasung?
Herbert
Anzeige
AW: Combobox Namen per VBA erstellen
06.03.2012 10:08:53
Rudi
Hallo,
wo sind die CB? Tabelle oder Userform?
Gruß
Rudi
AW: Combobox Namen per VBA erstellen
06.03.2012 10:29:33
Herbert
CB liegt auf einem Tabellenblatt.
AW: Combobox Namen per VBA erstellen
06.03.2012 10:29:37
Herbert
CB liegt auf einem Tabellenblatt.
Anzeige
AW: Combobox Namen per VBA erstellen
06.03.2012 10:52:04
Rudi
Hallo,
Schema:
Sub tttt()
Dim i, s As Object
For i = 1 To 5
Set s = Sheets("Tabelle2").Shapes("Combobox" & i)
MsgBox s.DrawingObject.Object.Value
Next
End Sub

Gruß
Rudi
AW: Combobox Namen per VBA erstellen
06.03.2012 17:25:15
Herbert
Danke! Funktioniert
Gruss
Herbert
AW: Combobox Namen per VBA erstellen
06.03.2012 10:16:00
hary
hallo Herbert
wenn die Cbo auf einem Formular liegt.

Dim Faktor
Dim i As Integer
i = 1
Faktor = Controls("BlattNr" & i).Text 'Auslesen des Inhaltes.
MsgBox Faktor

gruss hary
Anzeige
AW: Combobox Namen per VBA erstellen
06.03.2012 11:04:22
Andre
Hallo Herbert
In einem Sheet mache ich das über die OLEObjects Collection, Object liefert dann das Combobox Object.
Ich denke, das funktioneirt nur bei Active-X Controls, bin mir aber nicht sicher.
z.B. so:
Dim wsSheet as Worksheet
Dim BoxName as String
Dim Faktor as String
Set wsSheet = worksheets("DerNameDeinesSheets")
BoxName = "BlattNr" & "9"
Faktor = wsSheet.OLEObjects(BoxName).Object.value
Probier es mal aus.
Grüße
André
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige