Daten bereinigen per VBA
24.06.2015 11:11:12
Berni
Ich habe eine Planungstabelle gebastelt, in welcher in einer Spalte Stunden und in der Nebenspalte Euro ausgerechnet werden. Da sich nun die Tabelle in die Breite zieht (Spalte H bis AQ) habe ich die Eurotabellen ausgeblendet und nur die Ergebnisspalten rechts belassen. Wenn nun aber jemand die eingetragenen Daten löschen möchte und dabei alle Spalten markiert, sind natürlich auch die Formeln futsch. Daher habe ich ein Makro aufgesetzt und dieses mit einem Button verknüpft.
Sub BereichBereinigen()
Dim Zelle As Range
Range("H9:AO370").Select
For Each Zelle In Selection
If Zelle.HasFormula Or IsDate(Zelle) Then
Else
If IsNumeric(Zelle) Then
Zelle.Value = ""
Else
Zelle.Value = 0
End If
End If
Next Zelle
Range("F6").Select
End Sub
Das Makro funktioniert zwar, ist aber ziemlich langsam unterwegs, da es natürlich alle Zellen durchsucht. Meine Frage ist nun, ob man diesem Makro nicht einen Turbo verpassen könnte.
Vorerst Danke und
LG Berni