Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
652to656
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
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

add item für ComboBox!

add item für ComboBox!
20.08.2005 14:51:37
Wuntschi
Hallo an alle,
wie folgt füttere ich meine ComboBoxen,
If fpc_header.ComboBox4 = "J750" Then
With fpc_header.ComboBox5
.AddItem "J750-128"
.AddItem "J750-512"
.AddItem "J750-1024"
.AddItem "J750-1024V2"
End With
end if
ich würde aber gerne das er anstatt hier die Daten bekommt
ein Tabellenblatt "Optionen" anlegen in dem dann in Spalte A für diese
Werte J750-128, J750-512, etc. je eine Zelle zu verfügung stehen.
So das wenn ich mal einen Wert dazu bekomme diesen dann in die nächste Zelle von diesem Tabellenblatt schreiben kann, und ich nicht in den VBA Code muß um einen weiteren Wert einzufügen.
Ist dieses Möglich?
Wie könnte so ein Code aussehen?
Gruß
Wuntschi

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: add item für ComboBox!
20.08.2005 15:39:52
ransi
hallo wuntschi
"..Wie könnte so ein Code aussehen?"
Vom prinizip her so:
Dim zelle As Range
Dim letzte As Range
Set letzte = Range("a65536").End(xlUp)
For Each zelle In Range(Cells(1, 1), letzte)
ComboBox1.AddItem zelle
Next
ransi
AW: add item für ComboBox!
20.08.2005 16:03:51
Wuntschi
Hallo ransi,
so sieht mein code nun aus,
If fpc_header.ComboBox4 = "J750" Then

ModulDiverseFunktion.Tabelle_Option_einschalten

Worksheets("Optionen").Select

Dim zelle As Range
Dim letzte As Range
Set letzte = Range("a65536").End(xlUp)
For Each zelle In Range(Cells(1, 1), letzte)
ComboBox5.AddItem zelle
Next
ModulDiverseFunktion.Tabelle_option_ausschalten
end if

Wenn ich nun aber J750 in der ComboBox auswähle dann,
bleibt der Debuger bei
ComboBox5.AddItem zelle
stehen.
Gruß
Swen
Anzeige
AW: add item für ComboBox!
20.08.2005 16:22:37
ransi
hallo sven
wenn die combobox5 im Worksheets("Optionen") ist müsste es gehn.
wenn nicht:
worksheets("Tabelle in der combobox5 ist").combobox5 additem zelle
ransi
AW: add item für ComboBox!
20.08.2005 16:29:41
Wuntschi
Sorry ransi,
da stand ich aber ganz schön auf der Leitung,
es stimmt der Bezug von ComboBox5 nicht!
Danke für die schnelle hilfe!
gruß
Wuntschi
es gibt schlimmeres ;-) o.T.
20.08.2005 16:31:59
ransi

50 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige