gelegentlich markiere ich mit der Maus größere zerpflückte Bereiche, um sie z.B. gleich zu formatieren. Wenn mir nun beim Markieren ein Fehler unterläuft und eine Zelle mit markiert wird, die eigentlich nicht vorgesehen war, kriegen ich sie nicht wieder deaktiviert! Gibt´s dafür eine Lösung? Und wenn´s sowas wie Strg+Alt+Shift+AltGr+F12+Maus ist, egal
Hallo Kristian,
ich hab mal alle denkbaren Kombinationen ausprobiert, es geht nix!
Bleibt nur, die Markierung neu und richtig anzufangen oder den falschen Bereich mit zu formatieren und dann rückgängig zu machen.
Oder… konzentriert arbeiten!
eine Korrekturmöglich mit der Maus gibt’s meines Wissens nach nicht. Du kannst lediglich bei gedrückter SHIFT-Taste mit den Pfeiltasten den LETZTEN markierten Bereich nochmal verändern.
gelegentlich markiere ich mit der Maus größere zerpflückte
Bereiche, um sie z.B. gleich zu formatieren. Wenn mir nun beim
Markieren ein Fehler unterläuft und eine Zelle mit markiert
wird, die eigentlich nicht vorgesehen war, kriegen ich sie
nicht wieder deaktiviert! Gibt´s dafür eine Lösung? Und
wenn´s sowas wie Strg+Alt+Shift+AltGr+F12+Maus ist,
egal
wenn du das folgende Makro auf Strg+T legst )
Hi Kristian,
probier mal das folgende Makro aus, gelegentlich funktioniert es einwandfrei aber es gibt auch Fehlermeldungen. Meiner Meinung nach weil Excel beim Markieren mehrfach markiert.
Man denkt man hat zwei Bereiche markiert, aber es können mehr Areas sein.
z.B. Sichtbar markiert ist A1:A3 und B1:B4, aber Areas können dann sein A1:A3 und B1:B4 UND A1 und B2 oder so, dann bricht das addcomment zusammen weil da schon ein comment steht in A1.
Dies müßtest du noch abfangen.
Wenn du in deinen Tabellen Kommentare benutzt klappt das Makro so nicht, du könntest dann aber bei SpecialCells nachschauen ob es da was gibt anstelle von Kommentaren entsprechend der Makrologik.
Gruß
Reinhard
Sub AktiveZelleAusMarkierungEntfernen()
'msgbox selection.areas.count
For Each ar In Selection.Areas
'msgbox ar.address
For Each ce In ar
'msgbox ce.address
If ActiveCell.Address ce.Address Then ce.AddComment ("geht nicht, gibts nicht")
Next ce
Next ar
ActiveSheet.Cells.SpecialCells(xlCellTypeComments).Select
Selection.ClearComments
End Sub