Thema Datum  Von Nutzer Rating
Antwort
Rot Excel-Spalte nach Listbox-einträgen durchsuchen
 02.04.2009 15:39:00 RoyMakaay
NotSolved
04.04.2009 09:58:55 Holger
NotSolved

Ansicht des Beitrags:
Von:
RoyMakaay		 Datum:
02.04.2009 15:39:00		 Views:
2638		 Rating:
     
Antwort:
  Ja
Thema:
Excel-Spalte nach Listbox-einträgen durchsuchen
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!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel-Spalte nach Listbox-einträgen durchsuchen
 02.04.2009 15:39:00 RoyMakaay
NotSolved
04.04.2009 09:58:55 Holger
NotSolved