Counts
09.07.2020 09:35:03
Anni
ich versuche mich gerade an einem Makro, dass Einträge von 2 Spalten zählt. Beispiel Datei wie die Spalten aussehen und was es als Ergebnis anzeigen soll ist angefügt.
https://www.herber.de/bbs/user/138894.xlsm
Folgende Probleme habe ich bei der Version Counts
Es zählt zwar die Einträge der Spalten aber vergleicht nicht gleichzeitig mit Spalte 3 und schreibt daher nichts in die Ergebnistabelle
Sub Counts()
Dim i As Long
Dim IntNCount As Integer, IntICount As Integer
Dim FinalRow As Long
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To FinalRow + 1
If Cells(i, 1) "" And Cells(i + 1, 2) = "" Then
IntNCount = IntNCount + 1
ElseIf Cells(i + 1, 2) "" Then
IntICount = IntICount + 1
' Teil wird immer übersprungen
If Cells(i, 3).Value "" Then
Cells(4, 5).Value = IntNCount
Cells(4, 6).Value = IntICount
IntICount = 0
IntNCount = 0
End If
End If
Next i
End Sub
Sub Countszwei()
Dim i As Long
Dim IntNCount As Integer, IntICount As Integer
Dim FinalRow As Long
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To FinalRow + 1
If Cells(i, 1) "" And Cells(i + 1, 2) = "" Then
IntNCount = IntNCount + 1
If Cells(i, 3).Value "" Then
Cells(4, 5).Value = IntNCount
IntNCount = 0
End If
End If
Next i
For i = 2 To FinalRow + 1
If Cells(i + 1, 2) "" Then
IntICount = IntICount + 1
'nur abgleich Spalte 3 wenn wert "" sollte aber in jeder Zeile abgleichen
If Cells(i, 3).Value "" Then
Cells(4, 6).Value = IntICount
IntICount = 0
End If
End If
Next i
End Sub
Hat jemand eine Idee wie das alles funktionieren könnte?
Danke im Voraus!
Anni