Hallo Forum,
mit nachfolgendem, aufgezeichnetem Makro sollen:
1. die alten Einträge aus Tabelle 1 gelöscht werden
2. im Blatt Guenther mit Autofilter gefilterte Daten über
- Bearbeiten / Gehe zu / Inhalte / nur sichtbare Zellen
- kopieren
- in Tabelle1 einfügen.
Leider kommt beim Ausführen des Makros die Fehlermeldung: bei markieren von nicht angrenzenden Zellen kann dieser Befehl nicht ausfeführt werden.
Der Debugger zeigt die Zeile "Selection.Copy" (im Makro mit *** gekennzeichnet):
aufgezeichnetes Makro:
___' alte Einträge löschen
___ Sheets("Tabelle1").Select
___ Range("A1:W500").Select
___ Selection.ClearContents

___' gefilterte Daten - nur sichtbare Zellen kopieren und einfügen
___ Sheets("Guenther").Select
___ Range("B1:Z500").Select
___ Selection.SpecialCells(xlCellTypeVisible).Select
*** Selection.Copy
___ Sheets("Tabelle1").Select
___ Range("A1").Select
___ Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
___ False, Transpose:=False
___ Application.CutCopyMode = False
___ ActiveWorkbook.Save
Wer kann mir sagen, welche Änderung ich vornehmen muss, damit das Makro läuft?
Günther