Office: Anzahl von Zeilen als Variable speichern

DomDom17 · 25. Oktober 2016

Hallo,

ich bin recht neu bei Makros und habe ein Problem, welches ich nicht selbst lösen kann. Ich konnte dazu auch bisher nichts verständliches für mich hier im Forum finden.

Daher stelle ich die Frage mal direkt an euch Experten. Ich habe in einem sich immer wieder verändernden Dokument viele Datensätze und lösche mit Hilfe eines Spalten Filters, die nicht benötigten Datensätze. Die Anzahl variiert immer wieder (mal mehr, mal weniger). Da ich aber aufbauend auf dieser Anzahl später weitere Ranges zur Bearbeitung selektiere, würde ich gerne irgendwie eine die Anzahl der übrig gebliebenen Zeilen (- dem Header) in eine variable speichern, damit ich später bei einem Befehl wie Code:

Range("O3:O153").Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

die fett gedruckte Zahl mit hilfe der variable einsetzen kann.

Könnt ihr mir da helfen?

Code:

Sub Overall_Test()
'
' Komplett Makro
'
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$AE$7113").AutoFilter Field:=30, Criteria1:= _
"=Sonstige Externe Ressource", Operator:=xlOr, Criteria2:="="
Rows("2:2").Select
Range("O2").Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$A$1:$AE$150").AutoFilter Field:=3
Selection.AutoFilter

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke bereits im voraus!

:)

Hajo_Zi · 27. Oktober 2016

Datei speichern.
für Spalte a
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)

oder über alle
Zeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

DomDom17 · 27. Oktober 2016

Hallo Hajo,

danke für deine Hilfe. Ich habe sie zwar noch nicht ganz verstanden, aber ich habe schon mal versucht sie einzubauen. Ich habe das Makro aufgeteilt. Das erste löscht die unnötigen Datensätze und mit dem zweiten bearbeite ich es dann weiter.

Das heißt ich würde deinen Ansatz dann im zweiten Makro (FETT) unterbringen. Ist das so korrekt?

Jedesmal wenn ich dann die Variable "Zeile" nutzen will, würde ich sie dann so einbauen:

Code:

Range("A3:A & Zeile").Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ist das korrekt? Wie kann ich noch die beiden Header Zeilen immer hinzurechnen?

Code:

Sub Overall()

Call Datensätze
Call Aufräumen

End Sub

Sub Datensätze()
' Datensätze entfernen
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$AE$7116").AutoFilter Field:=30, Criteria1:= _
"=Sonstige Externe Ressource", Operator:=xlOr, Criteria2:="="
Rows("2:2").Select
Range("O2").Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$A$1:$AE$160").AutoFilter Field:=30
End Sub

Sub Aufräumen()

Dim Zeile As Integer
Zeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

' Spalten aufräumen
Selection.AutoFilter
Columns("A:B").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Delete Shift:=xlToLeft

....
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Anzahl von Zeilen als Variable speichern

Anzahl von Zeilen als Variable speichern

Anzahl von Zeilen als Variable speichern

Anzahl von Zeilen als Variable speichern - Similar Threads - Anzahl Zeilen Variable

Zellwert Tabelle1 Bestimmt Anzahl Zeilen in Tabelle2

Index, Sverweis, Zählenwenn eine Zeile tiefer

VBA: Variable Anzahl Zeilen mit Suchkriterien finden und kopieren

Zählen der Anzahl von Zeilen oder Spalten in Excel

unterschiedliche Anzahl von Zeilen abwechselnd einfärben

Variable Anzahl von Zeilen einfügen und Daten kopieren

Jeweils unterschiedliche Anzahl von Zeilen abwechselnd anders einfärben