Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
492to496
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
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige