Gezählte Zeilen einfügen

Forumthread: 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

AW: Gezählte Zeilen einfügen

20.11.2019 14:16:06

Hajo_Zi
AW: Gezählte Zeilen einfügen

20.11.2019 14:45:12

Cyrill
AW: Gezählte Zeilen einfügen

20.11.2019 14:54:12

Luschi
AW: Gezählte Zeilen einfügen

20.11.2019 15:08:24

Cyrill
AW: Gezählte Zeilen einfügen

20.11.2019 14:45:13

Luschi

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

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

Beliebteste Forumthreads (12 Monate)

Forumthread: Gezählte Zeilen einfügen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread