Makro - tæl 1 tegn i en kolonne

Denne er case sencitive!

Sub Sum()
Dim I As Long, F, S, N
Bund = Range("A65536").End(xlUp).Row
MitRange = Range("A1:A" & Bund)
For I = 1 To Bund
    If Left(MitRange(I, 1), 1) = "1" Then
        Et = Et + 1
    Else
        If Left(MitRange(I, 1), 1) = "F" Then
            F = F + 1
        Else
            If Left(MitRange(I, 1), 1) = "S" Then
                S = S + 1
            Else
                If Left(MitRange(I, 1), 1) = "N" Then
                    N = N + 1
                End If
            End If
        End If
    End If
Next
Range("B1").Value = Et
Range("B2").Value = F
Range("B3").Value = S
Range("B4").Value = N
End Sub

Og hvis det både skal være stort og småt:

Sub Sum()
Dim I As Long, F As Long, S As Long, N As Long
Bund = Range("A65536").End(xlUp).Row
MitRange = Range("A1:A" & Bund)
For I = 1 To Bund
    If Left(MitRange(I, 1), 1) = "1" Then
        Et = Et + 1
    Else
        If UCase(Left(MitRange(I, 1), 1)) = "F" Then
            F = F + 1
        Else
            If UCase(Left(MitRange(I, 1), 1)) = "S" Then
                S = S + 1
            Else
                If UCase(Left(MitRange(I, 1), 1)) = "N" Then
                    N = N + 1
                End If
            End If
        End If
    End If
Next
Range("B1").Value = Et
Range("B2").Value = F
Range("B3").Value = S
Range("B4").Value = N
End Sub

et alternativ, er at sætte den i arkets modul

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Dim I As Long, F As Long, S As Long, N As Long
        Dim Et As Long, Bund As Long, MitRange As Variant
        Bund = Range("A65536").End(xlUp).Row
        MitRange = Range("A1:A" & Bund)
        For I = 1 To Bund
            Select Case UCase(Left(MitRange(I, 1), 1))
            Case "1": Et = Et + 1
            Case "F": F = F + 1
            Case "S": S = S + 1
            Case "N": N = N + 1
            Case Else
            End Select
        Next
        Range("B1").Value = Et
        Range("B2").Value = F
        Range("B3").Value = S
        Range("B4").Value = N
    End If
End Sub

>> kabbak
Hvordan er det nu det fungerer med indsættelse i modul?

Jeg vil gerne give jer point begge to. Læg begge et svar.

Mange tak for hjælpen.

Indsættelse i et Arkmodul

Højreklik på arkfanen, på det ark som koden skal virke på, vælg vis programkode.

Der skal du kopiere min kode ind.
Koden er automatisk, forstået på den måde at hvergang du skriver/ændrer i kolonne A, så kører den.

Et svar.

takker begge to.

Velbekomme.

tak