Zur letzten Zeile springen ...

Forumthread: Zur letzten Zeile springen ...

15.05.2002 11:58:11

Steph@n

hallo,

ich habe folgendes Coding für die Aufgabe, die letzte gefüllte Zeile einer bestimmten Spalte zu ermitteln:

intZlNr = Range("A" & Rows.Count).End(xlUp).Row

Um flexibler zu werden, wollte ich das Coding so verändern, dass ich nicht jedesmal die Spalte (hier "A") eintragen muss, sondern dass diese automatisch aufgrund eines bestimmten Bereichs ermittelt wird. Also habe ich das Coding wie folgt umgestellt, was aber leider nicht funktioniert!

intZlNr = Range(Range("CellFB").Column & Rows.Count).End(xlUp).Row

Kann mir jemand helfen?

Gruss Steph@n

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Zur letzten Zeile springen ...

15.05.2002 13:31:20

sam
Danke, das funzt! :o) o.T.

15.05.2002 14:16:03

Steph@n

Re: Zur letzten Zeile springen ...

15.05.2002 13:31:20

sam

Hi,

die Eigenschaft column liefert die Spalte als Zahl. Du brauchst die Spalte beim Range-Objekt aber als Buchstabe. Als Alternative schlage ich vor, dass du nicht das Range-Objekt sondern das Cells-Objekt nimmst, das mit Zahlen arbeitet.

intzlnr = Cells(rows.count, Range("CellFB").Column).End(xlUp).Row

cu,
Sam

Danke, das funzt! :o) o.T.

15.05.2002 14:16:03

Steph@n

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um in Excel zur letzten beschriebenen Zeile zu springen, kannst Du verschiedene Methoden anwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

Mit der Maus:
- Klicke auf die Zelle in der ersten Spalte, von der Du die letzte gefüllte Zeile ermitteln möchtest.
- Drücke Strg + Pfeil nach unten. Du springst nun zur letzten gefüllten Zeile in dieser Spalte.
Mit einer VBA-Makro:
- Öffne den VBA-Editor mit Alt + F11.
- Füge ein neues Modul hinzu.
- Nutze den folgenden Code, um zur letzten gefüllten Zeile zu springen:
```
Sub GeheZuLetzteZeile()
 Dim intZlNr As Long
 intZlNr = Range("A" & Rows.Count).End(xlUp).Row
 Range("A" & intZlNr).Select
End Sub
```
Mit der Excel-Funktion:
- Du kannst auch die Funktion =MAX(WENN(A:A<>"",ZEILE(A:A))) verwenden, um die letzte Zeile mit einem Wert zu finden (drücke Strg + Shift + Enter für Array-Formel).

Häufige Fehler und Lösungen

Fehler: Excel springt nicht zur letzten Zeile.
- Lösung: Stelle sicher, dass in der Spalte, die Du überprüfst, tatsächlich Daten vorhanden sind.
Fehler: Der VBA-Code funktioniert nicht.
- Lösung: Überprüfe, ob Du den richtigen Bereich angibst. Die Variable Range("CellFB") sollte auf eine gültige Zelle verweisen. Nutze stattdessen Cells(Rows.Count, Range("CellFB").Column).

Alternative Methoden

Shortcut-Tasten:
- Drücke Strg + Ende, um zur letzten Zelle zu springen, die Daten enthält. Dies kann nützlich sein, wenn Du zum Ende einer Spalte springen möchtest.
Oberste Zeile einblenden:
- Wenn die oberste Zeile verschwunden ist, kannst du sie wieder einblenden, indem Du auf die Zeilennummern klickst und die Zeilenhöhe anpasst.

Praktische Beispiele

Letzte gefüllte Zeile in einer bestimmten Spalte ermitteln:
- Angenommen, Du möchtest zur letzten gefüllten Zeile in Spalte B springen. Verwende:
```
intZlNr = Range("B" & Rows.Count).End(xlUp).Row
```
Letzten Wert in einer Spalte finden:
- Um den letzten Wert in Spalte C zu ermitteln und anzuzeigen:
```
MsgBox Cells(Range("C" & Rows.Count).End(xlUp).Row, 3).Value
```

Tipps für Profis

Automatisierung: Erstelle ein Makro, das automatisch zur letzten Zeile springt, wenn Du ein Arbeitsblatt öffnest. Dies kann Zeit sparen.
Verwendung von Application.Goto: Du kannst auch die Methode Application.Goto verwenden, um direkt zur letzten beschriebenen Zeile zu springen:
```
Application.Goto Cells(Rows.Count, "A").End(xlUp)
```

FAQ: Häufige Fragen

1. Wie kann ich in Excel zur letzten Zeile springen, wenn ich einen bestimmten Bereich habe? Du kannst den Bereich angeben und dann die End(xlUp)-Methode verwenden, um die letzte Zeile in diesem Bereich zu finden.

2. Was kann ich tun, wenn die oberste Zeile verschwunden ist? Wenn die Zeile 1 nicht sichtbar ist, könnte sie ausgeblendet sein. Klicke mit der rechten Maustaste auf die Zeilenüberschrift und wähle „Einblenden“.

3. Gibt es eine Möglichkeit, das Springen zur letzten Zeile zu automatisieren? Ja, Du kannst ein VBA-Makro erstellen, das diese Funktionalität bietet und es bei Bedarf ausführen.

Beliebteste Forumthreads (12 Monate)