Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: -----> Wiederbelebt: Aktien-Forum <-
letzte beschrieben Zeile feststellen
zurück: [Erledigt] Fehlermeldung mit AddComment weiter: Fritz Fax +Excel Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
dera
Excel/VBA Learning by Doing


Verfasst am:
31. Aug 2008, 18:37
Rufname:

letzte beschrieben Zeile feststellen - letzte beschrieben Zeile feststellen

Nach oben
       Version: Office 2003

Hallo
Wie kann man ohne viel "Do Loop oder For Next" die letzte beschriebene Zeile feststellen? Ich hatte da schon mal eine einfache Lösung für, die habe ich aber vergessen und finde Sie einfach nicht wieder.

dera
< Peter >
Excel-Moderator, der immer noch dazu lernt


Verfasst am:
31. Aug 2008, 18:43
Rufname: Kommt darauf an wer ruft
Wohnort: Das schönste Land in Deutschlands Gaun


AW: letzte beschrieben Zeile feststellen - AW: letzte beschrieben Zeile feststellen

Nach oben
       Version: Office 2003

Hallo,

für die Spalte A würde sowas funktionieren:

Sub LetzteZeile1()
lRow1 = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox lRow1
End Sub

_________________
Gruß
Peter
dera
Excel/VBA Learning by Doing


Verfasst am:
31. Aug 2008, 19:08
Rufname:

AW: letzte beschrieben Zeile feststellen - AW: letzte beschrieben Zeile feststellen

Nach oben
       Version: Office 2003

Hallo Peter
Geht das nur für einzelne Spalten? Gibt es das nicht fürs ganze Worksheet egal in welcher Spalte der letzte Zeilen-Eintrag steht?

dera
< Peter >
Excel-Moderator, der immer noch dazu lernt


Verfasst am:
31. Aug 2008, 19:16
Rufname: Kommt darauf an wer ruft
Wohnort: Das schönste Land in Deutschlands Gaun

AW: letzte beschrieben Zeile feststellen - AW: letzte beschrieben Zeile feststellen

Nach oben
       Version: Office 2003

Hallo,

dann vielleicht so>

Code:
Sub LetzteGefüllteZelle()
'Quelle: Frank Arendt-Theilen
Dim rngZelle As Range
  Set rngZelle = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell)
  If rngZelle.Value = "" Then
    MsgBox "Die letze Zelle ist: " & rngZelle.End(xlToLeft).Address
  Else
    MsgBox "Die letze Zelle ist: " & rngZelle.Address
  End If
End Sub

_________________
Gruß
Peter
r.mueller
Gast


Verfasst am:
31. Aug 2008, 19:39
Rufname:


AW: letzte beschrieben Zeile feststellen - AW: letzte beschrieben Zeile feststellen

Nach oben
       Version: Office 2003

Hallo

siehe:

Code:
http://www.vb-fun.de/vb/tipps/tip0342.shtml


Gruß
r.mueller
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Formeln automatisch in neu eingefügte Zeile übertragen 3 Ferencz 1720 27. Feb 2006, 15:22
Klaus-Dieter Formeln automatisch in neu eingefügte Zeile übertragen
Keine neuen Beiträge Excel Formeln: Bestimmte Zeile summieren 2 Enkel Abrahams 678 09. Dez 2005, 11:37
Enkel Abrahams Bestimmte Zeile summieren
Keine neuen Beiträge Excel Formeln: in Zeile aus Spalten schreiben??? 6 robert_de 2311 25. Nov 2005, 12:10
robert_de in Zeile aus Spalten schreiben???
Keine neuen Beiträge Excel Formeln: Zahlen in einer Zeile auswerten nach den Größtwerten 11 Nicole-Fun 905 26. Okt 2005, 09:44
ransi Zahlen in einer Zeile auswerten nach den Größtwerten
Keine neuen Beiträge Excel Formeln: SUMMEWENN mit Suchkriterium Datum;Datum nach jeder Zeile +1? 4 homer_134 3720 20. Sep 2005, 23:48
homer_134 SUMMEWENN mit Suchkriterium Datum;Datum nach jeder Zeile +1?
Keine neuen Beiträge Excel Formeln: Autofilter funktioniert nur bis Zeile 143?? 2 landau666 886 07. Sep 2005, 21:10
landau666 Autofilter funktioniert nur bis Zeile 143??
Keine neuen Beiträge Excel Formeln: Wenn Bedingung Zeile kopieren 1 marco1 1625 28. Jul 2005, 14:04
Günni Wenn Bedingung Zeile kopieren
Keine neuen Beiträge Excel Formeln: Formatierung einer Zeile wenn das Wort CL vorkommt 13 Kemal76 2051 22. Jul 2005, 14:55
Kemal76 Formatierung einer Zeile wenn das Wort CL vorkommt
Keine neuen Beiträge Excel Formeln: automatisch eine zeile einfügen... 4 nichtswisser 2147 17. Mai 2005, 10:36
fl618 automatisch eine zeile einfügen...
Keine neuen Beiträge Excel Formeln: Wenn Bedingung ganze Zeile in endere Arbeitsmappe kopieren 2 Unregistered7 1546 05. Mai 2005, 22:32
Gast Wenn Bedingung ganze Zeile in endere Arbeitsmappe kopieren
Keine neuen Beiträge Excel Formeln: Formel für Zusammenzählen jeder zweiten Zelle einer Zeile 2 toto_225 812 11. März 2005, 12:04
toto_225 Formel für Zusammenzählen jeder zweiten Zelle einer Zeile
Keine neuen Beiträge Excel Formeln: Summe mit automat. Hochzählen der Zeile 7 Excellehrling_Tom 1535 09. März 2005, 15:40
Excellehrling_Tom Summe mit automat. Hochzählen der Zeile
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum