For i = 2 To 100
If Cells(i, 1) = Cells(i + 1, 1) Then
'Mach was
Else
'Nix
End If
Next
Sub dsjdhs()
Dim i As Long, SP As Integer, SPB As Integer
Dim LR As Long
SP = 2 'Spalte B
SPB = 35 'Spalte AI
LR = Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For i = 2 To LR - 1
If Cells(i + 1, SP) = Cells(i, SP) And Cells(i, SP) "" Then
Cells(i, SPB + 2) = Cells(i, SPB) + Cells(i + 1, SPB)
Else
'Nix
End If
Next
End Sub
Sub IfThenElse()
Dim x As Long
For x = 2 To 100
If Cells(x, 2) = Cells(x + 2, 2) Then
Cells(30, 4).Value = "SUPERRR!!!"
Else
Cells(30, 4).Value = "NIX"
End If
Next
CODE 2 -> ?
Sub dsjdhs()
Dim i As Long, SP As Integer, SPB As Integer
Dim LR As Long
SP = 2 'Spalte B
SPB = 35 'Spalte AI
LR = Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For i = 2 To LR - 1
If Cells(i + 1, SP) = Cells(i, SP) And Cells(i, SP) "" Then
Cells(i, SPB + 2) = Cells(i, SPB) + Cells(i + 1, SPB)
Else
'Nix
End If
Next
End Sub
===============================
Danke lg leo
Sub dsjdhs()
Dim i As Long, SP As Integer, SPB As Integer
Dim LR As Long
SP = 2 'Spalte B
SPB = 35 'Spalte AI
LR = Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For i = 2 To LR - 1 'von 2 bis zur vorletzten Zeile
If Cells(i + 1, SP) = Cells(i, SP) And Cells(i, SP) "" Then ' wenn gleich und nicht _
leer
Cells(i, SPB + 2) = Cells(i, SPB) + Cells(i + 1, SPB) ' Summe
Else
'Nix
End If
Next
End Sub
Sub Leo()
Dim i As Long, SP As Integer, SPB As Integer, SPS As Integer
Dim LR As Long, Z1 As Integer
SP = 1 'Spalte PersNr
SPB = 3 'Spalte Brutto
SPS = 5 'Spalte Summe
Z1 = 2 ' Erste Zeile mit Daten
LR = Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
'reset
Cells(Z1, SPS).Resize(LR - Z1 + 1, 1).ClearContents
For i = Z1 To LR - 1 'von 2 bis zur vorletzten Zeile
If Cells(i + 1, SP) = Cells(i, SP) And _
Cells(i, SP) "" Then ' wenn gleich und nicht leer
Cells(i, SPS) = Cells(i, SPB) + Cells(i + 1, SPB) ' Summe
Else
'Nix
End If
Next
End Sub