Unnötige Formeln löschen
18.02.2013 19:20:35
Erwin
habe mir dank dieses Forums eine schöne Prozedur zusammenstellen können, die u.a. aus mehreren Tabellen Werte in eine Gesamttabelle übernimmt und summiert. Jetzt möchte ich zum Schluss noch in der Gesamttabelle die überflüssigen übernommenen Formeln löschen. Das ist deshalb passiert, weil ich immer eine Zwischenzeile gelassen habe und genau aus diesen Zwischenzeilen sollen sie raus. Ich könnte natürlich eine jede Zelle anspringen und mit Selection.clear löschen, aber ich habe gedacht es geht auch etwas eleganter und habe folgendes geschrieben was nicht klappt:
Sub test()
Dim Zelle As Range
For Each Zelle In Range("E3:I17")
If Zelle.HasFormula = True And _
ActiveCell.Offset(0, -1) = "" Then 'links daneben ist die Zelle leer
Zelle.Clear
End If
Next Zelle
End Sub
Kann mir jemand das verbessern, es läuft nur durch gibt auch keine Fehlermeldung.
Wäre super
Schöne Grüße
Erwin
Anzeige