Einfachere Schreibweise

Forumthread: Einfachere Schreibweise

30.01.2013 19:49:10

Frank

Hallo zusammen
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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Einfachere Schreibweise

30.01.2013 19:55:30

Hajo_Zi
AW: Einfachere Schreibweise

30.01.2013 20:05:51

Christian
AW: Einfachere Schreibweise

30.01.2013 20:06:52

Tino
AW: Einfachere Schreibweise

30.01.2013 20:20:25

Frank

AW: Einfachere Schreibweise

30.01.2013 19:55:30

Hajo_Zi

Hallo Frank,
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
Ein Link zur Datei wäre nicht schlecht.
If Range("F9").Value = "--:--" And (Range("E9").Value = "--:--" _
or Range("K9").Value = "--:--") Then Range("C9:L9").ClearContents

AW: Einfachere Schreibweise

30.01.2013 20:05:51

Christian

Hallo
ungetestet:

For i = 9 to 30
if cells(i,6) = "--:--" Then
if cells(i,5) = "--:--" or cells(i,11) = "--:--" Then
cells(i,3).Resize(,10).ClearContents
End If
End If
Next

Gruß
Christian

AW: Einfachere Schreibweise

30.01.2013 20:06:52

Tino

Hallo,
hier ein Vorschlag zum testen.

Sub weg1()
Dim n&
For n = 9 To 30
If Cells(n, 6).Value = "--:--" Then
If Cells(n, 5).Value = "--:--" Or Cells(n, 11).Value = "--:--" Then
Cells(n, 3).Resize(, 10).ClearContents
End If
End If
Next n
End Sub

evtl. würde ich die Tabelle noch mit angeben

Sub weg2()
Dim n&
With Tabelle1
For n = 9 To 30
If .Cells(n, 6).Value = "--:--" Then
If .Cells(n, 5).Value = "--:--" Or .Cells(n, 11).Value = "--:--" Then
.Cells(n, 3).Resize(, 10).ClearContents
End If
End If
Next n
End With
End Sub

Gruß Tino

AW: Einfachere Schreibweise

30.01.2013 20:20:25

Frank

Hallo zusammen
Danke für die prompte Antwort.
Der Code vom Tino und vom Christian funktioniert prima.
Schönen Abend noch.
Gruß Frank

Beliebteste Forumthreads (12 Monate)

Forumthread: Einfachere Schreibweise

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread