Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilennummer innerhalb markierter Range ermitteln

Forumthread: Zeilennummer innerhalb markierter Range ermitteln

Zeilennummer innerhalb markierter Range ermitteln
31.08.2004 13:54:50
Heinz
Hallo,
ich würde gerne die erste und letzte Zeilennummer eines markierten
Bereiches ermitteln. Selection.Address gibt mir den Bereich in
Form eines Range-Objektes zurück; damit kann ich nichts anfangen,
ich brauche einfach nur die Zeilennummer in Form einer Zahl.
Kann mir da jemand helfen ?
Vielen Dank,
Heinz
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilennummer innerhalb markierter Range ermitteln
Bert
msgbox selection.column
Ergibt die erste Spalte der Selektion.
Bert
AW:!!!!Zeile!!!!nnummer !!!!!!! ot
zeile
-
msgbox selection.Row
Bert
oT
Anzeige
AW: Zeilennummer innerhalb markierter Range ermitteln
ypsilon
hi Heinz,

Sub test()
strAdresse = Selection.Address(RowAbsolute:=False, ColumnAbsolute:=False)
FirstRow = Range(Selection.Address).Row
LastRow = Range(Selection.Address).Row + Selection.Rows.count - 1
FirstColumn = Range(Selection.Address).Column
LastColumn = Range(Selection.Address).Column + Selection.Columns.count - 1
End Sub

cu Micha
Anzeige
AW: Zeilennummer innerhalb markierter Range ermitteln
WernerB.
Hallo Heinz,
wie gefällt Dir das?

Sub Heinz()
Dim Bereich As String, lo As String, ru As String
Dim zo As Long, zu As Long
Dim sl As Integer, sr As Integer
Bereich = Selection.Address(False, False)
lo = Left(Bereich, InStr(Bereich, ":") - 1)             'links oben
ru = Right(Bereich, Len(Bereich) - InStr(Bereich, ":")) 'rechts unten
zo = Range(lo).Row                                      'Zeile oben
zu = Range(ru).Row                                      'Zeile unten
sl = Range(lo).Column                                   'Spalte links
sr = Range(ru).Column                                   'Spalte rechts
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Zeilennummer innerhalb markierter Range ermitteln
31.08.2004 15:02:35
Heinz
Excellent !
Vielen Dank !!
;
Anzeige
Anzeige

Infobox / Tutorial

Zeilennummer innerhalb einer markierten Range ermitteln


Schritt-für-Schritt-Anleitung

Um die Zeilennummer innerhalb einer markierten Range in Excel zu ermitteln, kannst du den folgenden VBA-Code verwenden. Dieser Code hilft dir, die erste und letzte Zeilennummer der Auswahl zu bestimmen.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
  3. Füge den folgenden Code ein:
Sub ZeilennummerErmitteln()
    Dim Bereich As String, lo As String, ru As String
    Dim zo As Long, zu As Long

    Bereich = Selection.Address(False, False)
    lo = Left(Bereich, InStr(Bereich, ":") - 1) 'links oben
    ru = Right(Bereich, Len(Bereich) - InStr(Bereich, ":")) 'rechts unten
    zo = Range(lo).Row 'Zeile oben
    zu = Range(ru).Row 'Zeile unten

    MsgBox "Erste Zeilennummer: " & zo & vbCrLf & "Letzte Zeilennummer: " & zu
End Sub
  1. Schließe den VBA-Editor und gehe zurück zu deinem Excel-Arbeitsblatt.
  2. Markiere einen Bereich und führe das Makro aus, um die Zeilennummern anzuzeigen.

Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 1004: Anwendung oder Objekt definiert."

    • Lösung: Stelle sicher, dass du einen Bereich in Excel markiert hast, bevor du das Makro ausführst.
  • Fehler: "Falsche Zeilennummer wird angezeigt."

    • Lösung: Überprüfe, ob du die richtige Auswahl getroffen hast. Der Code ermittelt die Zeilennummeren basierend auf der aktiven Auswahl.

Alternative Methoden

Wenn du keine VBA-Makros verwenden möchtest, kannst du die Zeilennummer auch manuell ermitteln:

  1. Wähle die gewünschte Zelle innerhalb des Bereichs aus.
  2. Schaue in die linke untere Ecke des Excel-Fensters. Dort wird dir die Zeilennummer angezeigt.
  3. Alternativ kannst du die Funktion =ZEILE() in eine Zelle eingeben, um die Zeilennummer der aktuellen Zeile zu erhalten.

Praktische Beispiele

  • Beispiel 1: Wenn du Zellen A1 bis A10 markierst, zeigt das Makro die erste Zeilennummer als 1 und die letzte Zeilennummer als 10 an.
  • Beispiel 2: Bei der Auswahl von Zellen B5 bis D15 wird die erste Zeilennummer als 5 und die letzte als 15 angezeigt.

Tipps für Profis

  • Nutze die Funktion Selection.Address in Kombination mit anderen Excel VBA-Funktionen, um noch detailliertere Informationen über den markierten Bereich zu erhalten.
  • Experimentiere mit Selection.Rows.Count und Selection.Columns.Count, um dynamische Berichte zu erstellen.
  • Achte darauf, die richtigen Datentypen in deinen Variablen zu verwenden, um Laufzeitfehler zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich die Zeilennummer für einen spezifischen Bereich ermitteln? Du kannst den VBA-Code anpassen, indem du den spezifischen Bereich in der Range()-Funktion angibst.

2. Funktioniert dieser Code in allen Excel-Versionen? Ja, der VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen, wie Excel 2010 und höher.

Beliebteste Forumthreads (12 Monate)

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