Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1724to1728
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
Inhaltsverzeichnis

Gezählte Zeilen einfügen

Gezählte Zeilen einfügen
20.11.2019 13:59:54
Cyrill
Hallo Zusammen
Ich hab bis jetzt nichts im Netz gefunden zu diesem Thema.
Ich zähle die Gefilterten Zeilen über folgenden code:
Sub TEST()
DIM Zeilen as Long, LetzteZeile as Long
With ActivSheet
LetzteZeile = Cells(Rows.Count, 1).End(x1Up).Row
Zeilen = WorksheetFunction.Aggregate(3,3,ThisWorkbook.ActiveSheet.Range("A2:A600000")
Nun möchte ich die ermittelte Anzahl der angezeigten Zeilen in ein neue Zeile einfügen.
Wenn ich mir eine MsgBox erstelle kommt die richtige anzahl der Zeilen und funktioniert.
Ich bin für jeden Tip dankbar.
Grüsse
Cyrill

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gezählte Zeilen einfügen
20.11.2019 14:16:06
Hajo_Zi
Rows(245)=Zeilen

AW: Gezählte Zeilen einfügen
20.11.2019 14:45:12
Cyrill
Hi,
Danke für den Input. So konnte ich es berichtigen ;)
AW: Gezählte Zeilen einfügen
20.11.2019 14:54:12
Luschi
Hallo Cyrill,
Du willst uns doch nicht etwa damit sagen, daß Du Hajos total stussigen Code (wenn man das so überhaupt bezeichenen darf) angewendet hast! - na dann herzlichen Glückwunsch für 16.384 (tausend) sinnlose Informationen in Zeile 245 oder in welcher Zeile sonst noch immer.
Gruß von Luschi
aus klein-Paris
AW: Gezählte Zeilen einfügen
20.11.2019 15:08:24
Cyrill
Hi Luschi,
Nein, aber es war ein denk anstoss und den konnte ich nun verwenden :)
Manchmal sieht man vor lauter Wald den Baum nicht mehr.
Gruss
Anzeige
AW: Gezählte Zeilen einfügen
20.11.2019 14:45:13
Luschi
Hallo Cyrill,
dieser gepostete Vba-Code ist nicht lauffähig:
- x1Up (sprich xEinsUp) statt xlUp
- End With / End Sub fehlen
- With ActiveSheet hat keine Wirkung, da kein Objekt darauf Bezug nimmt
- deshalb so:

Sub TEST()
Dim Zeilen As Long, LetzteZeile As Long
With ActiveSheet
LetzteZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
Zeilen = WorksheetFunction.Aggregate(3, 3, .Range("A2:A600000"))
End With
Debug.Print Zeilen
End Sub
Beachte die Punkte vor Cells und Range - mein Code würde dagegen so aussehen:

Sub TEST_1()
Dim Zeilen As Long
Zeilen = ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlVisible).Count
Debug.Print Zeilen
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige