21.01.2020, 09:25 (Dieser Beitrag wurde zuletzt bearbeitet: 21.01.2020, 09:31 von mauritius5.)
Liebe Pro's
In der Spalte A:A würde ich gerne einen "dynamischen" Hyperlink kreieren, mit welchem ich zur ersten leeren Zelle der Zellen "F6;AD6;BB6;CC6;CY6;DT6;EO6;FJ6;GF6;HC6;HX6;IS6;JN6;KI6;LE6;MB6;MW6;NR6;OM6;PH6;QF6;RA6;RV6;SQ6;TL6;UI6;VD6;VY6;WT6" springen kann. Das heisst, wenn in der Zelle F6 etwas steht, in AD6 noch nicht, dann Hyperlink zu Zelle AD6. Wenn dort auch etwas steht, dann Hyperlink in Zelle BB6 usw.
So müsste ich nicht immer suchen gehen, wo ich gerade bin, sondern könnte per Hyperlink dorthin springen. Würde mir enorm Arbeit abnehmen.
Kann man dies ohne VBA tun und wenn ja, habt ihr eine Idee wie?
Danke vielmals für eure Rückmeldungen und Grüsse
mauritius5
du könntest das Tabellenblatt für Eingaben sperren und anschließend deine definierten Zellen freigeben. Dann kannst du diese mit der Tab-Taste anspringen.
Viele Grüße
Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
Dafür habe ich aber leider noch zu viele weitere Zellen, die ich sollte ausfüllen können bzw. solche Hyperlinks sollte ich noch für weitere Zellen anwenden können.
Diese Datei darf ich leider nicht hochladen, da sie private Daten der Probanden enthält. Und wenn ich alles lösche, ist es einfach eine leere Datei. Wird also leider nicht viel nützen
unter einer Beispieldatei verstehe ich eine Datei, die genau so aufgebaut ist, wie das Original, nur eben mit unsensiblen Daten. Statt der Realnamen kannst du doch Proband 1, Proband 2 usw. eintragen. Nach dem was du beschrieben hast, könnte ich nur eine VBA-Lösung für deine Zeile 6 anbieten.
Viele Grüße
Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
ich komme da nicht weiter, sollen alle hellgrau markierten Spalten angesprungen werden, oder nur die, die du unter dem Beitrag #7 aufgelistet hast? Da gibt es Differenzen.
Viele Grüße
Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
anbei das Makro, hoffe es ist das, was du suchst, habe ja leider nichts mehr von dir gehört. Das Makro kommt in das Modul des Tabellenblattes.
Code:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim varSpArr As Variant
Dim intSpalte As Integer
Dim intPos As Integer
If Target.Column = 1 Then
intSpalte = Cells(Target.Row, 1000).End(xlToLeft).Column
If intSpalte < 7 Then intSpalte = 0
varSpArr = Array(0, 7, 31, 55, 82, 104, 125, 146, 167, 189, 212, 233, 254, 275, 296, 318, 341, 362, 383, 404, 425, 449, 470, 491, 512, 533, 556, 577, 598, 619)
For intPos = 0 To UBound(varSpArr)
If intSpalte = varSpArr(intPos) Then Cells(Target.Row, varSpArr(intPos + 1)).Select
Next intPos
End If
End Sub
Viele Grüße
Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
