Supportnet / Forum / Tabellenkalkulation

Hallo an alle, könnt ihr mir villeicht diesbezgl. helfen. a. dieses makro sollte alle identisch gleiche namen in SPALTE(Name) suchen und die identischen Namen, spalten zusammengefast (addiert) in die entsprechende Spalten wieder geben. und leider fast er nur identische namen zusammen die untereinander sind aber das identische name könnte auch in abstand von 20 zeilen wiedertauchen also müsste die mit in der zusammen fassung sein b. und wenn ein einzelnes name aufgeführt ist in der Spalte Name müsste dies auch wiedergegeben werden. vielen dank gruss Sub Datenvergleichen() Dim Zeile As Long Dim Name As String Zeile = 2 Name = ActiveWorkbook.Sheets("Tabelle1").Cells(Zeile, Spalte_Name) While (Name <> "") If (Name = ActiveWorkbook.Sheets("Tabelle1").Cells(Zeile + 1, Spalte_Name)) Then ActiveWorkbook.Sheets("Tabelle1").Cells(Zeile, 9) = _ ActiveWorkbook.Sheets("Tabelle1").Cells(Zeile, 1) ActiveWorkbook.Sheets("Tabelle1").Cells(Zeile, 10) = _ ActiveWorkbook.Sheets("Tabelle1").Cells(Zeile, 2) ActiveWorkbook.Sheets("Tabelle1").Cells(Zeile, 11) = _ ActiveWorkbook.Sheets("Tabelle1").Cells(Zeile, 3) + _ End If Zeile = Zeile + 1 Name = ActiveWorkbook.Sheets("Tabelle1").Cells(Zeile, Spalte_Name) Wend End Sub

Hallo,

Du kannst doch Deine Spalte (Name) sortieren, dann stehen gleiche Namen untereinander.

Die Variable Spalte_Name ist nicht definiert?

Gruß
Günter

• Syntaxfehler im Macro
• Macro zuweisen
• Macro starten
• Autofil mit Macro
• Variables Macro