none
Aktuelle Zelle ermitteln/erkennen und entsprechende Zeile farbig markieren RRS feed

  • Frage

  • Hallo Zusammen,

    wahrscheinlich ist das eine Allerweltsfrage, aber ich habe nichts darüber gefunden.

    Nach Aufruf von Daten mittels Hyperlink-Suche soll die jeweils entsprechende Zeile der gefundenen Zelle farblich

    gekennzeichnet werden. (Bei Einträgen von Spalte A bis AN der Übersichtlichkeit leider notwendig).

    Wie (Makro / VBA-Lösung) muss ich das bewerkstelligen? Von beiden Vorstellungen nur bedingte Kenntnisse.

    Danke für nachvollzieh- und durchführbare Vorschläge / Hilfestellungen.

    Freundliche Grüße

    Rust

    Sonntag, 11. Juni 2017 11:30

Alle Antworten

  • Hi Rust,
    ich vermute, dass Du VBA in Microsoft Excel meinst. In diesem Fall starte den Makro-Recorder und führe die gewünschten Aktivitäten aus. Danach kannst Du den generierten VBA-Code anschauen und weiter anpassen.

    --
    Viele Grüsse
    Peter Fleischer (ehem. MVP)
    Meine Homepage mit Tipps und Tricks

    Sonntag, 11. Juni 2017 12:10
  • SORRY, war wieder gedanklich zu schnell unterwegs.

    Hallo Peter,

    natürlich VBA in Excel.

    Danke für den Hinweis, aber....

    Habe mir jetzt etwas gebastelt, was auch soweit ganz gut funktioniert.

    Nur nach dem Aufruf durch den Hyperlink bleibt mir die Zeile farbig erhalten.

    Und wenn ich wieder zum Suchbegriff gehe, wird mir diese Zeile auch farbig hinterlegt, das finde ich nicht gut.

    D.h., entweder das Tabellenblatt verlassen oder neuen Suchbegriff eingeben: Löschen der farbigen Füllung.

    Das ist jetzt mein Code:

    Dim lastCell as Range

    Dim farbe As Integer

    Privat Sub Worksheet_SelectionChange(ByVal Target Ass Excel Range)

    On Error Resume Next

    Cells.Interior.ColorIndex = xlNone

    Rows(target.Row).Interior.ColorIndex = 46

    End Sub

    Wo hin die Ergänzung setzen?

    Danke und Gruß

    Rust


    • Bearbeitet Rudi'S Sonntag, 11. Juni 2017 16:53
    Sonntag, 11. Juni 2017 12:42