Dieses Crossposting wurde im anderen Forum gelöst
Hallo Interessierte,
kann mir jemand verraten, wie ich die Daten aus meiner Excel
Tabelle in Form von Name, Vorname, Strasse, Alter in ein Array
speichern kann?
Ich möchte gern diese Daten anschließend mit einem anderen
Tabellenblatt vergleichen. Wenn ich z.B. zwei Datensätze habe,
wie:
Kahl, Dieter, Am Baum 43, 43
Dietz, Perter, Goethestr, 32
möchte ich das im Array (1,1) Kahl, auf (1,2)Dieter, auf
(1,3)Am Baum, auf (1,4)43 steht, sowie auf (2,1) Dietz, etc…
Die Lösung von Josef ist nachfolgend, da er um Klassen besser als ich bin gehe ich davon aus dass die Lösung korrekt ist.
Gruß
Reinhard
Wenn deine durch Komma getrennten Werte in einer Zelle stehen, dann geht das für die Spalte "A" z.B. so.
Sub blabla()
Dim varList As Variant, varTmp As Variant
Dim lngLast As Long, lngIndex As Long
Dim intIndex As Integer
With Sheets("Tabelle1")
lngLast = .Cells(Rows.Count, 1).End(xlUp).Row
Redim varList(1 To lngLast, 1 To 4)
For lngIndex = 1 To lngLast
varTmp = Split(.Cells(lngIndex, 1), ",")
For intIndex = 1 To 4
varList(lngIndex, intIndex) = Trim$(varTmp(intIndex - 1))
Next
Next
End With
End Sub
Stehen die Werte dagegen in den Spalten "A:smiley:" dann geht's so.
Sub blablabla()
Dim varList As Variant
With Sheets("Tabelle1")
varList = .Range(.Cells(1, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 4))
End With
End Sub
