mit Makro Werte verschieben und einfügen
11.11.2005 08:06:02
Andre´
ich habe folgendes Makro, dass in jede 11. Zelle in Spalte B den Eintrag test 33 mal ausübt. Da schon Werte in der Spalte B enthalten sind die nicht überschrieben werden sollen, möchte ich gern, dass nach jeder 11. Zelle die Werte nach unten um 1. Zelle verschoben werden und dann der Eintrag test erfolgt.
Sub test()
e = 0
s = 1
Do Until e = 33
e = e + 1
Range("B" & s) = "test"
s = s + 11
Loop
End Sub
Hat jemand eine Idee wie das gehen könnte.
Danke im Voraus!
MFG
Andre
Anzeige