Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

problem mit ListBox1.RowSource

Forumthread: problem mit ListBox1.RowSource

problem mit ListBox1.RowSource
28.09.2004 13:41:19
ray
Hallo,
ich fülle ein Listenfeld so:
Dim lR%
lR = Worksheets("List0").Cells(Rows.Count, 1).End(xlUp).Row
ListBox1.RowSource = "List0!A9:m" & lR
ListBox1.ListIndex = 1
so weit so gut,
Jetzt möchte ich aber den namen der Mappe nicht festlegen, sondern es soll der caption von Label10 sein:
Dim lR%
lR = Worksheets("" & Label10).Cells(Rows.Count, 1).End(xlUp).Row
ListBox1.RowSource = "" & Label10 & "!A9:m" & lR
ListBox1.ListIndex = 1
Label10 & "!A9:m" mag er aber nicht, gibt fehler.
Wie muß ich das schreiben?
Gruß aus Hamburg, wie solls anders sein, es regnet und die alten Weiber sind auch nicht mehr wie früher...
ray
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: problem mit ListBox1.RowSource
Ramses
Hallo
Arbeiten ohne "Option Explicit" verursacht immer Probleme :-)
"Label10" wird als Variable interpretiert, da diese leer ist kommt der Fehler
Verwende stattdessen
ListBox1.RowSource = "" & Me.Label10 & "!A9:m" & lR
Dann sollte es gehen.
Gruss Rainer
Anzeige
geht so leider nicht, folgender fehler:
28.09.2004 14:25:41
ray
Hi Rainer,
ich bekomme mit deiner Änderung folgenden fehler:
eingeschaft Rowscource konnte nicht gesetzt werden. Ungültiger Eingabewert
Watt mach ich nuh den falsch..
gruß ray
AW: geht so leider nicht, folgender fehler:
Ramses
Hallo
Was du falsch machst ?
Keine Ahnung. Zeig mal deinen Code.
Dieser Code funktioniert bei mir

Private Sub CommandButton2_Click()
rvar = 5
Me.ListBox1.RowSource = "" & Me.Label1 & "!A1:A" & rvar
Me.Repaint
End Sub

Gruss Rainer
Anzeige
AW: geht so leider nicht, folgender fehler:
28.09.2004 15:31:30
ray
mein code...
Dim lR%
lR = Worksheets("" & Me.Label10).Cells(Rows.Count, 1).End(xlUp).Row
Me.ListBox1.RowSource = "" & Me.Label10 & "!A9:m" & lR

ListBox1.ListIndex = 1
ne idee was nicht richtig ist?
gruß ray
AW: geht so leider nicht, folgender fehler:
Ramses
Hallo
so müsste es heissen
Dim lR%
lR = Worksheets(Me.Label10).Cells(Rows.Count, 1).End(xlUp).Row
Me.ListBox1.RowSource = "" & Me.Label10 & "!A9:m" & lR
Gruss Rainer
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