ich hoffe ihr könnt mir hielfen. Schon einmal vielen dank für Eure/Deine. Mühen
Sub jump_to_Obst()
Dim look As Range
Set look = Range("A5:ZZ5").find(what:="Obst")
MsgBox "Adresse lautet: " & look.Address
End sub
Ich habe vielen spalten in Zeile 4. (Bsp. viele Obstsorten, Käsesorten, Gemüsesorten etc.)In Zeile 3 habe ich sog. "Oberkategorien" erstellt (nur für die Lesbarkeit der Tabelle). D.h. wenn in Spalte K die Obstsorten anfangen (Apfel, Banane, Blaubeere etc.) Dann steht in K3 das wort "Obst". in Z3 kommt dann "Gemüse"....etc. So kann man leichter horizontal scrollen und findet die dinge leichter.
Nun....
wie ihr oben seht, möchte ich gerne schneller dort hinkommen. Möchte mir ein Apfel-Icon auf der Startseite erstellen und den mit dem obigen Sub verknüpfen. Dann sprung zur Spalte K3.
Voraussetzung ist aber, dass K3 auch irgendwann mal Z3 oder so sein kann. Da neue Spalte hinzukommen. Deswegen erst suchen und dann zur Spalte springen.
Vielen Dank vorab