Hallo,
ich habe folgendes Problem. Ich habe eine Liste mit Namen, in einer Spalte dahinter stehen Bezeichner. Diese wiederholen sich. So werden die Namen bestimmten Gruppen zugeordnet. Nun durchlaufe ich die Spalte mit den Bezeichnern und Sammle die verschiedenen Begriffe auf, um deren Anzahl festzustellen und sie in eine andere Tabelle zu kopieren. Den Code habe ich unten angehängt.
Dabei tritt nun das Problem auf, dass bestimmt Bezeichner anscheinend einfach übersprungen werden. Sie tauchen Später nicht in der Liste auf. Ich finde den Fehler einfach nicht. Würd mich freuen, wenn sich jemand mal ansehen könnte.
Vielen Dank.
Gruß
Sven
Sub() Gruppen zählen
Application.ScreenUpdating = False
Sheets("Tabelle1").Select
iRow = 1
On Error Resume Next
For iRow = 4 To Range("C65536").End(xlUp).Row
cObj.Add Cells(iRow, 3).Value, Cells(iRow, 3).Value
iRow = iRow + 1
Next iRow
On Error GoTo 0
For iRow = 1 To cObj.Count
Worksheets("Tabelle2").Range("C55").Offset(iRow, 0).Value = cObj(iRow)
Next iRow
anzahl_der_gruppen = iRow - 1
Worksheets("Tabelle2").Range("C55").Value = anzahl_der_gruppen
'Hier werden die Zellen umrahmt
vRow = 56
vColumn = 3
vloop = 0
Sheets("Tabelle2").Select
wRow = anzahl_der_gruppen + vRow - 1
Range(Cells(vRow, vColumn), Cells(wRow, vColumn + 2)).Select
With Selection
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlMedium
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = xlMedium
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeRight).Weight = xlMedium
End With
End Sub