hallo,
ich glaub, aus der überschrift wird man nicht ganz schlau. und zwar habe ich bereits ein makro (danke an MichaV!), mit welchem ich eine liste durchforste und danach ausweise, welches wort wie oft prozentual vorkommt. beispiel: man hat eine liste, wobei eine spalte das herkunftsland angibt und ich möchte wissen, welches land wie oft vorkommt. das klappt alles problemlos mit folgendem makro:
Dim rngAuswahl As Range
Dim rngZelle As Range
Dim strGefunden As String
Dim lngAnzahl As Long
Dim lngProzent As Single
If Not TypeName(Selection) = "Range" Then Exit Sub
Set rngAuswahl = Selection
lngAnzahl = rngAuswahl.Cells.Count
strGefunden = vbCrLf
Range("E2").Select
For Each rngZelle In rngAuswahl
If InStr(strGefunden, vbCrLf & rngZelle) = 0 Then
lngProzent = Application.WorksheetFunction.CountIf(rngAuswahl, rngZelle) / lngAnzahl
ActiveCell.Value = rngZelle
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = lngProzent
ActiveCell.Offset(1, -1).Select
strGefunden = strGefunden & rngZelle & vbCrLf
End If
Next
Nun möchte ich das ganze insofern modifizieren, daß vor der spalte mit den ländern eine weitere spalte mit verschiedenen gewichtungen drinsteht, also z.b. 5% dtland, 3% frankreich, 2% dtland etc. das makro soll dann wieder prüfen, welches land wie oft vorkommt und dabei die gewichtungen summieren und ausgeben.
habe mal ein bisschen rumprobiert, wie das makro dann aussehen müßte, komme aber auf keinen grünen zweig. wer kann helfen?
danke und gruß,
thomas