Anzeige
Archiv - Navigation
344to348
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
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

nochmal ComboBox

nochmal ComboBox
02.12.2003 10:23:50
Tatjana
Hallo,

ich würde gerne sämtliche Werte aus der Spalte E aus der
Tabelle Parameter in eine
ComboBox auf meiner Userform eintragen

Dank Anreas klappt das auch schon fast und zwar so:


Private Sub UserForm_Initialize()
Sheets("Parameter").Activate
For i = 5 To Cells(65536, 5).End(xlUp).Row
ComboBox1.AddItem (Cells(i, 5).Value)
Next
End Sub


nur das Problem dabei ist das er mir jetzt nur den Wert der letzten
gefüllten Zelle der Spalte in die comboBox schreibt wie schaff ich das er
alle gefüllten Zellen der Spalte hineinschreibt

Danke im vorraus

Tatjana


8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nochmal ComboBox
02.12.2003 10:40:59
Nepumuk
Hallo Tatjana,
versuch es mal so. Ist nämlich viel schneller.


Option Explicit
Private Sub UserForm_Initialize()
Dim varArray As Variant
Sheets("Parameter").Activate
varArray = Range(Cells(5, 5), Cells(Cells(65536, 5).End(xlUp).Row, 5))
ComboBox1.List = varArray
End Sub



Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige
AW: nochmal ComboBox
02.12.2003 10:44:11
andreas e
hallo tatjana,
habe das gerade mal nachvollzogen -
bei mir läuft es einwandfrei !
gruß
andreas e
AW: nochmal ComboBox
02.12.2003 10:49:02
Tatjana
Hab mich getäuscht er nimmt nicht nur immer die letzte gefüllte Zelle
sonder er nimmt bei mir jede gefüllte Zelle in der spalte E aber erst
ab Reihe 5
AW: nochmal ComboBox
02.12.2003 11:04:51
Nepumuk
Hallo Tatjana,
dann so:


Option Explicit
Private Sub UserForm_Initialize()
Dim i As Long
Sheets("Parameter").Activate
For i = 5 To Cells(65536, 5).End(xlUp).Row
If Trim(Cells(i, 5).Value) <> "" Then ComboBox1.AddItem Cells(i, 5).Value
Next
End Sub



Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige
AW: nochmal ComboBox
02.12.2003 11:05:51
andreas e
hallo tatjana,
ab welcher zeile soll er es denn nehmen ?

Private Sub UserForm_Initialize()
Sheets("Parameter").Activate
For i = 5 To Cells(65536, 5).End(xlUp).Row !!Hier sagst du ihm ja ab zeile 5 !!!
ComboBox1.AddItem (Cells(i, 5).Value)
Next
End Sub

übrigens ist der code von nepumuk besser geeignet !
gruß
andreas e
AW: Danke
02.12.2003 11:16:10
Tatjana
Danke Jungs für eure Hilfe

habs hinbekommen hat funktioniert wenn ich i = 1 setze
auch wenn ich nicht ganz versteh weil ich dachte i = der index der
Spalte naja is auch egal auf alle Fälle Funktioniert so

Nochmal danke

Tatjana
Anzeige
AW: Danke
02.12.2003 11:25:29
andreas e
hallo tatjana,
der cells befehl lautet cells(zeile,Spalte) im gegensatz zur range.
Deine Spalte e wird ja durch die feste 5 definiert !
i ist nix anderes als der zähler der zeilenweise die spalte e durchgeht.
gruß
andreas e
AW: Danke
02.12.2003 12:05:10
Tatjana
Danke verstehs jetzt

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige