Public TabellenStrings As New Collection 
Public EXCLS As New TabellenKlasse 
 
Public Function DatenLesen(ByVal Tabelle As Object, ByVal sTabName As String, _ 
ByRef locCollection As Object) As Variant 
Dim spalte1, spalte2, spalte3 As String 
Dim Steinrange As Variant 
Dim test As New Collection 
Dim TabellenEintrag As New EintragClass 
 
Steinrange = 10 
 
For i = 1 To Steinrange 
TabellenEintrag.spalte1 = ActiveSheet.Cells(i, 1).Value 
TabellenEintrag.spalte2 = ActiveSheet.Cells(i, 2).Value 
TabellenEintrag.spalte3 = ActiveSheet.Cells(i, 3).Value 
test.Add TabellenEintrag 
Set TabellenEintrag = Nothing 
Next i 
Set locCollection = test 
End Function 
 
 
Public Function OpenExlWS(ByVal sWSName As String) As Object 
Dim a As Variant 
Dim Zeile As Long, Spalte As Integer 
Dim HilfsCollection As Collection 
 
test = DatenLesen(ActiveWorkbook, "Grundformate", HilfsCollection) 
Set EXCLS.Grundformate = HilfsCollection 
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de