Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1424to1428
1424to1428
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten gliedern

Forumthread: Daten gliedern

Daten gliedern
06.05.2015 17:42:43
Carl Fornia

Hallo zusammen,
nach längerer Recherche habe ich mich überwunden und frage Euch um Rat bei meiner Aufgabenstellung.
Ich möchte Daten gliedern von Zeilen in Spalten.
Beispiel:
ID Wert
1 25
1 25
1 50
2 50
2 50
Ziel soll so aussehen:
ID Wert1 Wert2 Wert3
1 25 25 50
2 50 50
Ideen?
Danke im Voraus.

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Daten gliedern
06.05.2015 17:51:42
Hajo_Zi

Tabelle4
oder mit VBA
06.05.2015 18:08:28
Michael
Hallo zusammen,
ich habe die Beispielwerte incl. Überschriften in B2 bis C7 stehen.
Das Makro schreibt in die gleiche Zeile, aber weiter rechts (je nach dem, was in spalteLinks angegeben wird):
Sub gliedern()
von = 3
bis = Range("b2").End(xlDown).Row
zeile = von - 1
spalteLinks = 5
letzteID = Range("B" & von) - 5
For i = von To bis
ID = Range("B" & i)
If letzteID = ID Then
spalte = spalte + 1
Cells(zeile, spalte) = Range("C" & i)
Else
letzteID = ID
zeile = zeile + 1
spalte = spalteLinks
Cells(zeile, spalte) = Range("B" & i)
Cells(zeile, spalte + 1) = Range("C" & i)
spalte = spalte + 1
End If
Next
End Sub
Schöne Grüße,
Michael

Anzeige
AW: oder mit VBA
06.05.2015 18:26:12
Carl Fornia
Wow - wird gleich morgen ausprobiert! Unfassbar, diese kurzen Reaktionszeiten.

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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