Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Finde letzte ausgefüllte Zeile - Anzahl ausgeben

Forumthread: Finde letzte ausgefüllte Zeile - Anzahl ausgeben

Finde letzte ausgefüllte Zeile - Anzahl ausgeben
12.11.2016 07:43:56
Silke
Hallo,-Excel-Helfer,
suche nach einer VBA- Möglichkeit um aus einem Tabellenblatt mit dem Namen (Aufstellung) die ausgefüllten Zeilen von oben ab der Zeile 5 nach unten auszuzählen, um den Wert (Anzahl) in ein anderes Tabellenblatt mit dem Namen (Auswertung) in die Zelle A4 eingetragen zu bekommen.
Aber so richtig will mein Code nicht. es fehlt auch noch Range("A4")
  • 
Sub Zeilen_Auszählen_ab5
ActiveSheet.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End Sub

    • MfG Silke
    Anzeige

    4
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Finde letzte ausgefüllte Zeile - Anzahl ausgeben
    12.11.2016 09:06:35
    CitizenX
    Hi,
    füge im VBA Editor ein neues Modul ein und kopiere folden Code
    Option Explicit
Sub countCells()
Dim i&, lastRow As Object, filledCells, counter&
Const START_ROW = 5
With Sheets("Aufstellung")
Set lastRow = .Cells.Find(What:="*", After:=.Cells(.Rows.Count, 1).End(xlUp), LookIn:= _
xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
If Not lastRow Is Nothing Then
For i = START_ROW To lastRow.Row
On Error Resume Next
filledCells = .Rows(i).SpecialCells(xlCellTypeConstants)
If Err.Number = 0 Then
counter = counter + 1
End If
Next
End If
End With
Sheets("Auswertung").Range("A4") = counter
End Sub
    Er gibt dir die Anzahl der gefüllten Zeilen in deinem Blatt "Aufstellung" aus
    VG
    Steffen
    Anzeige
    AW: Finde letzte ausgefüllte Zeile - Anzahl ausgeb
    12.11.2016 09:33:57
    Silke
    Guten Morgen Steffen.
    Ganz toll schon mal.
    herzlichen Dank für Deine schnelle Hilfe, funktioniert.
    Habe gemerkt, das wenn nicht alle Zellen in der letzten Zeile ausgefüllt sind z.B. A:B:C leer- und ab D-W erst ein Wert eingetragen ist , wird diese Zeile nicht mehr mit gezählt. Kann man das noch ändern, so das auch die Zeile mit gezählt wird, unabhängig von der Spalte? Vielleicht absolut letzte ausgefüllte Zeile?
    LG Silke
    Anzeige
    AW: Finde letzte ausgefüllte Zeile - Anzahl ausgeb
    12.11.2016 10:06:59
    CitizenX
    Hallo Silke,
    Fehler in der Find Methode,ersetze : 
    Set lastRow = .Cells.Find(What:="*", After:=.Cells(.Rows.Count, 1), LookIn:=xlValues, LookAt:=  _
_
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
, SearchFormat:=False)
    VG
    Steffen
    Anzeige
    AW: Finde letzte ausgefüllte Zeile - Anzahl ausgeb
    12.11.2016 11:00:06
    Silke
    Bin begeistert, Steffen.
    ganz großes Lob. Es funktioniert tadellos.
    Prima
    LG Silke

    Forumthreads zu verwandten Themen

    Letzte beschriebene Zeile suchen
    Thomas3

    Guten Morgen zusammen,
    ich muß aus über 1000 Listen Daten auslesen. Das ist kein Problem.
    Jede Liste sollte so beschrieben werden, dass ab Zeile 13 bis je nach Eintragungen x-Zeile Spalte O gefüllt ist.
    In der Spalte 1 ist in der Datenliste eine Formel hinterlegt, die sichtbar aut...
    19.08.2008 08:29:00
    Thread-ID: 1002780
    10 Beiträge
    Anzeige
    Letzter Wert einer Spalte (Matrixformel)
    {mskro}

    Hallo Excelaner,
    ich benötige mal wieder eine Hilfestellung.
    Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
    Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
    =INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
    Nur wird...
    28.08.2008 09:59:21
    Thread-ID: 1005303
    9 Beiträge
    Sortieren bis zum letzten Eintrag
    Werner

    Hallo allerseits,
    habe ein Problem beim Sortieren einer Tabelle. Diese besteht aus Zellen von A2:X200.
    A:A =Lfd.-Nr. B:B Vorname, Name C:C Familienname ....
    Zellen der Spalte C beinhalten Formel zum Trennen aus Einträgen der Spalte B.
    Nach Markierung Bereich A2:X200 und ansch...
    09.09.2008 20:45:00
    Thread-ID: 1008577
    6 Beiträge
    aktive Zelle soll in Spalte "L" springen
    Karsten

    Hallo... ,
    Suche folgenden Makrobefehl:
    Die aktive Zelle soll in der Zeile bleiben, in der sie sich befindet, allerdings nach Spalte "L" springen.
    Danke für eure Hilfe!
    Gruß
    Karsten
    03.10.2008 16:34:44
    Thread-ID: 1014058
    3 Beiträge
    ans ende einer Tabelle
    steffen

    Hallo in die Runde,
    wie bekomme ich es hin, dass mir beim aktivieren einer Tabelle das Ende der Tabelle angeziegt wird.
    Ich habe die Zeile 1 fixiert und muss jedes mal runtersrollen.
    versucht habe ich es hiermit, jedoch ohne gewünschtem erfolg; der Cursor steht zwar ganz unten, ich...
    13.10.2008 10:49:08
    Thread-ID: 1015962
    4 Beiträge
    VBA - Summe unter letzter Zeile bilden
    mgr

    hallihallo!
    ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
    ich habe eine tabelle mit einer variablen anzahl von ze...
    07.11.2008 13:39:07
    Thread-ID: 1022657
    3 Beiträge
    Max,Min, Mittelwert von letzter Zeile
    letzter

    Hallo
    Ich habe in einer Tabelle Temperaturwerte die jeden Tag ergänzt werden. Nun möchte ich für den jeweils letzten eingetragenen Tag die Min, Max und Mittelwerte angezeigt bekommen. Kann ich das ohne VBA mit den Excel Funktionen lösen, das immer die letzte Zeile verwendet wird?
    Zude...
    08.01.2009 08:53:00
    Thread-ID: 1037754
    3 Beiträge
    VBA letzte Zeile Ermitteln
    Gerhard

    Hallo!
    Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
    intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
    Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
    14.01.2009 17:52:00
    Thread-ID: 1039758
    5 Beiträge
    Anzeige
    In erste freie Spalte springen
    Thomas

    Hallo Exelgemeinde,
    Ich möchte per Schaltbutton in die erste freie Spalte im Bereich CU 8 bis GF 8 springen.
    Ist das möglich, und wie müßte das Makro dafür sein ?
    Wäre schön wenn mir jemand weiterhelfen könnte.
    Gruß Thomas
    19.01.2009 16:48:17
    Thread-ID: 1041558
    3 Beiträge
    nach letzter beschriebener Zeile einfügen
    lisa

    Hallo zusammen
    Ich habe einen kopierten Datensatz, der in eine neue Tabelle1 ind die nächste frei Zeile eingefügt werden soll.
    Hat hier jemand eine Idee, wie ich die erste freie Zelle in Spalte a finden kann und dort dann die Werte eingefügt werden?
    Liebe Grüße Lisa
    03.02.2009 17:36:42
    Thread-ID: 1046730
    8 Beiträge
    Anzeige
    Hilfe zu letzter zeile (xlUp) aus Bereich
    chris

    Hallo VBA experten,
    habe schon versucht im Forum zu suchen finde aber nichts passendes.
    Ich benötige die letzte zeile aus einem Bereich.
    Die letzte zeile also Zelle einer Spalte ist kein Problem.Das mache ich so:
    Sub neu() MsgBox ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row...
    12.02.2009 10:53:00
    Thread-ID: 1049939
    5 Beiträge
    Spalte bis zur letzten Zeile mit akt. Datum füllen
    Stefan

    Hallo,
    ich habe eine Tabelle mit mehreren gefüllten Spalten (z.B. A, C, E, F) und leeren Spalten dazwischen.
    Nun möchte ich Spalte I mit dem aktuellen Datum füllen, und zwar bis zur letzten gefüllten Zeile einer Spalte mit Inhalt.
    Wie gehe ich da am besten vor?
    Die gefüllten Spa...
    03.03.2009 13:35:30
    Thread-ID: 1055961
    4 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

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