Ist es möglich Schleife zu verkürzen
02.04.2005 12:00:06
Peter
hab mit meinen minimalen Kenntnissen unten gepostete Schleife geschrieben.
Zweck ist das er überprüft ob die Zeile in sheet("DB").Range("C") leer ist und dann in einem anderen Sheet("Monatsplanung").range("C" Zeile ab 7) einträgt wenn nicht leer. Das funktioniert auch gut.
Mein Problem ist nur das er von Spalte B bis Z das überprüfen und eintragen müsste und das wird dann ein ellenlanger Code da vorher auch schon ein ziemlicher langer Code steht. Könnte man das irgendwie verkürzen ?
Für Anregungen bin ich Dankbar.
Sub test()
a = Sheets("Monatsplanung").Range("c117")
c = Sheets("Monatsplanung").Range("c118")
x = 6
For i = a To c
x = x + 1
If Sheets("DB").Range("c" & i) <> 0 Then
bwert = "belegt"
Sheets("Monatsplanung").Range("c" & x).Select
ActiveCell.FormulaR1C1 = bwert
Else
bwert = 0
End If
Next i
End Sub
MfG
Peter