Einfachere Schreibweise
30.01.2013 19:49:10
Frank
Ich hätte da mal eine Frage bezüglich der Vereinfachung eines Codes.
Ich möchte bei einer bestimmten Konstellation einen Bereich löschen.
Dafür benutze ich folgenden Code:
Sub weg1()
If Range("F9").Value = "--:--" And Range("E9").Value = "--:--" Then Range("C9:L9"). _
ClearContents
If Range("F9").Value = "--:--" And Range("K9").Value = "--:--" Then Range("C9:L9"). _
ClearContents
If Range("F10").Value = "--:--" And Range("E10").Value = "--:--" Then Range("C10:L10"). _
ClearContents
If Range("F10").Value = "--:--" And Range("K10").Value = "--:--" Then Range("C10:L10"). _
ClearContents
If Range("F11").Value = "--:--" And Range("E11").Value = "--:--" Then Range("C11:L11"). _
ClearContents
If Range("F11").Value = "--:--" And Range("K11").Value = "--:--" Then Range("C11:L11"). _
ClearContents
If Range("F30").Value = "--:--" And Range("E30").Value = "--:--" Then Range("C30:L30"). _
ClearContents
If Range("F30").Value = "--:--" And Range("K30").Value = "--:--" Then Range("C30:L30"). _
ClearContents
End Sub
Der geht doch bestimmt mit einer Schleife etwas einzukürzen. Könnte mir da jemand einen Tip geben?
Danke und Gruß
Frank