'----------------------------Variablen
Dim Count As Long
'Arrays deklarieren
Dim Schadstoff(), Motor(), Euro1() 'textarrayas
Public SC As Integer 'schleifen counter
Public pfad1 ' Pafd1 ist die textdatei euro1
Public DateiText As Integer
Public TC 'Hilfscounter für Texarray
 'Textinhlat der Euro1.txt
Public PfadEuro1


'--------------------------------------
Sub DimesionierenXLS()

Count = (Cells.SpecialCells(xlLastCell).Row) 'Anzahl der Zeilen werden ermittelt
ReDim Preserve Schadstoff(Count) 'schadstoff Array auf passende größe Dimensionieren
ReDim Preserve Motor(Count)      'Motorarray domensionieren
End Sub
Private Sub bEinstufen_Click()
'Gleicht ab zu welcher eurotxt die VAriable Schadstoff gehört

End Sub
Private Sub bTextlesen_Click()

Texteinlesen
End Sub
Private Sub bEinlesen_Click()

DimesionierenXLS
XLSEinlesen
End Sub
Sub XLSEinlesen() 'liest die eingegebenen der spalten G und H werte in variablen

SC = 0
For I = 1 To Count
        SC = SC + 1
        Schadstoff(SC) = Range("g" & SC).Value
        Motor(SC) = Range("h" & SC).Value
Next I
'Hilfsanweisung um zu sehen was in Schadstoff array ist
'For a = 1 To Count
'counter = counter + 1
'ausgabe = ausgabe & Schadstoff(counter) & vbCrLf
'Next a
'MsgBox ausgabe
End Sub

Sub Texteinlesen()
Dim TC 'Hilfscounter für Texarray
Dim Euro1()
PfadEuro1 = "C:\Dokumente und Einstellungen\StickyBit\Desktop\Schadstoff\Benzin_Euro1.txt"
TC = 0

Open PfadEuro1 For Input As #1
    Do While Not EOF(1)
        Line Input #1, sZeile
        TC = TC + 1
    Loop
Close #1
ReDim Preserve Euro1(TC)
'MsgBox "Die Textdatei hatt " & TC & " Zeilen"
'MsgBox "Das Textarry ist" & TC & " groß"

Open PfadEuro1 For Input As #1
Do While Not EOF(1)
    t = t + 1
    Line Input #1, sLine
    Euro1(t) = sLine
Loop
Close #1
'Hilfs Anweisung um zu sehen welcher Text in Euro1 ist
'For a = 1 To TC
'    counter = counter + 1
'    ausgabe = ausgabe & Euro1(counter) & vbCrLf
'Next a

'--------------------------------------------------------
End Sub