|
Hallo zusammen,
ich bin absoluter VBA Newbie und versuche für meine Abschlussarbeit ein Excel-File zu optimieren.
Zuerst sollen manuell Zeilen ausgewählt werden und diese dann zusammengefügt werden wie auf dem Bild unten.
Also zum Beispiel: Ich markiere Zeile 1 und Zeile 4 drücke auf ein Button und es generiert mir X14.
Wenn alle Zeilen möglichst zusammengefasst wurden, sollen die Spalten automatischen miteinander verglichen werden und ebenfalls zusammengefasst werden:
Zum Beispiel: Knopf drücken und alle gleichen Spalten werden zusammengefasst, wie Spalte 1 und 3.
Ich hoffe ihr könnt mir hierbei helfen. Ich bin momentan nicht weiter gekommen wie zu bestimmen wie viele Zeilen und Spalten meine Tabelle hat:
Dim rng As Range
Set rng = Selection
Dim AnzZL As Long
Dim AnzSP As Long
AnzZL = Columns(Range("A1").Column).Cells(Rows.Count).End(xlUp).Row
AnzSP = Rows(2).Cells(Columns.Count).End(xlToLeft).Column
|