Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
16.04.2024 16:22:58
Pivot
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
348to352
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
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellkoordinaten

Zellkoordinaten
12.12.2003 09:54:21
MikeS
Hallo,

wie kann ich die letzte, bzw. erste Zelle eines markierten Bereichs auslesen?

z.B. markierter Bereich = C5:F12

erste Zelle = C5

letzte Zelle = F12

Vielen Dank

MikeS

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellkoordinaten
12.12.2003 10:37:21
Boris
Hi Mike,

so in der Art:

Option Explicit


Sub adressen()
Dim S As String, firstAddr As String, lastAddr As String
S = Selection.Address(0, 0)
If InStr(1, S, ",") > 0 Then
MsgBox "Mehrfachmarkierung. Keine Angabe möglich."
Exit Sub
End If
If Selection.Cells.Count > 1 Then
firstAddr = Left(S, InStr(1, S, ":") - 1)
lastAddr = Mid(S, InStr(1, S, ":") + 1)
Else
firstAddr = S
lastAddr = S
End If
MsgBox "Erste Adresse: " & firstAddr & Chr(10) _
& "Letzte Adresse: " & lastAddr
End Sub


Grüße Boris
funzt perfekt
12.12.2003 10:42:03
MikeS
Hallo Boris,

vielen Dank für Deine Hilfe.

Ciao MikeS
Anzeige
AW: Zellkoordinaten
12.12.2003 10:42:29
Eugen
Hallo Mike,

mit diesem Code hast du die Koordinaten der ersten und der letzten Zelle in einer Variable.

varFirst = ActiveWindow.RangeSelection.Address(False, False)

Gruß Eugen

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige