title image


Smiley Re: Schleife (über Zeilen) in Verbindung mit For-To - Next (über Spalten)
Hallo Venjacob,



ich habs gerade ausprobiert. Solange die Zellen in Spalte A einen Eintrag enthalten, werden die Spalten 21 - 72 gefüllt:







Sub test()

Dim y As Integer

Dim anfang As Integer

Dim spalte As Integer

y = 2

anfang = y

While Cells(y, 1) ""

Cells(y, 1) = y

'Code......

For spalte = 21 To 72

'code .......

Cells(y, spalte) = spalte

Next

y = y + 1

Wend

End Sub





oder was meinst Du mit "geht nur bis y" ?



Viele Grüße

Herby







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: