Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1252to1256
1252to1256
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
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 11:08:53
Rudi
Hallo,
wo sind die CB? Tabelle oder Userform?
Gruß
Rudi
AW: Combobox Namen per VBA erstellen
06.03.2012 11:29:33
Herbert
CB liegt auf einem Tabellenblatt.
AW: Combobox Namen per VBA erstellen
06.03.2012 11:29:37
Herbert
CB liegt auf einem Tabellenblatt.
Anzeige
AW: Combobox Namen per VBA erstellen
06.03.2012 11: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 18:25:15
Herbert
Danke! Funktioniert
Gruss
Herbert
AW: Combobox Namen per VBA erstellen
06.03.2012 11: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 12: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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum