Rowsource dynamisch

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

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

Rowsource dynamisch

Rowsource dynamisch von Michael vom 16.09.2004 08:29:57

AW: Rowsource dynamisch - von Udo am 16.09.2004 10:56:39
- AW: Rowsource dynamisch - von Michael am 16.09.2004 13:12:29
  - AW: Rowsource dynamisch - von Udo am 16.09.2004 13:22:31
    - AW: Rowsource dynamisch - von michael am 16.09.2004 13:43:14
      - AW: Rowsource dynamisch - von Udo am 16.09.2004 15:39:19
        
        AW: Rowsource dynamisch - von Michael am 17.09.2004 07:41:23

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