in andere Zelle wechseln

[gitmichi]

Hallo,

kann mir jemand sagen wie ich es mache, das wenn ich ganz oben in einem Tabellenblatt arbeite und dann weit unten etwas ansehen will, ich gleich mit einem Klick auf eine bestimmte Zelle gleich in z.B. c110 komme. Wie ein Hyperlink praktisch nur im gleichen Tabellenblatt.

wenn möglich ohne ein Textfeld, wenn das geht...

Danke und Gruß

[steve1da]

Hola,

Wie ein Hyperlink praktisch nur im gleichen Tabellenblatt.

dann mach doch einfach einen Hyperlink im gleichen Blatt.
Gruß 
steve1da

[gitmichi]

OMG wie blöd, über aktuelles Tabellenblatt.

Danke und Gruß

[slowboarder]

Hi

Es gibt noch zwei weitere Wege:

- Erstelle den Link per Formel: =Hyperlink("#C110")

- wenn man in den Exras-Optionen den Haken "Direkte Zellbearbeitung zulassen" rausnimmt, springt Excel bei einem Doppelklick auf eine Zelle mit Formel zur ersten Zelle, die in dieser Formel verwendet wird.
Man braucht dann nicht Mal einen Hyperlink, es reicht: =C110

Gruß Daniel

[Ralf A]

...man kann aber auch im Adressfeld, also ganz links neben der Bearbeitungszeile, da, wo immer die Zelladresse der gerade aktuellen Zelle steht, diese Adresse überschreiben und Enter klicken...

[gitmichi]

Danke euch für die Hinweise, probier ich gleich aus!!!

[Gast 123]

Hallo

ich hätte da auch noch einen Vorschlag im Angebot, zwei Target Makros in der aktiven Tabelle.
Das erste Makro erwartet die Zeilen Nummer in der Zellle A1. Springt dann zur gewünschten Zeile.
Beim zweiten Makro muss nur mit dem Cursor eine Zelle von A1-A4 angesteuert werden.
Hier musst du im Makro selbst die Ziel-Adresse festlegen, wo der Cursor hinspringen soll.
Statt Target.Row für Zeilen kannst du auch Target.Column für Spalten benutzen!
Bedingung bei Zeilen ist, das die ersten Zeilen fixiert sind, beim Scrollen sichtbar bleiben.

mfg Gast 123
PS Ich verwende ActiveWindow.ScrollRow, weil bei Select nicht immer feststeht wohin der Bildschirm scrollt!

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If InStr(Target.Address, ":") Then Exit Sub
If Target.Value = Empty Then Exit Sub
   If IsNumeric([a1]) Then    'Zeilen Nummer in A1 eingeben
      Cells([a1], 1).Select
      ActiveWindow.ScrollRow = [a1] - 2
   End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If InStr(Target.Address, ":") Then Exit Sub
Dim Adr As String   'Ziel-Adressen festlegen!!
   Select Case Target.Row  'oder Columns
   Case 1: Adr = "A20"
   Case 2: Adr = "A40"
   Case 3: Adr = "A60"
   Case 4: Adr = "A80"
   End Select
   If Adr <> Empty Then
      Range(Adr).Select
      ActiveWindow.ScrollRow = Mid(Adr, 2) - 2
   End If
End Sub

[{Boris}]

Hi,

noch ein Tipp, wie Du immer die letzte gefüllter Zelle einer Spalte ansteuern kannst (hier bezogen auf Spalte B):

=HYPERLINK("#B"&VERWEIS(2;1/(B1:B1000<>"");ZEILE(1:1000)))

Findet auch den letzten Eintrag, wenn Spalte B nicht komplett gefüllt ist.
Die maximale Zeile (im Beispiel 1000) musst Du bei Bedarf auf Deine Bedürfnisse anpassen.

[snb]

@Gast

    Application.Goto Cells(110, 3), 1

[HKindler]

noch ein Tipp, wie Du immer die letzte gefüllter Zelle einer Spalte ansteuern kannst

Wenn die Spalte lückenlos gefüllt ist, reicht auch die Tastenkombination [Strg]-[Pfeil runter]