Microsoft Excel

Herbers Excel/VBA-Archiv

Variable in for-Schleife | Herbers Excel-Forum


Betrifft: Variable in for-Schleife von: Michael
Geschrieben am: 27.01.2010 16:35:41

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

  

Betrifft: AW: Lass die " " weg bei artikelnummer owT. von: Chris
Geschrieben am: 27.01.2010 16:47:34

Gruß und Tschüß.


  

Betrifft: AW: Sorry faslch geschaut wieder offen oWT von: Chris
Geschrieben am: 27.01.2010 16:50:00

.


  

Betrifft: AW: Variable in for-Schleife von: hary
Geschrieben am: 27.01.2010 16:53:24

hallo
versuch mal:
artikelnummer = "artikelnummer" & i
gruss hary


  

Betrifft: AW: Variable in for-Schleife von: Hajo_Zi
Geschrieben am: 27.01.2010 16:55:38

Hallo Michael,

Hinweise zu select usw.
Ich kenne Deine Makros nicht.
Ungetestet.

Option Explicit

Sub Artikel_holen()
    Dim arrTabelle
    Dim I As Integer
    arrTabelle = Array("0815", "0816", "4711")
    For I = 0 To 2
        With Sheets(arrTabelle(I))
            Call Überschrift
            Call erste_freie_Zeile_finden
            Call einlesen
            .Range("B1") = artikelnummer
        End With
    Next
End Sub
GrußformelHomepage


  

Betrifft: AW: Variable in for-Schleife von: Chris
Geschrieben am: 27.01.2010 16:56:54

Servus,

ich würde die Artikelnummern mal so aufrufen:

Sub ... ()
Dim ArtikrlArray as Variant, IndexArr as Variant
ArtikelArray = ("0815,0816,4711")
IndexArr = Split(ArtikelArray,",")
For i = LBound(IndexArr) to UBound(indexArr)
artikelnummer = IndexArr(i)

.
.
.
End Sub
Gruß

Chris


Beiträge aus den Excel-Beispielen zum Thema "Variable in for-Schleife"