17.08.2021, 07:38
Guten Morgen zusammen,
ich stehe vor folgendem Problem.
Ich habe ein UserForm erstellt, das mittels des folgenden Codes entsprechend eine Schlagwortsuche ergeben soll.
Ich möchte das UserForm mittels Comand button wie folgt aufrufen:
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:
Hat jemand eine Idee, woran das liegen könnte?
Vielen Dank vorab,
viele Grüße
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 SubIch möchte das UserForm mittels Comand button wie folgt aufrufen:
Code:
Private Sub CommandButton2_Click()
Load UserForm1
UserForm1.Show
End SubBeim 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).RowHat jemand eine Idee, woran das liegen könnte?
Vielen Dank vorab,
viele Grüße
