Hallo Leute,
ich stehe vor folgendem Problem:
Ich habe eine Listbox mit diversen Einträgen. Nach diesen Einträgen würde ich gerne eine Spalte in einer andere Excel-Datei durchsuchen. In dieser Spalte stehen zahlreiche Begriffe, die meisten wiederholen sich. Es soll gezählt werden, wie oft jeder Wert vorkommt. Anschließend möchte ich diese Einträge nach Häufigkeit des Vorkommens sortieren und speichern (zB in einem Array). Ich bin leider VBA-Anfänger, entschuldigt deshalb meinen wahrscheinlich ineffizienten Code, ich bin aber sehr lernbereit :)
-------------------
Gefüllt wird die ListBox1 mit einem klick auf einen Button:
[CODE]Sub CommandButton8_Click()
ListBox1.AddItem ("Eintrag 1")
ListBox1.AddItem ("Eintrag 2")
ListBox1.AddItem ("Eintrag 3")
End Sub[/CODE]
Beim Klick auf einen anderen Button soll die "Quelldatei" ausgewertet werden. Abhängig davon, welcher Optionsbutton angeklickt ist, soll Spalte H bzw Spalte L ausgewertet werden:
[CODE]Sub CommandButton5_Click()
Dim DaFeld() As String
Quelldatei = Cells(22, 4).Value
Workbooks.Open Quelldatei
ActiveWorkbook.Worksheets(1).Activate
n = ActiveSheet.Cells(Rows.count, 1).End(xlUp).Row
If OptionButton1.Value = True Then
Data = ActiveSheet.Range("L1:L" & n)
ActiveWorkbook.Close
ElseIf OptionButton2.Value = True Then
Data = ActiveSheet.Range("H1:H" & n)
ActiveWorkbook.Close
End If
End Sub[/CODE]
Es wäre toll wenn mir jemand weiterhelfen könnte beim Such/Zählalgorithmus! |