Live-Forum - Die aktuellen Beiträge
Datum
Titel
05.11.2025 15:53:39
Zeilenweise addieren ohne ausgeblendete Werte
05.11.2025 15:46:39
Excel Formel mit mehreren Bedingungen
05.11.2025 13:56:33
Anzeige mehrere Bildern über Zelle mit einem Bild performant
05.11.2025 09:23:36
Bedingte Formatierung Geburtstage
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen _ Spaltenbereiche kopieren

Forumthread: Zeilen _ Spaltenbereiche kopieren

Zeilen _ Spaltenbereiche kopieren
20.11.2022 21:40:05
Christian
Hallo Profis,
ich habe ein Problem, ich möchte ein Makro auf der Tabelle1 Starten, dass mir in Tabelle KALK einen Autofilter setzt, dass funktioniert auch..:-) aber bei der Kopierfunktion
der gefilterten Daten, kopiert er die Zellen der ersten Tabelle "Startseite" auf der ich gerade stehe.... wenn ich nochmals "ThisWorkbook.Worksheets("KALK") für die Kopierfunktion setze ThisWorkbook.Worksheets("KALK").Range("G12:G5000,P12:Q5000").Select bringt er einen Fehler... Schön wäre es auch, wenn die Spaltenlänge die ich kopieren möchte dynamisch wären :-) , als von G12 bis ..... und P12 bis Q ........ :-)
Vielleicht kann mir jemand helfen. Vielen Dank im Voraus
Christian 

Sub Export2()
' Autofilter setzen und lösen
ThisWorkbook.Worksheets("KALK").Range("D11").AutoFilter
' Filtern: Bestimmter Werte
ThisWorkbook.Worksheets("KALK").Range("D11").AutoFilter 13, Array("8", "7", "3", "2"), xlFilterValues
Range("G12:G5000,P12:Q5000").Select
Selection.Copy
Sheets("EXPORT").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues
End Sub
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen _ Spaltenbereiche kopieren
21.11.2022 10:04:02
ChrisL
Hi
https://www.herber.de/vbabasics/0009.html 

Sub Export2()
Dim letzteZeile As Long
With ThisWorkbook.Worksheets("KALK")
.Range("D11").AutoFilter
letzteZeile = .Cells(.Rows.Count, 13).End(xlUp).Row
.Range("D11").AutoFilter 13, Array("8", "7", "3", "2"), xlFilterValues
.Range("G12:G" & letzteZeile & ",P12:Q" & letzteZeile).Copy
End With
Worksheets("EXPORT").Range("C2").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
cu
Chris
Anzeige
AW: Zeilen _ Spaltenbereiche kopieren
21.11.2022 12:02:40
Christian
Super, vielen vielen Dank... Funktioniert
Danke
Christian
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige