Wenn ich bei Excel 2000 mehrere nicht angrenzende Zellen markieren möchte ohne die vorherige Markierung aufzuheben, drücke ich die Taste Strg.
Wenn ich versehentlich eine Zelle zuviel markiert habe, wie kann ich diese Markierung dann wieder rückgängig machen, ohne die Markierung der anderen Zellen aufzuheben?
Moin Demi,
Strg-Taste gedrückt halten und die entsprechende Zelle
nochmal anklicken.
Gruß
Rolf
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Moin Demi,
Strg-Taste gedrückt halten und die entsprechende Zelle
nochmal anklicken.Gruß
Rolf
hi Rolf,
hast du deinen Tip mal ausprobiert ?
cu Micha
geht aber leider nicht
Strg-Taste gedrückt halten und die entsprechende Zelle
nochmal anklicken.Gruß
Rolf
Genau das hatte ich auch gedacht. Diese Antwort hat mir bisher jeder gegeben, ist ja auch naheliegend.
Geht nur leider nicht 
Hallo,
eine Lösung ohne VBA fällt mir nicht ein, obwohl das nicht ausschliesst, das es eine gibt. Vielleicht mal die Auflistung der Tastenkombinationen in der Excelhilfe durchstöbern.
Folgende VBA-Prozedur hebt den letzten markierten Bereich wieder auf:
Sub LetzteMarkierungWeg()
Dim Zähler As Integer
Dim Aktauswahl As Range
Set Aktauswahl = Selection
If Aktauswahl.Areas.Count \> 1 Then
Aktauswahl.Areas(1).Select
For Zähler = 2 To Aktauswahl.Areas.Count - 1
Application.Union(Selection, Aktauswahl.Areas(Zähler)).Select
Next Zähler
End If
End Sub
Gruß, tester
…verflixt, Ihr habt Recht, bei 97 gings noch.
Sorry für die Falschmeldung.
Gruß
Rolf
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Lösung gefunden
Ich nochmal
Das konnte ich ja nicht auf mir sitzen lassen.
Da hatte schon jemand eine Lösung gebastelt.
Guckst Du hier: http://www.office-loesung.de/ftopic50163_0_0_asc.php
Funktioniert prima. Danke Thomas.
Gruß
Rolf
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi Demis,
in Modul1:
Option Explicit
Sub Rückgängig()
Dim Z, Bereich
If Selection.Cells.Count ActiveCell.Address Then Bereich = Bereich & "," & Z.Address
Next Z
'Application.EnableEvents = False
Range(Mid(Bereich, 2)).Select
'Application.OnUndo "Rückgängig: Letzte Zelle markieren", "Rückgängig"
'Application.EnableEvents = True
End Sub
in Tabelle1:
Private Sub Worksheet\_SelectionChange(ByVal Target As Excel.Range)
Application.OnUndo "Rückgängig: Letzte Zelle markieren", "Rückgängig"
End Sub
Gruß
Reinhard
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Es klappt
Das konnte ich ja nicht auf mir sitzen lassen.
Da hatte schon jemand eine Lösung gebastelt.
Guckst Du hier:
http://www.office-loesung.de/ftopic50163_0_0_asc.php
Funktioniert prima. Danke Thomas.Gruß
Rolf
Super, damit geht es, wenn auch ein bisschen umständlich, wenn man mehrere einzelne Zellen löschen möchte. Aber immer noch besser, als die ganze Markierung neu zu machen.
Vielen Dank an alle für die Hilfe
Demi
… wenn auch ein bisschen umständlich, wenn
man mehrere einzelne Zellen löschen möchte.
Moin Demi,
wenn Du mehrere einzelne Zellen aus der Markierung
nehmen willst, kannst Du wieder die Strg-Taste drücken
und die Zellen nacheinander mit der Maus anklicken.
Bei anschließendem Klick auf OK nimmt er alle
angeklickten Zellen aus der Markierung.
Gruß
Rolf