Java-Kommentaranzahl (VBA-Material)

Memorandum 2020/02.24 Anzahl der einzelnen Kommentare

Option Explicit
Const Start_Row As Integer = 3
Const Start_Col As Integer = 2
Const Start_msg As String = "Kommentar hier starten"
Const End_msg As String = "Kommentar hier beenden"

Anzahl der Sub-Del-Kommentare()
Dim i As Integer
Dim MaxRow As Long
Dim DelCount As Long
Dim checkStr As String
Dim checkPoint As Boolean
checkPoint = False

'Holen Sie sich die letzte Zeile der Spalte B.
MaxRow = Range("B65536").End(xlUp).Row
For i = 3 To MaxRow
    checkStr = Cells(i, Start_Col).Value
    checkStr = Trim(checkStr)

'Im Falle einer Startmeldung oder einer zweiten Runde
    If checkStr = Start_msg Or checkPoint Then
        checkPoint = True
        checkStr = Left(checkStr, 1)
    
        ' /Kommentar beurteilen
        If checkStr = "/" Then
        ' *Kommentare reflektieren
        ElseIf checkStr = "*" Then
        'Leeres Urteil
        ElseIf checkStr = "" Then
        Else
        'Setzen Sie für die zweite Rundenflag wahr
        'Zählung Zählinkrement
            DelCount = DelCount + 1
        End If
    End If

    'Für Endnachrichten
    If checkStr = End_msg Then
        'Setzen Sie false auf die zweite Rundenflagge
        checkPoint = False
        'Subtrahieren Sie die Anzahl für Start- und Endnachrichten
        DelCount = DelCount - 2
    
    End If

Next i

MsgBox DelCount
End Sub