AW: Automatisches Berechnen von bestimmten Zellen verhindern
01.07.2024 13:47:44
Onur
Dieses Makro selektiert den benutzten Bereich des aktiven Blattes ABZÜGLICH bestzimmter Zellen (unter "ohne" gelistet).
Du musst dann lediglich das automatische Berechnen des Blattes ausschalten, das Makro laufen lassen und diese Selection mit Selection.Calculate berechnen lassen.
Sub AntUnion()
Dim rng As Range, rng_neu As Range, rng_Abzug As Range, rngSingle, ohne, i, Zelle
Set rng = ActiveSheet.UsedRange
ohne = "A3,A2,B2,A4,B6,C6" ' HIER AUSWAHL, WAS NICHT BERECHNET WERDEN SOLL
rngSingle = Split(ohne, ",")
For i = 0 To UBound(rngSingle)
If rng_Abzug Is Nothing Then
Set rng_Abzug = Range(rngSingle(i))
Else
Set rng_Abzug = Union(rng_Abzug, Range(rngSingle(i)))
End If
Next i
For Each Zelle In rng
If Intersect(Zelle, rng_Abzug) Is Nothing Then
DoEvents
If rng_neu Is Nothing Then
Set rng_neu = Zelle
Else
Set rng_neu = Union(rng_neu, Zelle)
End If
End If
Next
rng_neu.Select
End Sub