Variable in for-Schleife
27.01.2010 16:35:41
Michael
Hallo,
ich habe eine einfache Forschlefe, in welcher ich andere Routinen mittels Call aufrufe. Ich _
will vom System generierte Textfiles einlesen und dann in Excel auswerten um Statistiken fahren zu können.
Sub Artikel_holen()
artikelnummer1 = "0815"
artikelnummer2 = "0816"
artikelnummer3 = "4711"
For i = 1 To 3
artikelnummer = "artikelnummer" + i
Sheets(artikelnummer).Select ' Es gibt für jeden Artikel ein Tabellenblatt
Range("A1").Select
Call Überschrift
Call erste_freie_Zeile_finden
Call einlesen
Range("B1").Select
ActiveCell.FormulaR1C1 = artikelnummer
i = i + 1
Next
End Sub
Aber irgendwie funktioniert
artikelnummer = "artikelnummer" + i
nicht. Ich will eigentlich für jeden Artikel die Schelife durchlaufen. Die artikelnummer muss auch an die aufgerufenen Makros weitergegeben werden.
Ich freue mich auf hilfreiche Kommentare.
Gruß
Michael