Letzte markierte Zelle aus Gesamtmarkierung lösche
26.11.2006 22:35:49
Reinhard
jmd. fragte an wie er, wenn er bei gedrückter Strg Taste Zellen markiert und dabei eine unbeabsichtigte Zelle markiert, dieses wieder rückgängig machen kann.
Meine Idee/Lösung funktioniert seltsam *find*
Wenn ich A1, dann B3, dann D7, dann J2 markiere, wird in der MsgBox $A$1:$C$1 angezeigt!?
Also ist meine Lösung eher nur ne Idee als ne Lösung :-)
Hat jemand bessere Idee? Dankeschön.
Daß die letzte markierte Zelle nicht die letzte Zelle im markierten Bereich ist ist mir bewußt, aber das kriege ich evtl. über Selection_cahnge hin, diese Zelle zu ermitteln.
Noch haperts daran überhaupt aus einer Selektion die letzte Zelle auszuselektieren.
Option Explicit
Sub tt()
Dim Z, Bereich
Set Bereich = Selection.Cells(1)
'Set Bereich = Selection.Cells(1).Address 'Fehler 13 Typen unverträglich
For Z = 2 To Selection.Cells.Count - 1
'Set Bereich = Union(Bereich, Cells(Z).Address) ' Fehler424, Objekt erforderlich
Set Bereich = Union(Bereich, Cells(Z))
Next Z
MsgBox Bereich.Address
End Sub
Gruß
Reinhard
