Excel VBA "Unselect" gesucht

Wählen Sie eine beliebige Zelle und schalten Sie CutCopy aus:

Range("A1").Select
  Application.CutCopyMode = False

In Excel ist immer etwas ausgewählt. Eine Umgehung ist erforderlich. Wenn Sie eine Zelle außerhalb des Bildschirms auswählen, wird der Fokus dorthin gesetzt, so dass dies an und für sich nicht funktionieren wird. Dieser Code setzt den Cursor außerhalb des Bildschirms und scrollt dann das Blatt wieder nach oben, um A1 anzuzeigen.

Sub NoSelect()    
  Range("BB100").Select
  ActiveWindow.SmallScroll up:=100
  ActiveWindow.SmallScroll ToLeft:=44
End Sub

Wenn Sie wirklich wollen, dass “nichts ausgewählt” wird, können Sie VBA verwenden, um das Blatt am Ende der Codeausführung zu schützen, was dazu führt, dass nichts ausgewählt wird. Sie können dies entweder zu einem Makro hinzufügen oder es direkt in Ihr VBA einfügen.

Sub NoSelect()
   With ActiveSheet
   .EnableSelection = xlNoSelection
   .Protect
   End With
End Sub

Sobald das Blatt ungeschützt ist, wird der Cursor eine Zelle aktivieren.

Es gibt einen trickreichen Weg, dies zu tun.

Erstellen Sie ein Objekt, z. B. eine Schaltfläche. Wählen Sie diese Schaltfläche aus und blenden Sie sie dann aus, damit keine Zelle ausgewählt wird.

ActiveSheet.Shapes("Button 1").Visible = True

ActiveSheet.Shapes("Button 1").Select

ActiveSheet.Shapes("Button 1").Visible = False

Das war’s.

Sehr alte Frage, aber meine Antwort als Referenz:

Sie können

With ActiveSheet
    .EnableSelection = xlNoSelection
    .Protect
End With
``` verwenden.

Abhängig von der Größe Ihrer Auswahl, um jegliche Artefakte loszuwerden (ich weiß nicht, ob dies auch ein Problem in Excel 2013 ist, aber auf dem Mac war es eine ständige Qual für mich), können Sie einfach Schleife durch Zelle für Zelle und wählen Sie jede.

Durch das Ausschalten der Bildschirmaktualisierung vor der Auswahl einer Zelle wird der Bildlauf zu ausgewählten Zellen vorübergehend deaktiviert.

Dieser Code prüft, welche Zellen aktuell sichtbar sind und wählt die erste Zelle unterhalb des sichtbaren Bereichs aus, die nicht in der Ansicht ist. Z.B., wenn ich es versuche: Der sichtbare Bereich ist A1:BC79, also wählt dieser Code A80 aus und wenn ich nach unten und rechts scrolle und ihn erneut ausführe, wählt Excel die erste Zelle unterhalb der ersten sichtbaren Spalte aus, die nicht sichtbar ist.

Dim r As Range Application.ScreenUpdating = False Set r = Application.ActiveWindow.VisibleRange r(r.Cells.Count + 1).Select Application.ScreenUpdating = True

Die einzige Lösung ist zu schummeln.

Spalte A und Zeile 1 ausblenden

Cursor in A1 setzen. Es erscheint ein kleiner Punkt in der Ecke von B2

Verwenden Sie einen Trick: Fügen Sie eine Form hinzu, wählen Sie sie dann aus und blenden Sie sie aus.

Quellcode hierfür ist in Antwort auf eine andere Frage auf dieser Seite.