Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.05.2024 07:58:34
Wie Formelberechnung trotz Blattschutz
19.05.2024 19:56:55
Mit Schaltfläche (VBAMacro) zur aktuellen Woche springen
19.05.2024 19:42:43
zeilen löschen wenn
19.05.2024 17:55:54
Problem mit Formel countif
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1904to1908
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
1904to1908
1904to1908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufzeitfehler 1004

Laufzeitfehler 1004
04.11.2022 11:57:16
Andreas
Hallo zusammen.
ich bin dabei ein kleines Makro zu schreiben, in dem Tabellenzeilen mit bestimmten Eigenschaften in ein separates Tabellenblatt kopiert werden sollen.
Ich bekomme den Laufzeitfahler 1004, Anwendungs- oder objektdefinierter Fehler.
Ich komm nach Stunden probieren nicht weiter und hoffe ganz sehr, ihr könnt die Ursache für den Fehler idendifizieren.
Folgend der Link zur Exceldatei:
https://www.herber.de/bbs/user/156005.xlsm
Über eine Hilfe wäre ich unendlich dankbar!
Viele Grüße, Andreas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler 1004
04.11.2022 12:18:47
peterk
Hallo
Verwende Option Explicit, dann wären Deine vielen Fehler sofort aufgefallen
Dein Code:

Sub kopieren()
Dim variable As String
variable = [A1]
With Sheets(variable).UsedRange
.AutoFilter Field:=11, Criterial:="HG1"                                    ' sollte Criteria1 sein
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("HG1").Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).PasteSpecial x1PasteValues   ' sollte xlPasteValues, auch fehlt der Bezug zum WS in Rows.count
Sheets(variable).UsedRange.AutoFilter
End Sub
Richtig:

Sub kopieren()
Dim variable As String
variable = [A1]
With Sheets(variable).UsedRange
.AutoFilter Field:=11, Criteria1:="=HG1"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With
With Sheets("HG1")
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End With
Sheets(variable).UsedRange.AutoFilter
End Sub
Peter
Anzeige
AW: Laufzeitfehler 1004
04.11.2022 13:05:47
Andreas
Sehr cool Peter. Vielen Dank!!!!
Option Explicit kannte ich noch nicht. Jetzt kenn ich es :)
Makro läuft, dank Dir!
Einen schönen Tag Dir noch!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige