Office: Zum ersten alphabetischen Wert springen

Habe das mal eben mit 870 Einträgen getestet: Da kringelt nix

 

Und habe weiter gebastelt: Hier eine Version, die 1.) hoffentlich jeden Wartekringel (übrigens das beste Weihnachtsgebäck von Welt, weil definitiv CO2 neutral und Gluten-frei ) vermeidet, 2.) jetzt auch numerische Einträge im Verzeichnis filtert und 3.) mit nur einem Makro sofort Test-bereit ist.

Viel Spaß!

 

@d'r Bastler,

um die Kringelei einzugrenzen, sammelt man kurzerhand die Trefferzellen in einer Stringvariablen.

Zu beachten ist hier die maximale Zeichenzahl von 255. Dann schreibt man diesen Range als ein Schreibvorgang ins Tabellenblatt --> setzt die Variable auf "" und lässt die Schleife weiterlaufen.
beispielhaft so:

Code:

Sub FundMarkieren() ' ein- und Ausblenden
    Dim fund$, i&
    With Tabelle1
        .Columns(2).Interior.Color = xlNone
        For i = 4 To .Cells(Rows.Count, 2).End(xlUp).Row
            If LCase(Left(.Cells(i, 2), 1)) = LCase(Tabelle1.Cells(1, 2)) Then
                fund = fund & Replace(.Cells(i, 2).Address, "$", "") & ","
                If Len(fund) > 220 Then
                    Tabelle1.Range(Left(fund, Len(fund) - 1)).Interior.Color = vbYellow
                    fund = ""
                End If
            End If
        Next
        Tabelle1.Range(Left(fund, Len(fund) - 1)).Interior.Color = vbYellow
    End With
End Sub

Gruß Uwe

 

Hallo bastler,

es tut mir leid, wenn meine Ideen Dich so lange beschäftigen und ggf. etwas anderes auch
tun könntest in der Zeit. Ich hab's versucht, aber der Kringel bleibt. Seit einer Minute
"versucht Excel den Sprung zu "R"
Tut mir leid, hätte Dir gerne was anderes Rückgemeldet. Aber lass gut sein und vergeude
nicht weiter Deine Zeit. Ich habe ja eine Lösung bzw. mehrere erhalten um die ich genauso
dankbar bin, wie um Deine und Deine Zeit.

Alles Liebe und Gute,
Thomas

 

Halo OliMax,

vielen Dank für Deine Rückmeldung. Da ich leider ein unbeschriebenes Blatt in VBA bin,
wäre meine Frage an Dich, ob ich Deinen Code im Code vom bastler irgendwo ersetzen
od. austauschen müsste, oder der ganz eigenständig läuft.

Viele Grüße
Thomas

 

Auf jeden Fall Danke ich Euch allen, für Eure Hilfsbereitschaft immer und zu jederzeit!.

Alles Liebe und Gute Euch allen, bleibt g'sund,
Thomas

 

Hallo Thomas,
Die Prozedur ist nur als Hinweis für effizienteres färben/verstecken von Zellen/Zeilen gedacht. Wenn in einer Schleife jede Zelle einzeln versteckt oder gefärbt wird ist dies der lahmste Lösungsweg. Deshalb sollte man die Ergebnisse in einer Variable sammeln und als Range schreiben.
beispielhaft beide Wege:

Code:

Sub FundMarkieren()
    Dim fund$, i&
    With Tabelle1   ' Trefferbereich gelb
        .Columns(2).Interior.Color = xlNone
        For i = 4 To .Cells(Rows.Count, 2).End(xlUp).Row
            If LCase(Left(.Cells(i, 2), 1)) = LCase(Tabelle1.Cells(1, 2)) Then
                fund = fund & Replace(.Cells(i, 2).Address, "$", "") & ","
                If Len(fund) > 220 Then
                    Tabelle1.Range(Left(fund, Len(fund) - 1)).Interior.Color = vbYellow
                    fund = ""
                End If
            End If
        Next
        Tabelle1.Range(Left(fund, Len(fund) - 1)).Interior.Color = vbYellow
    End With
End Sub

Sub FundFiltern() ' ein- und Ausblenden
    Dim fund$, i&
    With Tabelle1   ' Trefferbereich eingeblendet Rest ausgeblendet
        .Columns(2).EntireRow.Hidden = False
        For i = 4 To .Cells(Rows.Count, 2).End(xlUp).Row
            If LCase(Left(.Cells(i, 2), 1)) <> LCase(Tabelle1.Cells(1, 2)) Then
                fund = fund & Replace(.Cells(i, 2).Address, "$", "") & ","
                If Len(fund) > 220 Then
                    Tabelle1.Range(Left(fund, Len(fund) - 1)).EntireRow.Hidden = True
                    fund = ""
                End If
            End If
        Next
        Tabelle1.Range(Left(fund, Len(fund) - 1)).EntireRow.Hidden = True
    End With
End Sub

Gruß Uwe

 

Moin Uwe, moin Thomas,

nachdem ich auf jegliche Formatierung verzichte (die kostet ja bekanntlich immer Zeit) und inzwischen auch mit größeren Datenmengen experimentiert habe -und das ganz ohne Kringel- bleibe ich neugierig, was denn da hinter Deinem Weihnachtsgebäck steckt.

Nachsatz zu Deinen "Umständen": Ich finde solche Umstände meist sehr spannend als Herausforderung, selbst auch etwas dazuzulernen.

@Uwe: Das mit der Stringvariablen bemühe ich mich dann mal zu verstehen ...

Schöne Woche und Grüße