Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1112to1116
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

unterschiedliche Werte auslesen und anzeigen

unterschiedliche Werte auslesen und anzeigen
Joni
Hi,
ich habe da mal eine Frage.
Wie kann ich aus einem Bereich die Werte auslesen (jeden Wert nur einmal, spricht beim 2. - x. Vorkommen ignorieren), diese in einer Variable speichern und dann diese Variable Wert für Wert als msgbox ausgeben?
Mit Eintragen in eine Zelle/Schleife etc. müsste ich das hinbekommen, doch bevor ich da bastle würde ich gerne wissen ob es da nicht eine elegantere Methode gibt.
Danke für eure Tipps.
Gruß Joni

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: unterschiedliche Werte auslesen und anzeigen
05.11.2009 19:46:22
ransi
Hallo
Nehmen wir mal an das sind deine Daten:
Tabelle1

 ABC
166 
2167 
3319 
4abc17 
51810 
6abc19 
7171 
8148 
965 
10176 
11   


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Schubs diesen Code mal an:
Option Explicit


Public Sub test()
Dim MyDic As Object
Dim arr As Variant
Dim Element As Variant
Dim lngL As Long
Dim intI As Integer
Set MyDic = CreateObject("Scripting.Dictionary")
arr = Sheets("TAbelle1").Range("A1:B20")
For lngL = 1 To UBound(arr, 1) 'Schleife über die Zeilen
    For intI = 1 To UBound(arr, 2) 'Schleife über die Spalten
        MyDic(arr(lngL, intI)) = 0
    Next
Next
'Ausgeben
MsgBox Join(MyDic.keys, vbCrLf)
For Each Element In MyDic.keys
    MsgBox Element
Next
End Sub


ransi
Anzeige
AW: unterschiedliche Werte auslesen und anzeigen
05.11.2009 20:05:20
Joni
Hi ransi,
thats it! Danke
Gruß Joni

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige