Excel VBA – Mit Autofilter ausgewählter Bereich mittels Makro kopieren

Dölf_A · 20. Februar 2019

Ich habe einen Datenbereich von N4:T286. Mit welcher Variablen kann ich im Makro den mit dem Autofilter ausgewählten Bereich jeweils auswählen bzw. festlegen, den ich dann kopieren und in einem anderen Blatt einfügen will.

Sub Makro2()

ActiveWindow.SmallScroll Down:=27

Range("N4:T269").Select

Selection.Copy

Windows("Mappe1").Activate

Range("C3").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Windows("Banca dati delle ricette_Test.xlsm").Activate

End Sub

Dölf_A

Der mit dem Autofilter ausgewählte Bereich ist im Arbeitsblatt „Tabelle1“ und wird ins Arbeitsblatt „Tabelle2“ kopiert.

Wenn ich nun den Druckbereich im Arbeitsblatt „Tabelle2“ festlege und die Befehlsschaltfläche und das Makro Private Sub Druckbereich_Click() sich ebenfalls in der Tabelle2 befindet, wird korrekt der ausgewählte Bereich markiert.

Wenn jedoch die Befehlsschaltfläche und das Makro Private Sub Druckbereich_Click() sich in der Tabelle1 befindet, so wird in der Tabelle 2 nicht der ausgewählte Bereich markiert sondern der ganze Bereich entsprechend aller Daten in Tabelle1 (N5:R290). So
werden der ausgewählte Bereich sowie 10 leere Seiten ausgedruckt.

Die Prozedur will ich in der Tabelle 1 mit der Befehlsschaltfläche und das Makro Private Sub Druckbereich_Click() ebenfalls in der Tabelle 1 auslösen

'Seite für Druck festlegen

'Wiederholungzeilen festlegen

Application.PrintCommunication = False

With ActiveSheet.PageSetup

.PrintTitleRows = "$1:$5"

.PrintTitleColumns = ""

End With

'Druckbereich festlegen und Seitenskalierung auf 95% stellen

Application.PrintCommunication = True

ActiveSheet.PageSetup.PrintArea = "n5:r" & Range("r" & Rows.Count).End(xlUp).Row

Application.PrintCommunication = False

With ActiveSheet.PageSetup

.Zoom = 95

End With

Ich werde noch 2 Fragen starten (Führt das Makro im falschen Arbeitsblatt aus / Bei Fehler „Druckdialog aufrufen“ MsgBox aufrufen). Vielleicht kannst du mir auch hier helfen.

Vielen Dank

Dölf

Claus Busch

Hallo,

auch hier gilt wieder, dass korrektes Referenzieren die Fehler verhindert.

Probiere:

Sub Druckbereich_Click()

Dim LRow As Long
With Sheets("Tabelle2")

   LRow = .Cells(.Rows.Count, "R").End(xlUp).Row

   With .PageSetup

      .PrintTitleRows = "$1:$5"

      .PrintTitleColumns = ""

      .PrintArea = "N5:R" & LRow

      .Zoom = 95

    End With

End With

End Sub

Claus

Dölf_A

Hallo Claus

Vielen Dank, nun läuft es einwandfrei.

Dölf

Claus Busch

Hallo,

du kannst den ganzen Tabellenbereich auswählen. Beim Kopieren werden nur die sichtbaren Zellen kopiert.

Claus

Dirk Kampfmeier

Hallo Karin,

das ist ein Word- und kein Excel-Makro, weshalb die Gruppe "Excel" nicht ganz passt.

Wenn ich das Makro bei mir in Word in eine Klasse kopiere, gibt es einen Kompilierfehler, weil das Ribbon-Objekt objEurekaRibbon nicht definiert ist, das Makro ist also unvollständig.

Sollte das Ribbon-Objekt bei dir an anderer Stelle definiert sein, aber in der Word-Oberfläche nicht (mehr) vorhanden sein, würde an dieser Stelle ein Fehler auftreten. Damit das Makro trotzdem mit der Fehlerbehandlung (On Error GoTo fehler) weiterläuft,
muss im VBA-Editor unter Extras / Optionen, Reiter Allgemein bei "Unterbrechen bei Fehlern" der Eintrag "Bei nicht verarbeiteten Fehler" ausgewählt sein.

Mehr fällt mir im Moment dazu nicht ein.

Viel Erfolg, Dirk

Hi,

willkommen im Windows Forum!

Excel VBA – Mit Autofilter ausgewählter Bereich mittels Makro kopieren - Similar Threads - Excel VBA –	Forum	Datum
Bereich in Excel als Bild abspeichern - VBA Makro Bereich in Excel als Bild abspeichern - VBA Makro: Hallo Zusammen, da ich immer wieder aus unterschiedlichen Excels einen Bereich als Bild abspeichern muss, habe ich versucht ein Makro zu schreiben. Wenn ich das ganze in Einzelschritten durchführe...	Microsoft Office	29. November 2024
Excel VBA / Makro Zoomen Excel VBA / Makro Zoomen: Hallo Zusammen,1.Ich würde gerne per VBA / Makro Button alle Tabellenblätter per click z.B. auf 100% Zoomen Folgenden Code Habe ich benutzt. Leider wird nur das Tabellenblatt auf 100% gesetzt...	Microsoft Office	3. Oktober 2022
EXCEL - Formel mittels Makro kopieren, jedoch mit angepasster Formel EXCEL - Formel mittels Makro kopieren, jedoch mit angepasster Formel: Liebes ForumIch arbeite zurzeit an einem Makro, mit welchem wir eine Preistabelle erweitern.Nun zu meinem Problem:Die Formel zum Kopieren der gewünschten Felder steht.Nun soll die Preisliste mit...	Microsoft Office	14. September 2022
VBA Mittels Excel Makro andere Excel Datei Öffnen in welcher die Makros sofort Aktiviert sind VBA Mittels Excel Makro andere Excel Datei Öffnen in welcher die Makros sofort Aktiviert sind: Schönen Guten Tag, Ich habe eine Excel Datei, welche über ein Makro, eine Andere Excel Datei Nennen wir sie mal Excel Datei 2 öffnet. In der Excel Datei 2 wiederum sind wieder Makros enthalten,...	Microsoft Office	31. März 2022
Excel VBA Makro "suchen und kopieren" anpassen Excel VBA Makro "suchen und kopieren" anpassen: Ich habe eine VBA Code gefunden, der gut ist, aber angepasst werden muss.Der Code erfüllt folgendes:Es erscheint eine EingabeaufforderungEr sucht in "Tabellenblatt A" in "Spalte A" einen Wert,...	Microsoft Office	11. Mai 2021
VBA Makro VBA Makro: Hallo da wir ja alle auf absehbare Zeit, etwas mehr Zeit haben werden, da ist es mein Wille mich in VBA Makro zu erlernen! Meine ersten Schrittein Excel sind grandios gescheitert! Hat jemand...	Microsoft Office	23. März 2020
VBA Makro VBA Makro: Guten Tag, ich habe folgrndes Makro geschrieben. Sub Hinweispfeil() ActiveSheet.Shapes.AddShape(msoShapeRightArrowCallout, 39, 18.75, 120.75, 61.5).Select Selection.ShapeRange.ShapeStyle =...	Microsoft Office	5. Januar 2018

Excel VBA – Mit Autofilter ausgewählter Bereich mittels Makro kopieren