Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellen mit gleichen Inhalt bündeln und kopieren

Zellen mit gleichen Inhalt bündeln und kopieren
20.06.2018 08:31:00
R.Kunze
Hallo zusammen,
ich habe ein Problem. Ich habe zwei Spalten mit Daten ("Tabelle1"). Diese sortiere ich per vba nach der zweiten Spalte. Nun möchte ich das alle Werte in der zweite Spalte die gleich sind in eine neue Spalte kopiert werden ("So sollte es aussehen"). Beispieldatei hängt anbei.
Vielen Dank für Eure Hilfe im voraus. :)
https://www.herber.de/bbs/user/122196.zip
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nur xlsx (keine zip)
20.06.2018 08:47:34
Fennek
Hallo,
nach der Beschreibung sollte das mit VBA "übersichtlich" möglich sein. Aber da zip-Dateien ausführbaren Code enthalten können, lade die Datei bitte als xlsx hoch.
mfg
VBA: Autofilter
20.06.2018 09:57:44
Fennek
Hallo,
in einem ersten Test ging es so:

Sub F_en()
'in Tabelle der Daten
'Spalten-Köpfe einfügen ###### beim 2. Run auskommentieren
Rows(1).EntireRow.Insert
Range("A1") = "T1"
Range("B1") = "T2"
lr = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1").CurrentRegion.Sort Range("B1"), xlAscending, , , , , , xlYes
With ActiveSheet.UsedRange
Cl = .SpecialCells(11).Column + 2
.Columns(2).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Cells(1, Cl), Unique:=True
For i = 2 To Cells(Rows.Count, Cl).End(xlUp).Row
With .Cells(1).CurrentRegion
.AutoFilter 2, Cells(i, Cl)
.Copy Sheets(2).Cells(1, 2 + 3 * (i - 1))
.AutoFilter
End With
Next i
End With
End Sub
Der Code ist nur minimal getestet.
mfg
Anzeige
AW: VBA: Autofilter
20.06.2018 10:18:31
R.Kunze
He,
funktioniert super. Danke dafür :)
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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