feste Buchstabenfolge + Laufvariable ausgeben

[maybebaby]

Hallo :suspekt:

ich programmiere in VBA habe mal wieder ein.. oder mehrere.. ziemlich doofe Probleme..
ich möchte eine Zeile meines Excelsheets mit den Kalenderwochen vollschreiben.
Da ich nun nicht 52 x den folgenden Code schreiben möchte würde ich das ganze gerne über eine Schleife mit einer Laufvariablen die von 1 bis 52 hochzählt realisieren.
mein code:

Do Until s = 50
    kw = 20
    Sheets("P1").Cells(2, s) = "KW"
    kw = kw + 1
    s = s + 1
Loop

wie bekomme ich es nun hin dass ich in die gleiche Zelle in die ich KW schreibe auch noch die Zahl der KW reinschreibe

danke schonmal... und viele liebe grüße,

maybebaby

 

[ronaldh]

Hallo maybebaby,

das sollte eigentlich ganz einfach so gehen (falls der Rest Deines Codes klappt):

     Sheets("P1").Cells(2, s) = "KW" + Str(Kw)

Liebe Grüsse
ronaldh

 

[Ein_Freund]

Hallo,

also hier drängt sich die For-Schleife förmlich auf ;-)
Natürlich kannst Du das auch mit Do-Loop lösen, aber dabei musst Du halt manuell eine Laufvariable mitschleppen.

For i = 1 To 52
   Sheets("P1").Cells(2, i) = "KW " & i
Next i

Im übrigen - was Du mit der Variablen 'kw' erreichen willst, ist mir auch noch ein bisschen unklar...

Gruß

 

[maybebaby]

Hallo ihr 2


vielen lieben dank funktioniert super..

@ein freund ich will das kw da stehen haben dass in der zeile dann KW 1 usw steht.. also dass man quasi auf einen blick sieht in welche kalenderwoche in dieser spalte steht..


;-)

viele liebe grüße