Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Range("A1").Select für Worksheet

Forumthread: Range("A1").Select für Worksheet

Range("A1").Select für Worksheet
11.04.2025 11:56:03
Lutz
Hallo,

mit einem "normalen" Makro komme ich zu A1 mit Range("A1").Select.

Kann mir jemand für Private Sub Worksheet_SelectionChange(ByVal Target As Range) den entsprechenden Code sagen, damit es da auch läuft?

Vielen Dank
Gruß Lutz

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range("A1").Select für Worksheet
11.04.2025 12:02:30
Oberschlumpf
Hi Lutz

du kannst dann aber keine andere Zelle mehr auswählen, bzw bei Auswahl - jeder anderen - Zelle wird - immer - Zelle A1 ausgewählt.

Willst du das wirklich?
Dann so:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Range("A1").Select
Application.EnableEvents = True
End Sub

Hilfts?

Ciao
Thorsten
Anzeige
AW: Range("A1").Select für Worksheet
11.04.2025 12:28:36
Lutz
Hallo Thorsten,

Die Sache sieht so bei mir aus, wenn ich in Tabelle1 bin:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address(0, 0) = "A7" Then
ActiveWindow.SmallScroll Down:=-50
Sheets("Tabelle2").Select
Range("A1").Select 'zu Zelle A1
End If

Tabelle2 wird aufgerufen. Range("A1").Select ist ab da der falsche Code.


Anzeige
AW: Range("A1").Select für Worksheet
11.04.2025 12:45:14
daniel
Hi

wenn sich der Code in einen Tabellenblattmodul befindet (und dort muss dieses Makro liegen, damit es funktioniert), dann ist das "Default"-Sheet nicht das ActiveSheet, sondern das Sheet des jeweiligen Moduls.
dh in diesen Eventmakros referenzieren alle Range und Cells ohne Tabellenblattangabe nicht auf das aktive Tabellenblatt, sondern auf das Tabellenblatt des Moduls.

dh du musst auch beim Select das Tabellenblatt explizit angeben:
entweder allgemein:
Sheets("Tabelle2").Select

ActiveSheet.Range("A1").Select 'zu Zelle A1

oder speziell
Sheets("Tabelle2").Select

Sheets("Tabelle2").Range("A1").Select 'zu Zelle A1

oder du springst in einem Schritt hin
Application.Goto Sheets("Tabelle2").Range("A1")


Gruß Daniel
Anzeige
AW: Range("A1").Select für Worksheet
11.04.2025 14:36:24
Lutz
Daniel Danke!
AW: Range("A1").Select für Worksheet
11.04.2025 12:51:37
Marc
Du hast zwar Tabelle 2 Selectet
aber nicht aktiviert

da ist der fehler
AW: Range("A1").Select für Worksheet
11.04.2025 13:22:38
GerdL
dh in diesen Eventmakros referenzieren alle Range und Cells ohne Tabellenblattangabe nicht auf das aktive Tabellenblatt, sondern auf das Tabellenblatt des Moduls.

Dies ist der entscheidende Satz in Daniels Antwort.
Ob ein Worksheet mit Activate oder Select angesprochen wird, ist egal.
Anzeige
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18