Schleifen-Problem
18.04.2004 14:56:43
Ingo Siemon
Da ich noch ein echter VBA-Laie bin, komme ich mit einem Anliegen
nicht richtig weiter.
Bisher sieht mein Code so aus:
petFile = "SlideShow.txt"
Open "D:\SPACEart\Bilder-Rename\" & petFile For Output As iFile
Print #iFile, "seiten=new Array()"
iAnz = 10
For i = 1 To iAnz
Print #iFile, "seiten[" & i & "]=""Artikel/" & LCase(Cells(ActiveCell.Row, 2)) & ".shtml"""
Next i
Close iFile
Nun müsste ich es so haben, dass die Schleife so oft ausgeführt wird,
wie Zeilen da sind, in deren Spalte B ein Wert steht.
Hier mal ein Beipiel:
---------------------
Eine Tabelle mit 11 Zeilen.
Die erste Zeile ist der Spaltenkopf und soll nicht berücksichtig werden.
In der Spalte B steht folgendes
Nummer (Spaltenkopf)
al100
al101
al102
al104
al105
al106
al107
al108
al109
Hearuskommen soll mit dem VBA-Code dann folgendes:
seiten=new Array()
seiten[1]="Artikel/al101.shtml"
seiten[2]="Artikel/al102.shtml"
seiten[3]="Artikel/al103.shtml"
seiten[4]="Artikel/al104.shtml"
seiten[5]="Artikel/al105.shtml"
seiten[6]="Artikel/al106.shtml"
seiten[7]="Artikel/al107.shtml"
seiten[8]="Artikel/al108.shtml"
seiten[9]="Artikel/al109.shtml"
Alles klar ? ... :-)
Falls das noch nicht richtig nachvollziehbar ist,
gebt mir bitte Bescheid.
Dann würde ich es nochmal anders formulieren.
Über Eure Hilfe würde ich mich riesig freuen,
weil mir leider schon der Kopf raucht :)
Gruß
Ingo