Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1480to1484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1480to1484
1480to1484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausgabe der aktiven Zelle des Cursers

Ausgabe der aktiven Zelle des Cursers
11.03.2016 09:01:48
Raphael
Hallo Excel Freunde,
habe im Internet recherchiert und herausgefunden das man sich mit "ActiceCell.Row" wohl die aktive Zeile ausgeben kann in der der Curser steht.
Geht das durch reine Selektion einer neuen Zelle (kein Eintrag) das diese immer ausgegeben wird im selben Arbeitsblatt (Bsp ich bewege den Curser irgendwo zwischen A1 und H999 und er soll in Zelle Z1 die Zeile ausgeben).
Wo muss dann der Code rein wenn er nur in diesem Tabellenblatt wirken soll?
Danke schon mal vorab
Raphael

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausgabe der aktiven Zelle des Cursers
11.03.2016 09:05:12
Michael
Hallo!
So: In das Klassenmodul des betreffenden Tabellenblattes (ReKlick auf Tabellenblatt-Reiter, Code anzeigen, dort einfügen)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:H999")) Is Nothing And _
Target.Cells.Count = 1 Then
Range("Z1").Value = Target.Row
End If
End Sub
LG
Michael

AW: Ausgabe der aktiven Zelle des Cursers
11.03.2016 09:07:32
Crazy
Hi
das gehört in das besagte Tabellenblattmodul 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngBereich As Range
Set rngBereich = Range("A1:H999")
If Not Intersect(Target, rngBereich) Is Nothing Then
Range("Z1").Value = Target.Row
End If
End Sub

MfG Tom

Anzeige
AW: Ausgabe der aktiven Zelle des Cursers
11.03.2016 09:14:37
Raphael
Hallo Michael und CrazyTom,
vielen Dank für die schnelle Hilfe, klappt wunderbar.
Schönen Freitag noch und ein schönes Wochenende
Gruß
Raphael

Gern, Danke für die Rückmeldung, owT
11.03.2016 09:16:05
Michael

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige