Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Einfachere Schreibweise

Forumthread: Einfachere Schreibweise

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

Anzeige

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

Betreff
Datum
Anwender
Anzeige
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

Anzeige
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

Anzeige
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)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige