---

Hallo,

ich habe eine umfangreiche Exceltabelle nach folgendem Muster:

Text  Text        A          Text
Text  Text        A          Text
Text  Text        B          Text
Text  Text        B          Text
Text  Text        C          Text
...

D. h. in dritten Spalte habe ich das Merkmal, über das ich meine komplette Tabelle gruppieren möchte.
Für die weitere Diskussion kann davon ausgegangen werden, dass die Tabelle nach dieser Spalte sortiert ist.

Ich möchte nun automatisiert aus dieser Spalte eine Zeilenüberschrift erzeugen.
Immer wenn der Wert in der Spalte sich ändert, soll eine neue Zeile mit dem Wert als Überschrift eingefügt werden.
D. h. die fertige Tabelle soll so aussehen:

          A
Text  Text        Text
Text  Text        Text
          B
Text  Text        Text
Text  Text        Text
          C
Text  Text        Text

Pivot-Tabelle scheidet hierfür aus, da ich Texte habe und Pivot-Tabelle nur Zahlenwerte im Wertebereich darstellt.
Eine andere Funktion habe ich nicht gefunden, d.h. ich glaube das Problem lösst sich nur über Makro lösen.

Für Hinweise zur Lösung wäre ich sehr dankbar. Vielleicht habe ich etwas übersehen und es gibt eine einfachere Lösung.
Oder es kann mir jemand einen Hinweis geben, wie eine Lösung für das Problem als Makro aussehen könnte (d. h. Spaltenwerte auslesen, Wertwechsel erkennen, Leerzeile vor jedem Wechsel, Wert in die neue Zeile einfügen)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo MarHat,

1.Schritt: umsortieren
.      A   B        C  D  E
1  =d1 Text  Text A Text
2  =d2 Text  Text A Text
3  =d3 Text  Text B Text
4  =d4 Text  Text B Text
5  =d5 Text  Text C Text

2. Schritt vor A Zeile einfügen
3. in eingefügte Zeile "A" reinschreiben oder verschieben
2. und 3. wiederholen mit B, C, usw  (ABC=26)
....
4. Spalte 1 und Spalte mit ABC löschen

So würde ich das machen.

------------------
--------------------------
Freundliche Grüsse
CAD-Freakle
INV Prof. 2015 SP2 (Student)

_-_-_-_-_-_-_-_-_-_-_-_-_-
Sodele, Jetzetle, ab gehts
-_-_-_-_-_-_-_-_-_-_-_-_-_

[Diese Nachricht wurde von CAD-Freakle am 04. Mrz. 2017 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo und ein Willkommen hier im WeltBestenForum MarHat.

Erst die Spalte 3 in zu Spalte 1 machen.
Vielleicht komst du mit  Transponieren weiter.

Gruß
ThoMay

------------------
Hast du Fragen?
Brauchst du
Schaut mal nach im Bereich
Alle Foren => Wissenstransfer.
oder
Konstrukteure Online hier bei CAD.de
Richtig fragen -
Nettiquette - Konstruktionshilfen - Systeminfo - Unities - CAD Freeware - Forenübersicht - 3D Modelle - SolidWorks Videos

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

versuche es mal mit folgendem Makro:

Code:

---

Sub UeberschriftenSetzen()
    Dim lngZeile As Long
    Dim lngAnzahl As Long
    Dim strInhalt As String
    For lngZeile = IIf(IsEmpty(Cells(Rows.Count, 1)), _
        Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) To 1 Step -1
        strInhalt = Cells(lngZeile, 3)
        lngAnzahl = Application.CountIf(Columns(3), Cells(lngZeile, 3))
        Cells(lngZeile - lngAnzahl + 1, 1).EntireRow.Insert
        Cells(lngZeile - lngAnzahl + 1, 2) = strInhalt
        lngZeile = lngZeile - lngAnzahl + 1
    Next lngZeile
    Columns(3).Delete
End Sub

---

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP