PDA

Vollständige Version anzeigen : Code für: gehe zu Spalte, Spalte steht in bestimmter Zelle


manega
25.01.2017, 12:50
Hallo Leute,

ich habe ein hoffentlich kleines Problem.
Ich benötige einen Code, mit dem in eine bestimmte Spalte gesprungen wird. Nach Möglichkeit soll in der gleichen Zeile geblieben werden.
Die Ziel-Spalte soll aus einer Zelle ausgelesen werden. In meinem Fall steht sie in Tabelle "Übersicht Makros" in F214. In dieser Zelle steht "E" für Zielspalte E.

Ich habe einen Code für das Springen in bestimmte Zeilen, der evtl. nur etwas angepasst werden muss!?
Application.Goto Reference:=Range(Worksheets("Übersicht Makros").Range("F214").Value), Scroll:=True ' 'Bereich steht in ausgeblendeter Tabelle Übersicht Makros!

Vielen Dank im Voraus
Gruß
manega

Crazy Tom
25.01.2017, 13:42
Hallo

meinst du so?

Sub test()
Dim strSpalte As String
strSpalte = Sheets("Übersicht Makros").Range("F214").Text
Application.Goto Cells(ActiveCell.Row, strSpalte)
End Sub

MfG Tom

Beverly
25.01.2017, 13:45
Hi,

wenn ich das richtig verstanden habe dann so:

Application.Goto Reference:=Cells(ActiveCell.Row, Worksheets("Übersicht Makros").Range("F214").Value), Scroll:=True

<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>

manega
25.01.2017, 14:07
Hallo Karin, Hallo Tom,

beide Varianten funktionieren. Habt vielen Dank für eure Hilfe! :-)


Gruß
manega