in der anhängen Datei ist mein Problem beschrieben.
Es wäre schön, wenn jemand eine Lösung hätte.
schönen dank schon jetzt
Die Datei https://www.herber.de/bbs/user/13919.xls wurde aus Datenschutzgründen gelöscht
Die Datei https://www.herber.de/bbs/user/13919.xls wurde aus Datenschutzgründen gelöscht
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, x As Integer
j = 1
Cells(1, 6) = Cells(1, 1)
Cells(1, 7) = Cells(1, 2)
For i = 2 To 100 Step 1
If Cells(i, 1) = Cells(i - 1, 1) Then
Cells(j, 7) = Cells(j, 7) + Cells(i, 2)
Else
j = i
Cells(j, 6) = Cells(j, 1)
Cells(j, 7) = Cells(j, 2)
End If
Next i
For x = 2 To 100 Step 1
If Cells(x, 1) = Cells(x - 1, 1) Then
Cells(x, 6) = ""
Cells(x, 7) = ""
End If
Next x
End Sub