AW: Hyperlink geht das auch mit Makro
15.02.2005 21:47:18
Harry
Hi Andreas,
das geht auch mit Makros (hier ein Beispielmakro)
'z. B. BeiClick-Ereignis ab Zeile 3 in Spalte D:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim blattname As String
Dim Znr As Integer
Dim i, n As Long
Dim aw, bname, zname, text1
blattname = ActiveSheet.Name
Znr = ActiveCell.Row
zname = Worksheets("" & blattname).Cells(Znr, 4).Value
'z. B. Überschrift "Zieltabellen:" in Zelle("D3"):
If ActiveCell.Row = 3 And ActiveCell.Column = 4 Then
text1 = "Zieltabellen in aktiver Arbeitsmappe"
aw = MsgBox("Arbeitsmappenliste neu erstellen?", vbYesNo, text1)
If aw = vbYes Then
For i = 1 To Worksheets.Count
Worksheets("" & blattname).Cells(i + 3, 4).Value = _
ActiveWorkbook.Worksheets(i).Name
Next i
Exit Sub
End If
End If
'z. B. Liste aller Arbeitsmappen in aktiver Arbeitsmappe ab
'der 4. Zeile in Spalte("D"):
If ActiveCell.Row >= 4 And ActiveCell.Column = 4 Then
If Worksheets("" & blattname).Cells(Znr, 4).Value = "" Then
MsgBox "Tabellenblattname fehlt!", vbCritical, "Zieltabelle"
Exit Sub
End If
For n = 1 To Worksheets.Count
bname = ActiveWorkbook.Worksheets(n).Name
If Worksheets("" & blattname).Cells(Znr, 4).Value = bname Then _
GoTo marke2 Else GoTo marke1
marke1:
Next n
MsgBox "Tabelle '" & zname & "' ist nicht vorhanden.", _
vbCritical, "Aktive Arbeitsmappe"
Exit Sub
marke2:
If ActiveWorkbook.Worksheets(zname).Visible = True Then
ActiveWorkbook.Worksheets(zname).Activate
Else
MsgBox "Tabelle ist ausgeblendet oder versteckt.", _
vbInformation, "Zieltabelle"
End If
End If
End Sub
Einfach dieses Makro in ein Tabellenblattmodul kopieren und austesten...
Gruss Harry