mit folgendem Code werden alle aktuell selektierten Zell in einen Bereich zusammengefasst und unter einem Namen im Namensmanager gespeichert bzw. wird der gespeicherte Bereich um die selektierten Zellen erweitert.
Dim wb As Workbook
Dim r As Range:
Dim n As Name, c As Range, s$
Set r = Selection
Set wb = ThisWorkbook
With wb
On Error Resume Next
Const BEZ$ = "BerOktabin"
Set n = .Names(BEZ)
On Error GoTo 0
If n Is Nothing Then
.Names.Add BEZ, "=" & ActiveSheet.Name & "!" & r.Address
Else:
Application.Union(Range(BEZ), r).Name = BEZ
End If
End With
Nun möchte ich umgekehrt alle aktuell selektierten Zellen wieder aus dem Bereich löschen. Wie ist das möglich?
Ich habe schon gedacht den Bereich über den Namen zu selektieren mit
Application.Goto reference:="BerOktabin"
und den Namen zu löschen, die Zellen die nicht mehr zu dem Bereich gehören zu "deselektieren" und dann unter dem gleichen Namen wieder zu speichern. Aber auch hier weis ich nicht, wie man einezele Zellen "deselektiert".
Kann mir jemand helfen?
PS: der Bereich besteht aus einzelnen, nicht unbedingt zusammenhängenden Zellen
Gruß,
Willi