Office: Springen in nächste sichtbare Zeile

nodewa · 8. Februar 2011

Hallo Forum,

ich habe folgendes Problem:

ich selektiere die zelle a1. auf dieser zelle ist ein autofilter aktiv. Jetzt möchte ich in die nächste "sichtbare" zelle springen, also die die durch den autofilter ausgeblendet wurden möchte ich überspringen, wie stelle ich das am sinnvollsten an? Mit meinem Code springt er nämlich nur in a2

Code:

Sub testen()

Range("a1").Select
ActiveCell.Offset(1, 0).Select
Dim AddressValue As Variant

AddressValue = ActiveCell.Address

MsgBox (AddressValue)

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

Danke für Eure Hilfe

Gruss
NoDeWa

:)

hary · 9. Februar 2011

Hallo
teste mal dies.
Code:

Sub sichtbar()
Dim Zeile As Long
Zeile = 1
With ActiveSheet
Do
Zeile = Zeile + 1
Loop Until Rows(Zeile).Hidden = False
Cells(Zeile, 1).Select
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

nodewa · 9. Februar 2011

Hallo Harry, hallo Forum,

habe es jetzt so gelösst

Code:

Sub testen()
Range("B12").Select
Do
ActiveCell.Offset(1, 0).Select
Loop While ActiveCell.EntireRow.Hidden = True
Dim AddressValue As Variant

AddressValue = ActiveCell.Address

MsgBox (AddressValue)

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

Danke trozdem für deinen Lösungsansatz @Harry

grüsse NoDeWa

EarlFred · 9. Februar 2011

Hallo NoDeWa,

noch ein Einzeiler (OK, 1,5-Zeiler *wink.gif*) von mir:
Code:

Intersect(Columns(1).SpecialCells(xlCellTypeVisible), _
Range(ActiveCell.Offset(1), Cells(Rows.Count, 1))).Cells(1).Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Trotzdem die Frage: Wozu das auswählen dieser Zelle?

Und: Teste mal bitte die Zeit, die harys Code im Gegensatz zu Deinem braucht. Das "selecten" aller möglichen Zellen bei Deinem Code dauert eine Ewigkeit.

Grüße
EarlFred

nodewa · 9. Februar 2011

Hallo Earl Fred

das wofür ist schnell geschrieben: In der Spalte B stehen Monate. Ich frage anschleisend ab ob auch wirklich nur über einen einzelenen Monatszeitraum gefiltert wurde.

Code:

Range("B12").Select
Do
ActiveCell.Offset(1, 0).Select
Loop While ActiveCell.EntireRow.Hidden = True

Z_R1 = ActiveCell.Row
Z_R2 = ActiveCell.End(xlDown).Row

Z_Max = Application.WorksheetFunction.Max(Range("B" & Z_R1 & ":B" & Z_R2))
Z_Min = Application.WorksheetFunction.Min(Range("B" & Z_R1 & ":B" & Z_R2))

If Z_Max = Z_Min Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielleicht geht das anders und oder schneller aber für einen VBA Rookie wie mich funktioniert es prima. Und für mich ist es wichtig das es funzt ob die performance dann um ein paar Millisekunden schlechter ist interessiert mich heute noch nicht. Aber natürlich hast du recht das man auch das erlernen sollte. Wenn Du also einen Tipp hast (den ich dann auch noch verstehe) der meine Sache einfacher schneller besser gestalten sollte, so bin ich für jede anregung offen. Danke!!

Grüße

NoDeWa

EarlFred · 9. Februar 2011

Hallo NoDeWa,

bei einer kleinen Tabelle ist der Unterschied kaum spürbar, aber nimm mal eine große Datenmenge, dann merkst Du es sicher.

Um zu prüfen, ob die gefilterten Datumswerte innerhalb eines Monats (des gleichen Jahres) liegen, würde ich sowas nehmen:
Code:

Dim rng As Range
Set rng = Range(Cells(12, 2), Cells(Rows.Count, 2)).SpecialCells(xlCellTypeVisible)
If Format(WorksheetFunction.Min(rng), "MMYYYY") _
Format(WorksheetFunction.Max(rng), "MMYYYY") Then
MsgBox "Mehr als 1 Monat gefiltert"
End If
Set rng = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Achso:

Tipp [...] den ich dann auch noch verstehe
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Na, dafür ist das Forum doch da - fühl Dich also frei, immer nachzufragen.
Grüße
EarlFred

nodewa · 9. Februar 2011

Hallo Earl Fred,

super klasse Dein Code.......

Ich seh schon ich muss noch viel lernen......

Wobei das bei meinem beispiel sich im milisekunden bereich abspielt weil hier maximal 365 Zeilen gefüllt werden können.

Aber ich will mich ja weiterentwickeln und deshalb werde ich natürlich den Profi Code nehmen....

DANKE
Grüße

NoDeWa

Office: Springen in nächste sichtbare Zeile

Springen in nächste sichtbare Zeile

Springen in nächste sichtbare Zeile

Springen in nächste sichtbare Zeile

Springen in nächste sichtbare Zeile - Similar Threads - Springen sichtbare Zeile

Ausgewählte Zelle auf einen bestimmten Platz springen lassen.

Zum ersten alphabetischen Wert springen

Textbox: Ans Ende der Eingabe springen

Detailebene beim Teilen von Kalender soll automatisch auf "Titel und Orte" springen

per VBA in Datei springen und wieder in Ausgangs Datei zurück

VBA - Springen in nächste ungeschützte Zelle ohne TAB/Enter

Automatisch in andere Zelle springen