ZÄHLENWENN oder Makro?

hallo,
eine kurze frage, ob man eine bestimmte sache mit ZÄHLENWENN machen kann oder doch ein VBA programmieren muss.
ich habe in einer liste verschiedene länder aufgeführt und möchte wissen, wie oft welches land prozentual genannt wird. geht ja relativ einfach mit zählenwenn, das dann teilen durch die gesamtanzahl. nun muss man ja bei zählenwenn ein suchkriterium eingeben, z.b. deutschland, frankreich etc, ich würde es aber gerne flexibel gestalten, sprich excel soll in dem von mir angegebenen bereich schauen, welche länder überhaupt vorkommen und das dann berücksichtigen.
angenommen, die länder stehen in B2:B10, hatte ich es mit ZÄHLENWENN($B$2:$B$10;B2) probiert, aber das funktioniert nicht, weil dann mehrfachgenannte länder auch mehrfach mitgezählt werden.
hat jmd einen tip, wie man das auf VBA-basis vernünftig programmieren könnte? das beste wäre, daß ich den bereich markiere und man ausgespuckt bekommt: deutschland 43%, frankreich 18% etc.
wäre das sehr kompliziert zu gestalten?
besten dank!
gruß, thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thomas,
was Du falsch machst? Deine Schleife prüft nicht auf Mehrfachnennungen, darum werden die ja auch ausgespuckt :o)
Prinzip: Prüfe, ob das Land in einem Text mit allen bereits gefundenen Ländern enthalten ist. Wenn nicht, füge an den Text das neue Land an. Wenn ja, mache nix, denn es ist eine Mehrfachnennung.

Option Explicit
Sub Makro1()
    Dim rngAuswahl As Range
    Dim rngZelle As Range
    Dim strGefunden As String
    Dim lngAnzahl As Long
    Dim lngProzent As Long
    If Not TypeName(Selection) = "Range" Then Exit Sub
    Set rngAuswahl = Selection
    lngAnzahl = rngAuswahl.Cells.Count
    strGefunden = vbCrLf
    For Each rngZelle In rngAuswahl
        'Jede Zelle des markierten Bereiches
        If InStr(strGefunden, vbCrLf & rngZelle) = 0 Then
            'Wenn Wert noch nicht in Liste der gefundenen Werte enthalten
            '..Prozentsatz ermitteln
            lngProzent = Round(Application.WorksheetFunction.CountIf(rngAuswahl, rngZelle) / lngAnzahl * 100, 2)
            '..in Zelle daneben schreiben
            rngZelle.Offset(0, 1) = lngProzent & "%"
            '...und Wert mit einem eindeutigen Trennzeichen an den Text mit
            'den gefundenen Werten anfügen
            'Trennzeichen ist hier vbcrlf, weil das
            'in Excel- Zellen normalerweise nicht vorkommt, und weil man das so
            'schön in einer MsgBox ausgeben kann.
            strGefunden = strGefunden & rngZelle & vbCrLf
        End If
    Next
End Sub

Gruß- Micha
PS: Rückmeldung wäre nett

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread