Code kuerzen
29.08.2007 09:01:34
Anja
braeuchte mal eure Hilfe:
will aus einer userform daten in ein sheet uebertragen, einige zellen sollen aber leer bleiben. Wie kann ich den Teil-Code kuerzer schreiben z.B. mit ner Schleife oder so?
auszug aus code:
Sheets(1).Cells(x , y+1).Value = ""
Sheets(1).Cells(x , y+2).Value = ""
Sheets(1).Cells(x , y+3).Value = ""
Sheets(1).Cells(x , y+4).Value = ""
Sheets(1).Cells(x , y+5).Value = "" usw.
Danke gruss Anja