Office: Laufzeitfehler 424 Objekt erforderlich

Hallo,

ich habe letzte Woche mit VBA angefangen, daher bin ich noch ein ziemlicher Neuling.

Kann mir einer sagen, warum ich an der Stelle (Blau markiert) immer den Laufzeitfehler (424- Objekt erforderlich) bekomme? Ich bekomme den Fehler nur, wenn ich den Makro direkt aufrufe. Wenn ich allerdings erst das VBA Editor Fenster öffne und den Makro dann ausführe, dann läuft der Makro durch ohne Fehler.

Unbenannt.png

PS: Ich weiß, dass der Code nicht gerade gut und performant ist, wollte allerdings das Makro erstmal zum Laufen bringen, bevor ich es verbesser.

:)

 

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
aussagekräftigen Dateinamen hoch.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten

 

Hi,

es wäre gut, wenn Du den Code direkt einstellen würdest. Ein Bild läßt sich schlecht nachvollziehen, mit diesen Schwärzungen erst recht.

Vermutung: an der Stelle wird die Bedingung zum ersten mal wahr, also ist der Fehler vielleicht in cell begründet. Möglicherweise ist cell nicht richtig zugewiesen. Das sieht man aber hier nicht.
Möglicherweise gibt es auch keine Tabelle4!
Also: kompletten Code, anonymisiert!
Hast Du mal darüber nachgedacht, die Begriffe, die nicht kopiert werden, auszuschließen? Vielleicht sind das ja nicht so viele. Oder eine Liste zu erstellen und die abzufragen?

 

Hiermal der verkürzte Code:

Dim i As Integer
Dim cell As Range
i = 1
For Each cell In Sheets("Pivot").UsedRange

If cell.Value = "xxxx" Then
cell.EntireRow.Copy Destination:=Tabelle4.Rows(i)
i = i + 1
End If
If cell.Value = "xxxxx" Then
cell.EntireRow.Copy Destination:=Tabelle4.Rows(i)
i = i + 1
End If
If cell.Value = "xxxxx" Then
cell.EntireRow.Copy Destination:=Tabelle4.Rows(i)
i = i + 1
End If
If cell.Value = "xxxxx" Then
cell.EntireRow.Copy Destination:=Tabelle4.Rows(i)
i = i + 1
End If
If cell.Value = "xxxxxx" Then
cell.EntireRow.Copy Destination:=Tabelle4.Rows(i)
i = i + 1
End If
If cell.Value = "xxxxx" Then
cell.EntireRow.Copy Destination:=Tabelle4.Rows(i)
i = i + 1
End If
If cell.Value = "xxxxx" Then
cell.EntireRow.Copy Destination:=Tabelle4.Rows(i)
i = i + 1
End If
If cell.Value = "xxxx" Then
cell.EntireRow.Copy Destination:=Tabelle4.Rows(i)
i = i + 1
End If
If cell.Value = "xxxxx" Then
cell.EntireRow.Copy Destination:=Tabelle4.Rows(i)
i = i + 1
End If
If cell.Value = "xxxxxx" Then
cell.EntireRow.Copy Destination:=Tabelle4.Rows(i)
i = i + 1
End If

Next cell
end sub

Hinweis: Ich habe die cell values durch Platzhalter ersetzt.

PS: Ich kann dein Vorschlag nicht umsetzen, da das eine Rohdatenliste mit knapp 12.000 Einträgen ist. Daher kopiere ich diese bestimmten Gruppen aus der Rohdatenliste heraus, weil das nur 30 stk. sind

 

Hi,

ersetze zuerst cell durch rngCell, cell ist ein reserviertes Wort!
Die ganzen .Value kannst Du auch weglassen.
Dann durchsuchst Du jede benutzte Zelle nach einem Begriff, sind die Begriffe so ungeordnet in Deiner Tabelle?
Wenn mehrere Begriffe in einer Zeile vorkommen werden mit Deinem Code die entsprechenden Zeilen auch mehrfach kopiert.
Im übrigen sind die Begriffe nicht so aussagekräftig, dass man da Betriebsinterna finden würde (IBM-Drehstuhl CMO o. IBM Migration-Server TAAS haben wohl viele)
Mache eine Liste mit den gesuchten Begriffen, evtl als Array und Dir reichen ein paar Zeilen Code.

 

mal 2 Varianten zum anschauen:
Code:

Code:

 

Danke für die schnellen Antworten!

EarlFred ich habe deine 2 Varianten mal ausprobiert und es kommt immernoch zu dem gleichen Fehler in der Zeile mit c.EntireRow.Copy Destination:=Tabelle4.Rows(i)

Kann es sein, dass der Fehler irgendwie an der Destination liegt?

 

Du hast keine Tabelle mit dem CodeName Tabelle4!
Ein Tabellenblatt kannst Du in plain Excel nur mit dem Namen, der auf dem "Tabellenreiter" steht ansprechen!
Bei VBA gibt es drei Möglichkeiten:

1. Die .Name-Eigenschaft: Worksheets("Meine Tabelle").Range("A1") [steht in der Klammer]
2. Den Code-Name: Tabelle4.Range("A1") [vor der Klammer]
3. Den Index (lfd. Nr. des Sheets, von links mit 1 beginnend) Worksheets(4).Range("A1")

Gruß Ralf

 

Vielen Dank jetzt funktioniert alles, wie ich es möchte :-).

Danke für die schnelle Hilfe!!!

 

kann es sein, dass Du meine Varianten geändert hast, indem Du Option Explicit gelöscht hast?