Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1296to1300
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

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

Anzeige
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige