Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Image
BildScreenshot zu Image Image-Seite mit Beispielarbeitsmappe aufrufen

Rowsource dynamisch

Betrifft: Rowsource dynamisch von: Michael
Geschrieben am: 16.09.2004 08:29:57

Hallo zusammen,

ich möchte einen Bereich in einer Tabelle bestimmen (anf, bis fert) und diesen dann als Rowsource für eine Listbox (lsbBer) bestimmen.

Ich habe ein Beispiel aus der Recherche abgewandelt:

Dim strwks As String
Dim strsuch As String
Dim anf As Range
Dim fert As Range

strwks = ActiveSheet.Name
strsuch = comboMonat.Value


For Each c In Sheets(strwks).Range("I1:I900")
If c.Value = strsuch Then
Set anf = c.Offset(9, 5) 'Anfang Bereich
Set fert = c.Offset(22, 6) 'Ende Bereich
lsbBer.RowSource = Range((anf), (fert))
lsbBer.Visible = True
End If
Next
End Sub


Leider funktioniert es nicht. Kann mir jemand sagen, was ich falsch mache?
Der Bereich wird nicht erkannt.

Vielen Dank im voraus


Michael

  


Betrifft: AW: Rowsource dynamisch von: Udo
Geschrieben am: 16.09.2004 10:56:39

RowSource verlangt einen String:

lsbBer.RowSource = Range((anf), (fert)).Address

Udo


  


Betrifft: AW: Rowsource dynamisch von: Michael
Geschrieben am: 16.09.2004 13:12:29

Hallo Udo,


danke für deine Antwort. Ich bekomme die Meldung:

Die Methode 'Range' für das Objekt_Global ist fehlgeschlagen.


Hast du vielleicht noch einen Vorschlag?


Vielen Dank nochmals

Michael


  


Betrifft: AW: Rowsource dynamisch von: Udo
Geschrieben am: 16.09.2004 13:22:31

Ggf. fehlt der Blattname.

Udo


  


Betrifft: AW: Rowsource dynamisch von: michael
Geschrieben am: 16.09.2004 13:43:14

Hallo Udo,

wenn ich den Blattnamen eingebe:

lsbBer.RowSource = Sheets("Galvanik").Range((anf), (fert)).Address

Jetzt sagt er :Anwendungs- oder objektorientierter Fehler



Gruß

Michael


  


Betrifft: AW: Rowsource dynamisch von: Udo
Geschrieben am: 16.09.2004 15:39:19

lsbBer.RowSource = "Galvanik!" & Range((anf), (fert)).Address

Udo


  


Betrifft: AW: Rowsource dynamisch von: Michael
Geschrieben am: 17.09.2004 07:41:23


Hallo Udo,

jetzt kommt wieder :Methode für das Global-Objekt fehlgeschlagen.

Ich denke, ich werde die Sache anders angehen.


Trotzdem nochmals vielen Dank für Deine Ausdauer und Hilfe.



Gruß

Michael


 

Beiträge aus den Excel-Beispielen zum Thema "Rowsource dynamisch"