Call XYZ wird nicht ausgeführt! Ursachenfrage

Hallo ihr lieben,
ich habe ein kleines Problem.
In einer Tabelle werden verschiedene Makros per Call aufgerufen.
Das Funktionierte bis vor 30 min auch sehr gut.
Jetzt habe ich eine "neue Sub" hinzugefügt und in dieser wird wieder mit Call eine schon vorhandene Sub aufgerufen.
Allderings wird diese Call anweisung nicht ausgeführt sondern in einer Sub (die eigentlich in der Kette weiter hinten ansteht) der Debugger aufgerufen!?.
Quasi wird der Call XYZ komplett übergangen oder ignoriert oder beides.
Wenn ich diese "neue Sub" rauslasse und die "Call Kette" so lasse wie sie war
läuft alles ohne Probleme.
Bevor ich jetzt hier alles reinticker meine Frage: was könnte das sein?
Dank schon mal
MfG
Thorben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

With Workbooks("Daten.xlsm").Worksheets("Daten") .Range("$A$1:$Z$35000").AutoFilter Field:=4, Criteria1:= _ "564222" With .AutoFilter.Range Zeile1 = .Row + 1 Zeile2 = .Row + .Rows.Count - 1 Spalte1 = .Column + .Columns.Count - 1 Spalte2 = Spalte1 - 10 End With .Range(.Cells(Zeile1, Spalte2), .Cells(Zeile2, Spalte2)).SpecialCells(xlCellTypeVisible). _ Copy With wksZiel .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll End With Application.CutCopyMode = False

Hallo Thorben,
um die Copy-Anweisung kommst du nicht herum. Wenn du einfügen willst, dann musst du ja irgendwann kopieren.
Du könntes mal folgendes probieren. Sollte funktionieren, da du ja beim PasteSpecial alles einfügst.
Die Zielzelle wird dann vorher bestimmt und der Zellbereich direkt kopiert.
Gruß
Franz

  Dim rngZiel As Range
With Workbooks("Daten.xlsm").Worksheets("Daten")
.Range("$A$1:$Z$35000").AutoFilter Field:=4, Criteria1:= _
"564222"
With wksZiel
Set rngZiel = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
With .AutoFilter.Range
Zeile1 = .Row + 1
Zeile2 = .Row + .Rows.Count - 1
Spalte1 = .Column + .Columns.Count - 1
Spalte2 = Spalte1 - 10
End With
.Range(.Cells(Zeile1, Spalte2), .Cells(Zeile2, _
Spalte2)).SpecialCells(xlCellTypeVisible).Copy rngZiel
Application.CutCopyMode = False 'ist evtl. dann nicht erforderlich

Beliebteste Forumthreads (12 Monate)

Call XYZ wird nicht ausgeführt! Ursachenfrage

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Call XYZ wird nicht ausgeführt! Ursachenfrage

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread