VBA - listbox füllen Tabellenzeile mit leerzellen

28/07/2008 - 11:22 von Claudia | Report spam
Liebe Excel-Helferlein,

ich möchte eine Listbox mit der Zeile 14 aus meiner Tabelle füllen.
Verwende dafür

Private Sub UserForm_Initialize()
'Listenfelder mit Bezeichnungen der Zeile 14 aus Tabelle test
füllen
Sheets("test").Activate
MeinListbox.Column = Range("B14").CurrentRegion.Rows(1).Value
End Sub

Klappt auch, allerdings befinden sich in der Zeile 14 auch Leerzellen
(muss auch so bleiben). Nun hört das Einlesen meiner Zeile
logischerweise bei der ersten Leerzelle auf.
Ich probiere hier schon eine Weile rum, bekomme es aber nicht hin.

Die Bereiche der Zeile sind B14:DO14, DS14:EA14, EC14:EH14
Die Leerzellen sollen in der Listbox nicht angezeigt werden.

Bin mit meinem Latein àh VBA am Ende, wàre schön, wenn mir jemand
weiterhelfen könnte.

Vielen Dank für Eure Hilfe
Grüße
Claudia
 

Lesen sie die antworten

#1 Wolfgang Habernoll
28/07/2008 - 12:20 | Warnen spam
Hallo Claudia

"Claudia" schrieb im Newsbeitrag
news:
Liebe Excel-Helferlein,

ich möchte eine Listbox mit der Zeile 14 aus meiner Tabelle füllen.
Verwende dafür

Private Sub UserForm_Initialize()
'Listenfelder mit Bezeichnungen der Zeile 14 aus Tabelle test füllen
Sheets("test").Activate
MeinListbox.Column = Range("B14").CurrentRegion.Rows(1).Value
End Sub

Klappt auch, allerdings befinden sich in der Zeile 14 auch Leerzellen
(muss auch so bleiben). Nun hört das Einlesen meiner Zeile
logischerweise bei der ersten Leerzelle auf.
Ich probiere hier schon eine Weile rum, bekomme es aber nicht hin.

Die Bereiche der Zeile sind B14:DO14, DS14:EA14, EC14:EH14
Die Leerzellen sollen in der Listbox nicht angezeigt werden.

Bin mit meinem Latein àh VBA am Ende, wàre schön, wenn mir jemand
weiterhelfen könnte.




da dir der Bereich (B14:EH14) bekannt ist könntest du es ja mal so versuchen

Private Sub UserForm_Initialize()
'
Dim rngQuell As Range
Dim rngI As Range
'
Set rngQuell = Worksheets("Test").Range("B14:EH14")
'
For Each rngI In rngQuell
If rngI <> "" Then MeinListbox.ListBox1.AddItem rngI
Next

End Sub


mfG
Wolfgang Habernoll

[ Win XP Home SP-2 , XL2002 ]

Ähnliche fragen