Hallo reini,
sorry, dass ich mich jetzt erst melde. Bin eben erst heim
gekommen.
Sowas in der Art dachte ich mir schon. Das macht das Ganze etwas
schwieriger. Leider gibt es kein Event, das auf das Einfügen von
Hyperlinks reagiert um das gewünschte Ergebnis zu erzielen. Das
heißt aber nicht, dass es nicht möglich wäre deinem Wunsch zu
entsprechen. Im Gegenteil, da gibt es viele Möglichkeiten, die aber
leider alle etwas umständlich sind. Auch ist das Erzeugen des Links
eine ziemliche Fummelei. Damit du dir also nicht so viel Arbeit
machen musst, habe ich hier mal eine einfache Alternative kreiert.
Starte den VBA-Editor (z.B. mit Alt+F11) und gib im Modul, das
deinem Tabellenblatt entspricht folgenden Code ein:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 1 Then
If Target.Offset(-1, 0).Hyperlinks.Count > 0 Then
Link = Target.Offset(-1, 0).Hyperlinks(1).SubAddress
p = InStr(1, Link, "!")
If p > 0 Then
Blatt = Left(Link, p - 1)
Zelle = Right(Link, Len(Link) - p)
If ActiveCell.Address = Target.Address Then
Zelle = Sheets(Blatt).Range(Zelle).Offset(1, 0).AddressLocal
End If
Target.Hyperlinks.Add Target, "", Blatt & "!" & Zelle, Zelle,
Target.Value
Target.Offset(0, 1).Interior.Color =
Sheets(Blatt).Range(Zelle).Interior.Color
End If
End If
End If
End Sub
Wenn du nun einen neuen Eintrag in Spalte A eingibst und die
Eingabe wie gewohnt abschließt, wird der Link der
darüberliegenden Zelle kopiert.
Schließt du hingegen deine Eingabe mit STRG+ENTER ab wird die
aktive Zelle danach nicht verschoben, dafür aber das Link-Ziel um
eine Zelle runtergesetzt. Damit ist die Linkeingabe recht simpel und
die Farben können sich direkt daran orientieren. Probiers mal aus
:-)
Sollte dein Wunsch darüber hinausgehen, sag einfach Bescheid.
L.G. Mr. K.