Re: Hyperlink oder anders?
08.01.2003 15:37:05
Chris
Hallo SvenHabe da eine Idee...
Auf Blatt 1, machst du ein Worksheet_SelectionChange Ereignis, geknüpft an die Spalte, welche die ">" enthält. Dabei genügt also das Klicken in diese Spalte, um das Ereignis auszulösen.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column = 3 Then
Sheets(2).Range("A1") = ActiveCell.Row
Sheets(2).Range("A2") = ActiveCell.Column
Sheets(2).Activate
End If
End Sub
Target.Column = 3 entspricht in diesem Beispiel Spalte 3 also Spalte C. Du fügst den Code ein mit Alt + F11, links Doppelklick aufs Arbeitsblatt. Im neuen Fenster rechts Code einfügen.
Auf dem 2. Blatt fügst du als Worksheet_Activate Ereignis folgende Zeile ein:
Private Sub Worksheet_Activate()
If Range("A1") <> "" Then Cells(Range("A1"), Range("A2")).Select
Range("A1") = ""
Range("A2") = ""
End Sub
Ebenfalls Alt + F11 etc. aber diesmal Doppelklick aufs 2. Blatt.
Das Makro läuft mit den Hilfszellen A1 und A2 auf Blatt 2. Diese Felder dürfen also keine Daten enthalten. Ansonsten musst du den Code abändern und A1 resp. A2 z.B. mit A10000 und A10001 ersetzen oder wo auch immer.
Gruss
Chris
PS: Wenn du die Zeile
If Range("A1") <> "" Then Cells(Range("A1"), Range("A2")).Select
durch
If Range("A1") <> "" Then Cells(Range("A1"), 1).Select
ersetzt, wird Spalte A und die jeweilige Zeile selektiert anstelle der genau gleichen Zelle wie du angeklickt hast... z.B. C3 wird zu A3. Standartmässig C3 = C3.