zu Zelle mit Text springen

[dragonxxl]

Hallo ,

in einer Datei habe ich ein Makro mit dem ich zu einer bestimmten Zelle springen kann.
Nun kommen auch mal  Zellen dazu . Und ich muss die Zellenangabe ( A150 im Moment) immer ändern.

In der Zelle steht der Text Sprungmarke

Ist es möglich das man anstatt immer die Zellen Nummer anzugeben zu der Zelle springt in der Sprungmarke steht ?

Die Spalte der Springmarke ist Spalte A.

Gruß dragonxxl

Code:

Sub Übersicht_Click()
Application.Goto Range("A150"), Scroll:=True
End Sub

[Egon12]

Hallo,

du brauchst einfach ein einmalig vorkommendes Merkmal um eine Zelle im irgendwo zu finden. Je nach dem welches Merkmal das ist, kann dann die entsprechend geeignete Suchmethode verwendet werden.

Gruß Uwe

[RPP63]

Moin!
Ja, ist ein wenig dünn, die Threaderöffnung.
Was willst Du wirklich?
In die letzte benutzte Zelle in Spalte A springen?

Dann ohne VBA:
Strg+Pos1 | Strg+↓

Mittels VBA:

Code:

Application.Goto Range("A1048576").End(xlUp), True

Gruß Ralf

[dragonxxl]

Hallo,

Ich möchte einen Button ganz Oben in Zeile 1 haben.

Und möchte auf Knopfdruck zu der Zelle in Spalte  A springen in der der Text "Sprungmarke" steht.

Gruß dragonxxl

[Case]

Hallo,  

Code:

Application.Goto Cells(Tabelle1.Evaluate("=SUMPRODUCT((A1:A100=""Sprungmarke"")*ROW(1:100))"), 1), Scroll:=True

Die "100" entweder erweitern, oder automatisch ermitteln lassen.

[RPP63]

oder:

Code:

Application.Goto Range("A:A").Find("Sprungmarke"), True

Gruß Ralf

[Egon12]

anbei ein Beispiel mit eingefärbter Zelle als eindeutiges Merkmal.

  Hinhuepfen.xlsm (Größe: 15,42 KB / Downloads: 0)

Gruß Uwe

[Ralf A]

...geht ganz ohne extra Button und VBA...

Nehmen wir an, die Sprungmarke soll A11 sein. Dann markiere A11 und im Namenfeld (das ist das, wo jetzt A11 als Adresse der aktiven Zelle steht, also oben links, zwischen Ribbon und Tabellenblatt) überschreibst Du A11  mit Sprungmarke und beendest die Eingabe mit Enter.

Ab jetzt kannst Du immer, wenn Du auf den kleinen Pfeil des Namensfeldes klickst, die Sprungmarke auswählen und direkt dahin springen.
Vorteil: Du kannst mehrere Sprungmarken definieren (aber jede mit eindeutigem Namen) und brauchst Null Buttons dafür... 

Das ist aber nicht der Text der Zelle ("Sprungmarke"), sondern der Name der Zelle. Wenn da Sprungmarke als Text stehen soll, musst Du den selbstverständlich als Text in die Zelle schreiben...

Mit VBA geht es (nachdem die Zelle einen Namen hat) dann so: Application.Range("Sprungmarke").Select

[derHoepp]

Moin,

da ist Strg+F Sprungmarke doch neunundneunzig mal schneller, als überhaupt erst den VB-Editor zu öffnen. Zusätzlich muss nicht als xlsm gespeichert werden und jeder Hans und jede Marie kann das ganze mit einer Excel-Grundlagenschulung bedienen.

Viele Grüße
derHöpp

[dragonxxl]

Hallo an Alle,

danke für die tolle Hilfe von Euch.

Ich habe die Lösung von RPP63 genommen.

Einen schönen Tag an alle.

Gruß dragonxxl