Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
952to956
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
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen konsolidieren per VBA

Zeilen konsolidieren per VBA
21.02.2008 20:29:59
Thomas
Guten Abend VBA-Spezialisten
Ich mache aus Access einen Tabellen-Export in Excel. Nun habe ich z.T mehrere gleiche Listen untereinander. Gerne möchte ich aber pro Kunde nur eine Zeile und das Los in der Spalte "Los(e)" zusammengefasst.
Leider klappt der Datei-Upload nicht. Hoffe das geht auch so,
Liste Kurz Name Bemerkung Los(e)
81001 Df Urs 20
81001 Df Urs 21
81025 L Peter 33
83005 Andy 45
83005 Andy 46
83005 Andy 47
Gewünschtes Ergebnis
Liste Kurz Name Bemerkung Los(e)
81001 Df Urs 20, 21
81025 L Peter 33
83005 Andy 45, 46, 47
Vielen Dank für Eure Hilfe
Gruss
Thomas

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen konsolidieren per VBA
21.02.2008 23:36:54
fcs
Hallo Thomas,
mein Lösungsvorschlag. Tabellennamen muss du noch anpassen.
Gruß
Franz

Sub DatenUmgruppieren()
Dim wksQuelle As Worksheet, wksZiel As Worksheet
Dim ZeileQ As Long, ZeileZ As Long, Zelle As Range
Dim Liste As String, KurzNAme As String, Bem As String
Set wksQuelle = Worksheets("Tab1") 'Tabelle mit Ausgangsdaten
Set wksZiel = Worksheets("Tab2") 'Tabelle mit umgruppierten Daten
With wksZiel
'vorhandene Daten löschen
.Range(.Columns(1), .Columns(3)).ClearContents
'Spaltentitel eintragen
.Cells(1, 1) = "Liste"
.Cells(1, 2) = "Kurz Name"
.Cells(1, 3) = "Bemerkung, Lose"
End With
With wksQuelle
'Zeilen in Ausgangsdaten abarbeiten
For ZeileQ = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
'Daten in Zeile einlesen
Liste = .Cells(ZeileQ, 1).Value
KurzNAme = .Cells(ZeileQ, 2).Value
Bem = .Cells(ZeileQ, 3).Value
With wksZiel
'Listen-Nr in Zieletabelle Apalte A suchen
Set Zelle = .Columns(1).Find(What:=Liste, LookIn:=xlValues, Lookat:=xlWhole)
'Daten in Zieltabelle eintragen
If Zelle Is Nothing Then 'Nummer noch nicht vorhandne
ZeileZ = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(ZeileZ, 1) = Liste
.Cells(ZeileZ, 2) = KurzNAme
.Cells(ZeileZ, 3) = Bem
Else 'Bemerkung, Los für vorhanden Nummer ergänzen
ZeileZ = Zelle.Row
.Cells(ZeileZ, 3) = .Cells(ZeileZ, 3) & ", " & Bem
End If
End With
Next
End With
With wksZiel
.Activate
'Daten nach Listen-Numer sortieren
.Range(.Columns(1), .Columns(3)).Sort _
Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlYes
End With
Set Zelle = Nothing: Set wksQuelle = Nothing: Set wksZiel = Nothing
End Sub


Anzeige
AW: Zeilen konsolidieren per VBA
22.02.2008 20:21:37
Thomas
Hallo Franz
Vielen Dank für deine RIESEN Arbeit....!!
Thomas

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige