Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1880to1884
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1880to1884
1880to1884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufzeitfehler 424 - Objekt erforderlich

Laufzeitfehler 424 - Objekt erforderlich
12.05.2022 10:43:09
Max
Hallo liebes Forum,
Ich habe erneut ein Problem mit dem Laufzeitfehler 424 - Objekt erforderlich. Ich habe zum Ziel, ein Listenfeld zu erstellen und über eine Suchleiste zu befüllen. Wenn ich das Makro starte öffnet er mir ohne Probleme die UserForm, wenn ich einen Wert in die Suchleiste eingebe, zeigt er mir den Laufzeitfehler 424 an. Beim Debuggen markiert er mir folgende Zeilen: 

Private Sub cmdSuchen_Click()
Dim IngZeile As Long
Dim IngZeileMax As Long
Dim i As Integer
Me.ListBox1.Clear
With tbl_Kunden
IngZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row           (diese Zeile markiert er mir)
For IngZeile = 3 To IngZeileMax
If InStr(.Cells(IngZeile, 1).Value, Me.TextBox1.Value) > 0 Then
Me.ListBox1.AddItem .Cells(IngZeile, 1).Value
Me.ListBox1.Column(1, i) = .Cells(IngZeile, 2).Value
Me.ListBox1.Column(2, i) = .Cells(IngZeile, 3).Value
Me.ListBox1.Column(3, i) = .Cells(IngZeile, 4).Value
Me.ListBox1.Column(4, i) = .Cells(IngZeile, 5).Value
Me.ListBox1.Column(5, i) = IngZeile
i = i + 1
End If
Next IngZeile
End With
End Sub
Ich wäre euch sehr dankbar, wenn ihr mir bei dem Problem weiterhelfen könntet. Verzeiht bitte außerdem etwaige Fehler innerhalb meiner Beschreibung, da ich noch ein blutiger Anfänger bin.
Viele Grüße Max

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler 424 - Objekt erforderlich
12.05.2022 10:53:52
GerdL
Moin Max,
wo und wie hast du tbl_Kunden deklariert?
Was steht im UserForm_Initialize ?
Gruß Gerd
AW: Laufzeitfehler 424 - Objekt erforderlich
12.05.2022 11:01:35
Max
Hallo Gerd,
Danke für die schnelle Rückmeldung!
tbl_Kunden ist der Codename der Tabelle.
In UserForm1_Initialize steht folgender Code:

Private Sub UserForm1_Initialize()
Dim i As Integer
With tbl_Kunden
Me.Caption = .Range("A1").Value
For i = 1 To 10
Me.Controls("Label" & i).Caption = .Cells(2, i).Value
'For i = 1 To 5
'   Me.Controls("Label" & i + 10).Caption = .Cells(2, i).Value
Next i
End With
With Me.ListBox1
.ColumnCount = 6
.ColumnWidths = "80;80;80;80;80;10"
End With
Me.TextBox1.SetFocus
End Sub
Gruß Max
Anzeige
AW: Laufzeitfehler 424 - Objekt erforderlich
12.05.2022 11:29:09
Max
Hallo Gerd,
Ich lade dir mal die vollständige Arbeitsmappe hoch. Die Daten sind selbstverständlich keine echten Kundendaten.
https://www.herber.de/bbs/user/153026.xlsm
Gruß Max
Codename <> Name
12.05.2022 11:34:50
{Boris}
Hi,
der Codename des Blattes ist Tabelle1, tbl_Kunden ist der Blattname.
Also:
With Worksheets("tbl_Kunden")
oder
With Tabelle1
VG, Boris
AW: Codename <> Name
12.05.2022 12:03:49
Max
Hallo Boris,
das hat mir weitergeholfen, ich danke dir. Jetzt zeigt er mir aber nur die Kundennummer an. Die Überschriften und die anderen Einträge zeigt es mir immer noch nicht an. Ich habe aber überall den Namen von tbl_Kunden in Tabelle1 umbenannt.
VG Max
Anzeige
Ich hab Deinen Code...
12.05.2022 12:05:25
{Boris}
Hi,
...noch gar nicht weiter angesehen. Da ich jetzt erstmal afk bin, stell ich auf offen.
VG, Boris
AW: Codename <> Name
12.05.2022 12:58:18
peterk
Hallo
Setzte in deiner Listbox den ColumnCount auf 5
Peter
AW: Codename <> Name
12.05.2022 13:34:14
Max
Hallo Peter,
ich habe den ColumnCount auf 5 gesetzt und es hat sich nicht verändert. Die Überschriften und die anderen Inhalte der ListBox werden nicht angezeigt.
VG Max
AW: Codename <> Name
12.05.2022 13:58:30
peterk
Hallo
UserForm_Initialize und nicht UserForm1_Initialize (es war auch noch ein Fehler drin, daher die ganze Sub)

Private Sub UserForm_Initialize()
Dim i As Integer
With tbl_Kunden
Me.Caption = .Range("A1").Value
For i = 1 To 10
Me.Controls("Label" & i).Caption = .Cells(2, i).Value
Next i
End With
With Me.ListBox1
.ColumnCount = 6
.ColumnWidths = "80;80;80;80;80;10"
End With
Me.TextBox1.SetFocus
End Sub
Peter
Anzeige
AW: Codename <> Name
12.05.2022 14:18:22
Max
Hallo Peter,
Vielen, vielen lieben Dank dir Peter! Du bist einsame Spitze!!
Jetzt geht es endlich nach langer Suche.
Darf ich dein umfangreiches Wissen nochmals in Anspruch nehmen und dich fragen, wie ich es schaffe, dass die Liste mir standardmäßig Werte z.B. von den letzten 20 Einträgen anzeigt?
Viele Grüße und nochmals Danke Max
AW: Codename <> Name
12.05.2022 14:39:13
peterk
Hallo

Private Sub Autofill()
Const lastEntries = 20
Dim IngZeile As Long
Dim IngZeileMax As Long
Dim i As Integer
Me.ListBox1.Clear
With tbl_Kunden
IngZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row
For IngZeile = WorksheetFunction.Max(3, IngZeileMax - lastEntries + 1) To IngZeileMax
Me.ListBox1.AddItem .Cells(IngZeile, 1).Value
Me.ListBox1.Column(1, i) = .Cells(IngZeile, 2).Value
Me.ListBox1.Column(2, i) = .Cells(IngZeile, 3).Value
Me.ListBox1.Column(3, i) = .Cells(IngZeile, 4).Value
Me.ListBox1.Column(4, i) = .Cells(IngZeile, 5).Value
Me.ListBox1.Column(5, i) = IngZeile
i = i + 1
Next IngZeile
End With
End Sub
und in die Userfrom_Initialize

Call Autofill
Me.TextBox1.SetFocus
End Sub
Peter
Anzeige
AW: Codename <> Name
12.05.2022 14:52:56
Max
Nochmals Hallo Peter,
Ich danke dir nochmals von ganzem Herzen für deine Hilfe. Du weißt gar nicht, wie sehr du mir damit geholfen hast. Bin gerade ganz baff von so viel Hilfsbereitschaft. Vielen herzlichen Dank!!
Ganz liebe Grüße Max
Listbox
12.05.2022 14:02:36
Rudi
Hallo,

Private Sub cmdSuchen_Click()
Dim IngZeile As Long
Dim IngZeileMax As Long
Dim i As Integer
  With ListBox1
.Clear
.ColumnCount = 6
End With
With Tabelle1
IngZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row
For IngZeile = 3 To IngZeileMax
If InStr(.Cells(IngZeile, 1).Value, Me.TextBox1.Value) > 0 Then
Me.ListBox1.AddItem .Cells(IngZeile, 1).Value
Me.ListBox1.Column(1, i) = .Cells(IngZeile, 2).Value
Me.ListBox1.Column(2, i) = .Cells(IngZeile, 3).Value
Me.ListBox1.Column(3, i) = .Cells(IngZeile, 4).Value
Me.ListBox1.Column(4, i) = .Cells(IngZeile, 5).Value
Me.ListBox1.Column(5, i) = IngZeile
i = i + 1
End If
Next IngZeile
End With
End Sub
Gruß
Rudi
Anzeige

300 Forumthreads zu ähnlichen Themen

Laufzeitfehler 424: Objekt erforderlich
Himmelsbach

Hallo,
Vielen Dank für die Hinweise, hat mir schon sehr weitergeholfen. Ich glaub die groben Sachen sollte ich nun auch gefunden haben, leider hänge ich noch bei folgender Funktion: Public Function readnotchbesser(schluessel As Variant) Dim sarray As Variant 'Array Dim iindex As Integ...
16.03.2010 08:51:32
Thread-ID: 1146080
8 Beiträge
Anzeige
Fehler 424 <<Objekt erforderlich>>
Roman

Hallo ihr lieben,
hoffe ihr habt ein Ausweg, bin da echt schon lange dran und finde einfach keine lösung. ;( Bin aber leider auch noch kein VBA Profi und bin noch am lernen.
Folgendes: Ich habe in ein Tabellenblatt 1 wo sich ein Lösch-Button befindet über dem es möglich sein sollte ab...
28.12.2011 14:09:05
Thread-ID: 1243744
7 Beiträge
laufzeitfehler 424 Objekt erforderlich
steffen

Guten Tag!
Ich bin Neuling in der Programmierung und bin bei nem Projekt für die Schule schnell auf ein Problem gestoßen. Und zwar möchte ich mit folgenden Programm einen Zellbereich benennen und jede einzelne Zelle dieses Bereichs auf Inhalt prüfen. Allerdings wird die definierte Variable...
23.02.2012 16:42:16
Thread-ID: 1252190
12 Beiträge
Anzeige
Laufzeitfehler '424': Objekt erforderlich/Matlab
leane

Hallo
ich habe folgende Code:
Sub runMatlab() On Error GoTo ErrorHandlerrM Dim hMatlab As Object Set hMatlab = CreateObject("Matlab.Application") 'hMatlab.Execute ("surf(peaks)") Result = hMatlab.Execute("cd D:\Sboxes\A400\06\01Planning") ML_cmd = "text1='Blockage';" Result = hMatlab...
19.09.2013 10:59:30
Thread-ID: 1331463
3 Beiträge
Problem mit Fehlermeldug Objekt erforderlich
Howard

Hallo,
habe folgendes Script ( Dank nochmal an Erich aus Kamp-Lintfort ):
Sub Zufall_24_25_Variation() Dim arB(1 To 24, 1 To 1) As Long, arE(1 To 25, 1 To 1) As Long Dim ff As Double, m1 As Long, m2 As Long, ii As Long Const mSoll As Integer = 35 Randomize Timer ff = (UBound(arB) + UBou...
05.12.2013 09:56:20
Thread-ID: 1341318
5 Beiträge
Fehler: Objekt erforderlich?
TooX

Hallo Zusammen,
folgendes Problem: Beim Ausführen des Codes, bleibt er immer an der Stelle "With TtbC.Font" hängen und meldet: "Objekt erforderlich", leider hab ich keine Ahnung wo hier das Problem liegen könnte. Sub Bla() Dim iEnde1 As Integer iEnde1 = Application.WorksheetFunction.CountI...
28.01.2014 16:35:40
Thread-ID: 1347102
9 Beiträge
VBA Fehlermeldung "Objekt erforderlich"
Mariandl

Hallo :)
Ich hab zwei Tabellenblätter (das sind die Sheets 3 und 4) und wenn im Sheet 3 in Spalte 16 was drinsteht, möchte ich, dass gewisse Zellen in der betreffenden Zeile (i) gelöscht werden und bestimmte Inhalte in Sheet 4 übertragen werden.
Das Makro wird per Klick auf einen Button...
03.02.2014 14:18:12
Thread-ID: 1347818
3 Beiträge
Laufzeitfehler 424 Objekt erforderlich
Eisert

Hallo Leute ich bekomme immer die oben genannte Fehlermeldung.
Ich habe hinter einem Tabellenblatt folgenden Code:
Private Sub ComboBoxArb1_Change() If Range("F2").Value = "" Then ComboBoxArb2.Visible = False Else ComboBoxArb2.Visible = True End If End Sup Also das geht schon mal super...
24.02.2015 14:46:08
Thread-ID: 1411223
3 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
1
6
11
6
2
4
8
2
2
1
4
3
8
6
2
3
2
9
8
7
9
2
8
2