Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Lage des Selektionsbereichs

Forumthread: Lage des Selektionsbereichs

Lage des Selektionsbereichs
01.07.2004 15:40:34
Sabine
Hallo alle zusammen,
ich habe ein kleines Problem. Ich versuche einen Makro zu programmieren, der markierte Zellen mit einer bestimmten (vorgegebenen) Spalte vergleicht. Es sollen aber nur Werte verglichen werden, die in der gleichen Zeile stehen.
Ich habe den Makro fast fertig. Es fehlt nur noch die Funktion, mit der ich die (vertikale) Lage des Selektionsbereiches erhalte. z.B. ein Vektor (2,5) d.h. die Markierung beginnt in Zeile 2 und endet in Zeile 5.
Gibt es sowas uberhaupt?
Ich habe es schon über Selection.Address versucht. Ich weiß allerdings nicht, wie ich den Wert auswerten könnte!?!
Kann mir bitte jemand helfen?
Vielen Dank bereits im Voraus!
Viele liebe Grüße
Sabine
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Lage des Selektionsbereichs
Anders
Hallo,
ersteZeile=Selection.Row
letzteZeile=Selection.Row+Selection.Rows.Count-1
Grüße
Anders
AW: Lage des Selektionsbereichs
Worti
Hallo Sabine,
so geht's:


Sub ZeilenimSelektiertenBereich()
   Dim ErsteSelektierteZeile As Long
   Dim LetzteSelektieretZeile As Long
   
   ErsteSelektierteZeile = Selection.Row
   LetzteSelektieretZeile = Selection.Rows.Count + ErsteSelektierteZeile - 1
End Sub


Worti
Anzeige
AW: Lage des Selektionsbereichs
Ingo
Hiermit bekommst Du die erste und letzte zeile deines markierten Bereiches.

Sub vertikale_lage()
Dim rng As Range
Dim erstezeile As Integer, letztezeile As Integer
Set rng = Selection
erstezeile = rng.Rows(1).Row
letztezeile = rng.Rows.Count + erstezeile - 1
End Sub

m f G
Ingo Christiansen
Anzeige
AW: Lage des Selektionsbereichs
Ingo
Hiermit bekommst Du die erste und letzte zeile deines markierten Bereiches.

Sub vertikale_lage()
Dim rng As Range
Dim erstezeile As Integer, letztezeile As Integer
Set rng = Selection
erstezeile = rng.Rows(1).Row
letztezeile = rng.Rows.Count + erstezeile - 1
End Sub

m f G
Ingo Christiansen
Anzeige
AW: Lage des Selektionsbereichs
Sabine
Vielen Dank, werde ich gleich ausprobieren!
Viele liebe Grüße
Sabine
AW: Lage des Selektionsbereichs
Sabine
Hat wunderbar geklappt!
Vielen herzlichen Dank!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige