String finden und an variable übergeben

Hallöchen zusammen,
nachdem ich nun schon ne halbe Stunde suche und nicht fündig geworden bin, versuche ich die Frage einfach mal in den Raum zu stellen. Es mir hier schon ein paarmal super geholfen worden.
Voraussetzung:
Es gibt eine Tabelle, in der in Spalte "E" entweder ein String (unbekannt) oder eine Zahl (Uninteressant) steht. Wie groß die Tabelle (Zeilenzahl) ist, weiß man auch nicht.
Folgendes habe ich vor:
Wenn ein Makro gestartet wird, soll eine userform aufgehen und in verschiedenen Checkboxen der Inhalt der gefunden unterschiedlichen Strings stehen.
Was also gemacht werden muss:
Die Spalte E nach einem String durchsuchen
- diesen String einer variablen zuweisen
- weitersuchen, aber den gleichen String nicht nochmals einer variablen zuweisen
- einen neu gefunden String wiederum einer variablen zuweisen und weitersuchen
- die checkboxen in der Userform mit den gefundenen Variablen füllen.
Hat da jemand vielleicht einen Ansatz?
Gruß und vielen Dank schonmal!
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub strings() Dim oDict As Object, rng As Range, arrStrings Set oDict = CreateObject("scripting.dictionary") For Each rng In Columns(5).SpecialCells(xlCellTypeConstants, xlTextValues) If Not oDict.exists(rng.Value) Then oDict.Add rng.Value, rng.Value Next arrStrings = oDict.keys End Sub

Hi
verwende doch einfach eine Listbox anstelle der 15 Checkboxen.
mit den Einstellungen MULTISELECT = TRUE und LISTSTYLE = 1 fmListStyleOption
sieht die Listbox fast so aus wie ne Ansammlung von Checkboxen, lässt sich auch genaus verwenden, ist aber in der Handhabung viel einfacher, weil du nur ein Steuerelement hast und nicht 15 (vorallem, wenn noch Code für die Steuerelemente benötigt wird).
Auch um das Ein- und Ausblenden der nicht benötigten Checkboxen brauchst du dich nicht mehr zu kümmern
Der Listbox kannst du dann einfach das Array aus Udos Makro zuweisen:


Sub strings()
Dim oDict As Object, rng As Range, arrStrings
Set oDict = CreateObject("scripting.dictionary")
For Each rng In Columns(5).SpecialCells(xlCellTypeConstants, xlTextValues)
If Not oDict.exists(rng.Value) Then oDict.Add rng.Value, rng.Value
Next
Listbox1.List = oDict.keys
End Sub

die Abfrage der Listbox erfolgt dann einfach in einer Schleife über die Listbox-Eigenschaften:
Listbox.Selected(i)
Listbox.List(i)
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

String finden und an variable übergeben

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

String finden und an variable übergeben

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread