ActiveWindow.VisibleRange.Rows.Count
MsgBox ActiveWindow.VisibleRange.Row + ActiveWindow.VisibleRange.Rows.Count
Um die letzte sichtbare Zeilennummer im aktuellen Excel-Fenster zu ermitteln, kannst Du den folgenden VBA-Code verwenden:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu (Einfügen > Modul).
Kopiere den folgenden Code in das Modul:
Sub LetzteSichtbareZeile()
Dim letzteZeile As Long
letzteZeile = ActiveWindow.VisibleRange.Row + ActiveWindow.VisibleRange.Rows.Count - 1
MsgBox "Die letzte sichtbare Zeile ist: " & letzteZeile
End SubSchließe den VBA-Editor.
Führe das Makro aus (Entwicklertools > Makros > LetzteSichtbareZeile).
Dieser Code verwendet ActiveWindow.VisibleRange, um die sichtbaren Zellen zu identifizieren und die letzte Zeile zu berechnen.
Fehler: "Objektvariable oder With-Blockvariable nicht festgelegt"
Lösung: Stelle sicher, dass Du das Makro im richtigen Kontext ausführst, also wenn das Excel-Fenster aktiv ist und Du nicht im VBA-Editor bist.
Fehler: "Die letzte sichtbare Zeile wird nicht korrekt angezeigt."
Lösung: Überprüfe die Sichtbarkeit der Zeilen. Wenn Du Filter oder gruppierte Zeilen verwendest, kann dies das Ergebnis beeinflussen.
Eine alternative Methode, um sichtbare Zellen zu ermitteln, ist die Verwendung von SpecialCells. Hier ein Beispiel:
Sub SichtbareZellenErmitteln()
Dim sichtbareZellen As Range
Set sichtbareZellen = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible)
MsgBox "Die Anzahl der sichtbaren Zellen ist: " & sichtbareZellen.Count
End SubDiese Methode gibt die Anzahl der sichtbaren Zellen im verwendeten Bereich zurück und kann in Kombination mit ActiveWindow verwendet werden.
Ein praktisches Beispiel für die Anwendung von ActiveWindow.VisibleRange könnte sein, die letzten sichtbaren Werte in einer Datenanalyse zu erfassen. Wenn Du eine große Datenmenge hast und nur bestimmte Teile sichtbar sind, kannst Du diese Informationen einfach extrahieren.
Sub WerteDerSichtbarenZellen()
Dim zelle As Range
Dim werte As String
For Each zelle In ActiveWindow.VisibleRange
werte = werte & zelle.Value & vbCrLf
Next zelle
MsgBox "Werte der sichtbaren Zellen:" & vbCrLf & werte
End SubActiveWindow.VisibleRange.Cells für mehr Flexibilität beim Arbeiten mit Zellen in der Sichtbarkeit.ActiveWindow nur das aktive Fenster betrachtet; das kann bei mehreren offenen Fenstern in Excel zu Verwirrung führen.Application.ScreenUpdating = False, um die Performance zu verbessern, wenn Du mehrere Berechnungen in einer Schleife durchführst.1. Wie kann ich die sichtbaren Zellen in eine andere Arbeitsmappe kopieren?
Du kannst die sichtbaren Zellen mit Copy und PasteSpecial in eine andere Arbeitsmappe kopieren. Achte darauf, dass die Zielarbeitsmappe aktiv ist.
2. Gibt es eine Möglichkeit, die VisibleRange in einer bestimmten Zeile zu ermitteln?
Ja, Du kannst die Row-Eigenschaft von ActiveWindow.VisibleRange verwenden, um die erste sichtbare Zeile zu ermitteln und dann mit einer Schleife durch die Sichtbarkeit zu iterieren.