Übergabe einer Range an eine Sub

26/03/2008 - 18:32 von Martin | Report spam
Hallo,

mit folgendem Code erhalte ich den Fehler "Objekt erforderlich"

Private Sub Workbook_Open()
Dim Bereich As Range
With Worksheets("Tabelle1")
Set Bereich = .Range("A3:A10")
End With
ComboBox1_laden (Bereich) ' < hier kommt der Fehler, bevor er in die
Sub geht
End Sub


Die Sub ComboBox1_laden (Bereich1 As Range)

befindet sich im Modul1

Wenn ich "As Range" entferne, geht er in die Sub rein und der Fehler "Objekt
erforderlich" kommt, wenn Bereich1 zum ersten mal angesprochen wird.
Habe schon folgendes probiert:
ComboBox1_laden (Worksheets("Tabelle1").Bereich) und einige Varianten
ComboBox1_laden (Range(A3:A10")) und einige Varianten
Bereich als globale Variable vereinbart

Scheinbar akzeptiert er Bereich nicht als Objekt oder benötigt ein
übergeordnetes Objekt für Bereich, aber welches?

Vielen Dank für jeden Tipp


Gruß

Martin
 

Lesen sie die antworten

#1 Peter Schleif
26/03/2008 - 19:49 | Warnen spam
Martin schrieb am 26.03.2008 18:32:

ComboBox1_laden (Bereich) ' < hier kommt der Fehler, bevor er in die



Call ComboBox1_laden(Bereich)


Peter

Ähnliche fragen