VBA - Laufzeitfehler 424 beim Aufruf von User Form

[SteBen]

Guten Morgen zusammen,

ich stehe vor folgendem Problem.

Ich habe ein UserForm erstellt, das mittels des folgenden Codes entsprechend eine Schlagwortsuche ergeben soll.

Code:

Private Sub UserForm_Initialize()

Load UserForm1

Dim lngZeile As Long
Dim lngZeileMax As Long
Dim lngZ As Long

With Me.ListBox1
.ColumnCount = 3
.ColumnWidths = "120;120;150"
.Font.Size = 14
End With

With tbl_Idee
lngZeileMax = .Range("C" & Rows.Count).End(xlUp).Row

For lngZeile = 8 To lngZeileMax

Me.ListBox1.AddItem .Range("C" & lngZeile).Value
Me.ListBox1.Column(1, lngZ) = .Range("E" & lngZeile).Value
Me.ListBox1.Column(2, lngZ) = .Range("F" & lngZeile).Value
lngZ = lngZ + 1

Next lngZeile

End With

Me.TextBox1.Font.Size = 14

End Sub

Ich möchte das UserForm mittels Comand button wie folgt aufrufen:

Code:

Private Sub CommandButton2_Click()

Load UserForm1
UserForm1.Show

End Sub

Beim Klick auf den Button erhalte ich jedoch immer einen Laufzeitfehler 424. Wenn ich den Code des UserForm step by step durchgehe, dann bekomme ich genau in dieser Zeile einen Laufzeitfehler:

Code:

lngZeileMax = .Range("C" & Rows.Count).End(xlUp).Row

Hat jemand eine Idee, woran das liegen könnte?

Vielen Dank vorab,
viele Grüße

[StefanB]

Moin SteBen,

Code:

lngZeileMax = .Range("C" & .Rows.Count).End(xlUp).Row

Probier mal. ;o)

[SteBen]

Moin Stefan,

danke für Deine Antwort. Fehler besteht weiterhin.

Folgende Info habe ich noch im CmdButton Code entdeckt, vielleicht hilft das weiter..?

[StefanB]

eigentlich reicht nur UserForm1.Show 

[volti]

Hallo SteBen,

der Code an sich funktioniert bei mir, ist also ok.

Der Laufzeitfehler besagt, "Objekt erforderlich" und deutet daruf hin, dass es das Blatt "tbl_Idee" nicht gibt.

viele Grüße
Karl-Heinz

[SteBen]

Hallo Volti,

danke für Deine Antwort. Ich verstehe den Fehler trotzdem nicht, denn das Tabellenblatt "Idee" gibt es ja...

Anbei mal meine Beispieldatei.

Vllt. könnt Ihr mir mit dem Code helfen.. Ich möchte eine Schlagwortsuche über das erstellte User Form bauen. Sprich, sobald ich Werte ich die Suchzeile des UserForms eingebe, sollen in der Listbox autom. passende Einträge aus dem Tabellenblatt "Idee" (Spalte C & E sollen beide in der Listbox abgebildet sein) aufgelistet & entsprechend der Eingabe immer weiter dezimiert werden.

Ich komme hier leider nicht weiter..

Danke schon mal für Euren support

Viele Grüße

[Klaus-Dieter]

Hallo,

dein Tabellenblatt heißt ja ganz einfach nur Idee, dann kannst du das im Quelltext nicht einfach tbl_Idee nennen. Richtig wäre in diesem Fall With Sheets("Idee") oder einfach With Tabelle1.

[SteBen]

Hi Klaus-Dieter,

danke für den Hinweis. Das war das Proplem.. :D

[Kuwer]

Hallo,

darauf wies Dich Karl-Heinz in #5 schon hin!

Gruß Uwe