Zelle leeren, wenn Nachbarzelle leer
23.11.2005 11:38:49
Gisela
Mit folgendem Makro kann ich den Inhalt der Zellen in Spalte T löschen, wenn in Spalte S kein Wert.
Was muss ich ändern, damit das Makro nicht so lange läuft, also nicht die Spalte S, sondern den Bereich S2:S3000 abfragt um dann in Spalte T die Zelle zu leeren.
Sub Zellenleeren()
Dim i, Zeile As Integer
Zeile = Cells(Rows.Count, 1).End(xlUp).Row
For i = Zeile To 1 Step -1
If Cells(i, 19).Value = "" Then
Cells(i, 20).Clear
End If
Next i
End Sub
Vielen Dank und Grüße
Gisela