Anzeige
Archiv - Navigation
1628to1632
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
Inhaltsverzeichnis

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

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 :)

324 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige