Zelleninhalt bei bestimmten Zellen löschen ?
01.10.2003 10:24:01
Oliver S.
ich benötige mal wieder Hilfe. Ich habe nachfolgendes Makro, welches die Spalte G nach Zellen ohne Inhalt durchsucht. Wird eine leere Zelle gefunden, wird diese Zeile gelöscht.
Sub Daten_löschen()
If ActiveSheet.Name = "Deizisau" Then
For i = Cells(Rows.Count, 7).End(xlUp).Row To 1 Step -1
If Cells(i, 7).Value = 0 Then Rows(i).ClearContents
Next i
Range("J2").Select
Selection.Copy
Sheets("Deizisau ^WW").Select
Range("J2").Select
ActiveSheet.Paste
End If
End Sub
Nun möchte ich aber nicht, dass die ganze Zeile gelöscht wird, sondern nur der Inhalt der Zellen D, E, F und H in der Zeile, in der in Zelle G nichts steht.
Beispiel: In Zelle G5 ist kein Eintrag vorhanden -> Inhalt der Zellen D5, E5, F5 und H5 sollen gelöscht werden
Komme da irgendwie nicht weiter und da ich auch nichts geeignetes in der Recherche gefunden habe baue ich daher auf Euer Wissen.
Besten Dank schon mal im Voraus,
Oliver