Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
24.04.2024 11:06:38
WENN; zwischen zwei Daten
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1868to1872
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
1868to1872
1868to1872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Nur gefilterte Zellen kopieren

VBA - Nur gefilterte Zellen kopieren
18.02.2022 16:19:26
Chris
Hallo Zusammen,
ich habe folgende Frage:
Ich möchte von Tabellenblatt "A" den Inhalt von 3 Spalten in Tabellenblatt "B" per Makro kopieren - fortlaufend immer in die nächste leere Spalte.
Auf einer der im Tabellenblatt "A" liegt ein Filter auf den zu kopierenden Werten - mit folgendem Code werden sowohl gefilterte wie aus ausgefilterte Werte kopiert - ich möchte allerdings nur Werte kopieren die sichtbar sind:
Dim vaAltData As Variant
Dim shtNew As Worksheet
Dim iLastColNo As Integer
Set shtNew = Tabelle15
'Load Alt data into array
vaAltData = Range("Alt_Data")
'Load last column number with data in Excel_new sheet
iLastColNo = Range("last_column_with_data").Value2
'Paste Alt data in New sheet after last non-empty column
shtNew.Cells(1, iLastColNo + 1).Resize(UBound(vaAltData, 1), UBound(vaAltData, 2)) = vaAltData
Danke für eure Hilfe und gutes Wochenende,
Chris

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

Betreff
Datum
Anwender
Anzeige
AW: VBA - Nur gefilterte Zellen kopieren
18.02.2022 16:29:24
Nepumuk
Hallo Chris,
benutze die Copy-Methode, die kopiert nur die sichtbaren Zeilen.
Gruß
Nepumuk
AW: VBA - Nur gefilterte Zellen kopieren
18.02.2022 16:48:48
Chris
Hallo Nepumuk,
danke für den Hinweis, ich habe das probiert und in einem neuen Tabellenblatt klappt das auch.
Nur ist mein Kopiervorgang etwas komplizierter und ich weiß nicht wie das in VBA mit Copy-Paste Formulieren soll aber:
Es sollen immer die gleichen Spalten kopiert werden, das einfügen soll jedoch immer mit zwei Leerspalten dazwischen erfolgen.
Also kopiere Spalte A+B (Tabelle 1) in Spalte D+E in Tabelle 2, kopiere dann wieder A+B Tabelle 1 in Spalte G+F von Tabelle2.
Dieser Vorgang funktioniert mit dem Code unten, nur eben mit allen Zellen. Ist eine Anpassung - nur der letzten Einfügezeile nicht möglich?
'Paste Alt data in New sheet after last non-empty column
shtNew.Cells(1, iLastColNo + 1).Resize(UBound(vaAltData, 1), UBound(vaAltData, 2)) = vaAltData
Danke für deine erneute Info und viele Grüße
Chris
Anzeige
AW: VBA - Nur gefilterte Zellen kopieren
18.02.2022 16:50:33
Jürgen
ThisBook.Worksheets("Übersicht").Range("A1:" & strErg & lzeil).AutoFilter Field:=23, Criteria1:="OK", Operator:=xlFilterValues
'Sendungsnummer B
ThisBook.Worksheets("Übersicht").Range("B1:B" & lzeil).Copy
ThisBook.Worksheets("Auswertung").Range("A20").PasteSpecial xlPasteValues
'Empfänger Name E
ThisBook.Worksheets("Übersicht").Range("E1:E" & lzeil).Copy
ThisBook.Worksheets("Auswertung").Range("B20").PasteSpecial xlPasteValues
'Empfänger PLZ F
ThisBook.Worksheets("Übersicht").Range("F1:F" & lzeil).Copy
ThisBook.Worksheets("Auswertung").Range("C20").PasteSpecial xlPasteValues
'Empfänger Ort G
ThisBook.Worksheets("Übersicht").Range("G1:G" & lzeil).Copy
ThisBook.Worksheets("Auswertung").Range("D20").PasteSpecial xlPasteValues
'Liefertermin Datum Soll J
ThisBook.Worksheets("Übersicht").Range("J1:J" & lzeil).Copy
ThisBook.Worksheets("Auswertung").Range("E20").PasteSpecial xlPasteValues
Ich mach das auf diese Weise
Anzeige
AW: VBA - Nur gefilterte Zellen kopieren
18.02.2022 17:07:21
Nepumuk
Hallo Chris,
mach es nach diesem Muster. Du musst nur noch die Schleife für den Filterwechsel einbauen:

Public Sub Test()
With ActiveSheet.AutoFilter.Range
Call Range(.Cells(1, 1), .Cells(.Rows.Count, 2)).Copy
End With
With Tabelle15
If IsEmpty(.Cells(1, 1).Value) Then
Call .Cells(1, 1).PasteSpecial(Paste:=xlPasteValues)
Else
Call .Cells(1, .Columns.Count).End(xlToLeft).Offset(0, 3).PasteSpecial(Paste:=xlPasteValues)
End If
End With
End Sub
Gruß
Nepumuk
AW: VBA - Nur gefilterte Zellen kopieren
18.02.2022 18:03:51
Chris
Hallo Nepumuk,
vielen Dank für das schnelle Feedback, ich bin jetzt offline, werde aber Anfang der Woche ausprobieren und nochmal Feedback geben.
Schönes Wochenende,
Chris
Anzeige
AW: VBA - Nur gefilterte Zellen kopieren
22.02.2022 07:45:32
Chris
Hallo Nepumuk,
ich hab es in die Originaldatei eingebaut und es funktioniert perfekt. Vielen Dank für deine Hilfe!
Chris
AW: VBA - Nur gefilterte Zellen kopieren
18.02.2022 16:35:25
Jürgen
...Worksheets("DeinSheet").Range("A1:Z" & lzeil).AutoFilter Field:=23, Criteria1:="OK", Operator:=xlFilterValues
... Worksheets("DeinSheet").Range("A1:Z" & lzeil).Copy
...Worksheets("Ziel").Range("A20").PasteSpecial xlPasteValues
ich mach das so in meinem Sheet

319 Forumthreads zu ähnlichen Themen

Nur sichtbare Zellen addieren (Spezialfall)
Nicolas

Hallo Zusammen
Ich möchte gern nur die Werte in sichtbaren Zellen addieren. Mit der Nettosummenformel geht das aber nicht, weil bei meiner Problemstellung es kein zusammenhängender Bereich ist, sondern die Werte in Zellen der Spalten A, C, E, G... stehen.
Kann dieser VBA-Code evtl. an...
04.11.2008 14:06:00
Thread-ID: 1021622
6 Beiträge
Anzeige
Alle Zeilen löschen mit Spaltenbedingung ?
alexander

Hallo,
wie ist es möglich das mir ein Makro alle Zeilen löscht wo in Spalte G nichts steht. Das Makro sollte in Zeile 5 beginnen zu laufen.
Danke,
Alex
16.09.2009 10:37:32
Thread-ID: 1103140
7 Beiträge
Zeilen über Inputbox einfügen (variabel) | Herbers Excel-Forum
Ewald Sadowski
Hallo
habe ein Makro um Zeilen über Inputboxen einfügen zu können.
Zuerst wird abgefragt, ab wo eingefügt werden soll, und dann wieviel Zeilen eingefügt werden sollen.
Das Makro läuft durch, es kommt keine Fehlermeldung aber es passiert auch nichts.
Was ist da falsch??
Makro:...
24.01.2010 14:47:22
Thread-ID: 1132453
32 Beiträge
Anzeige
Filter nicht möglich
otto

Hi,
warum kann anhängende Tabelle nicht richtig gefiltert werden ?
Ich habe die Zellen schon als Datum formatiert, es werden aber nur die Einträge bis zum 13.05.08 angezeigt.
https://www.herber.de/bbs/user/69835.zip
Gruß
otto
01.06.2010 10:27:19
Thread-ID: 1159749
2 Beiträge
Ausgeblendete Zellen Löschen
Marta

Hallo ,
habe da ein kleines Makro Problem. Und zwar wende ich den Spezialfilter an, u lasse mir alle Duplikate ausblenden, nun möchte ich bei den ausgeblendeten Zeilen (nur in Spalte U) den Inhalt löschen.
Sub ausgeblendeteLöschen() Dim Letzte As Long Dim I As Long lastRowU = Range("U"...
07.06.2010 11:36:51
Thread-ID: 1160632
7 Beiträge
VBA schreiben zum Zeilen löschen
Ludwig

Hallo,
vielleicht weis einer was ich hier schreiben müsste?
siehe Anhang
https://www.herber.de/bbs/user/72108.xls
Danke im voraus
lg Ludwig
31.10.2010 18:51:40
Thread-ID: 1184622
7 Beiträge
VBA - zeilen aus liste löschen
susanne

Hallo,
ich bin nicht sonderlich fit in VBA und habe ein kleines problem.
Ich lasse aus einem arbeitsblatt zuerst die daten in ein weiteres blatt kopieren, dann sollen die zeilen gelöscht werden, in denen in der spalte 4 nichts (0) drinsteht. Das funktioniert mit dem skript unten auch. j...
11.11.2010 15:33:12
Thread-ID: 1186332
3 Beiträge
VBA Zeilen löschen beschleunigen
Frank

Hallo zusammen,
ich benutze folgenden Code, um Zeilen zu löschen, in deren Spalte "B" ein Wert steht, der in einer zuvor definierten Range auftaucht:
Sub cust_del() Application.ScreenUpdating = False Dim i As Integer Dim lz As Integer Worksheets("ergebnis").Activate lz = Range("A4").End...
29.03.2011 11:11:55
Thread-ID: 1208031
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
6
6
31
1
1
6
6
2
3
6
2
1
3
3
2
7
3
1
2
24
5
7
8
15