Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 13:31:41
alle Tabellblätter als csv exportieren - Verzeichnis wählen
23.04.2024 13:19:18
Daten aus externer Datei als Bereich übernehmen... ?
23.04.2024 12:57:21
Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1720to1724
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
1720to1724
1720to1724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gefiltere Werte kopieren

gefiltere Werte kopieren
28.10.2019 15:34:09
Janet
https://www.herber.de/bbs/user/132817.xlsm
Hallo zusammen,
ich habe eine Tabelle mit Rohdaten. In dieser Tabelle filtere ich eine bestimmte Spalte und kopiere dann Werte aus anderen Spalten dieser Rohdaten in eine weitere Tabelle.
Das Makro funktioniert mit dem Button, aber ich finde es dauert lang und ich weiß, dass es ziemlich umständlich ist. Vielleicht kann mir jemand helfen, das Makro zu vereinfachen. Ich weiß, ich benutze zu viel Select. Es wäre super, wenn ich dabei auch hilfreiche Hinweise bekommen könnte.
Viele Grüße
Janet

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gefiltere Werte kopieren
28.10.2019 16:15:09
Werner
Hallo Janet,
z.B. so: 
Option Explicit
Private Sub NRF_EG_einlesen_Click()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Worksheets("NRF-Geschoss EG").Range("A17:W5000").ClearContents
Worksheets("Rohdaten").Range("$A$2:$BS$10000").AutoFilter Field:=23, Criteria1:="00"
With Worksheets("Rohdaten").AutoFilter.Range
.Offset(1).Resize(.Rows.Count - 1).Columns("P").Copy
End With
Worksheets("NRF-Geschoss EG").Range("A17").PasteSpecial Paste:=xlPasteValues
With Worksheets("Rohdaten").AutoFilter.Range
.Offset(1).Resize(.Rows.Count - 1).Columns("Y").Copy
End With
Worksheets("NRF-Geschoss EG").Range("K17").PasteSpecial Paste:=xlPasteValues
With Worksheets("Rohdaten").AutoFilter.Range
.Offset(1).Resize(.Rows.Count - 1).Columns("B").Copy
End With
Worksheets("NRF-Geschoss EG").Range("U17").PasteSpecial Paste:=xlPasteValues
With Worksheets("Rohdaten").AutoFilter.Range
.Offset(1).Resize(.Rows.Count - 1).Columns("G").Copy
End With
Worksheets("NRF-Geschoss EG").Range("V17").PasteSpecial Paste:=xlPasteValues
With Worksheets("Rohdaten").AutoFilter.Range
.Offset(1).Resize(.Rows.Count - 1).Columns("O").Copy
End With
Worksheets("NRF-Geschoss EG").Range("W17").PasteSpecial Paste:=xlPasteValues
Worksheets("Rohdaten").Range("$A$2:$BS$10000").AutoFilter Field:=23
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
MsgBox "Die Daten wurden eingelesen!"
End Sub
Gruß Werner
Anzeige
AW: gefiltere Werte kopieren
29.10.2019 10:24:14
Janet
Hallo Werner,
Danke … das funktioniert super. Der ganze Code sieht viel logischer aus. Ich lerne immer mehr dazu.
Viele Grüße
Janet
Gerne u. Danke für die Rückmeldung. o.w.T.
29.10.2019 10:46:14
Werner

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige