HERBERS Excel-Forum - die Beispiele

Thema: Spalten mit gleichen Spaltenköpfen zusammenfassen

Home

Gruppe

Allgemein

Problem

Spalten mit gleichen Kopfzeilen sollen zusammengefaßt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1

Sub Zusammenfassen()
   Dim iRow As Integer, iCol As Integer, iAct As Integer
   Dim iCountC As Integer, iRowLT As Integer, iRowLS As Integer
   iCol = 1
   Do Until IsEmpty(Cells(1, iCol))
      For iAct = iCol + 1 To WorksheetFunction.CountA(Rows(1))
         If Cells(1, iCol).Value = Cells(1, iAct).Value And _
            WorksheetFunction.CountA(Columns(iCol)) > 1 Then
            iRowLS = Cells(Rows.Count, iAct).End(xlUp).Row
            iRowLT = Cells(Rows.Count, iCol).End(xlUp).Row + 1
            Range(Cells(2, iAct), Cells(iRowLS, iAct)).Cut _
               Cells(iRowLT, iCol)
         End If
      Next iAct
      iCol = iCol + 1
   Loop
   Application.CutCopyMode = False
   For iCol = Range("IV1").End(xlToLeft).Column To 1 Step -1
      If WorksheetFunction.CountA(Columns(iCol)) = 1 Then
         Columns(iCol).Delete
      End If
   Next iCol
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bearbeiten

Geschlossene Excel-Datei bearbeiten? bearbeiten von tabelle
Bearbeiten Suchen Allgemeine Frage zur Fehlerbehandlung
Beitrag vom 4.6.2008 bearbeiten allgemeine Fragen zu einer Datenbank
Bearbeiten--Erstzen: '= durch = ersetzen VBS: Excel-Datei bearbeiten
Textfile bearbeiten in einem Bereich Zelle für Zelle bearbeiten ...
Gruppierung bearbeiten trotz Blattschutz Dropdown text bearbeiten
allgemein Bearbeiten von Abfrage nicht möglich
Datei im Internet bearbeiten ComboBox Bearbeiten
Pers Makro bearbeiten. allgemein: VBA lernen?
Hide-Methode-Allgemeine Frage Formelassistent allgemein
txt-Datei einlesen-bearbeiten-txt erstellen OWC Diagramm bearbeiten
allgemeingültig Blattschutz aufheben Userform Menü Datei.. bearbeiten .. Untermenüs
Zelle nur zum Bearbeiten freigeben Daten direkt in der Userform bearbeiten
Datei nach bearbeiten schliesen .. speichern mehrere Dateien öffnen und bearbeiten.
allgemeine Frage... mehrere Arbeitsblätter gleichzeitig bearbeiten
Solver - allgemein Solver - allgemein
mit optionButton eine Textbox bearbeiten Frage zum Forum allgemein
Allgemeine Frage - Finanz-Planungsmodell CSV Daten trennen zum bearbeiten
Fußzeile bearbeiten Pivoteingrenzung Formel verallgemeinern
geschützte Tabellen trotzdem mit VBA bearbeiten Arbeitsblatt nur mit Userform bearbeiten
Bearbeiten vor dem Export makro verallgemeinern
Befehlsschaltfläche bearbeiten Office allgemein, bitte hilfe
allgemein Legende eines Diagrammes bearbeiten
Liste für Import bearbeiten Commandbutton bearbeiten
Auto ausfüllen / bearbeiten "falsche" Angaben Text.txt Datei mit VBA bearbeiten?