Hyperlink geht das auch mit Makro

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Hyperlink geht das auch mit Makro von: Andreas
Geschrieben am: 15.02.2005 18:56:34

Hallo Excelprofis

Kann man einen Hyperlink, der ein anderes Blatt aktiviert eventuell auch durch ein Makro ausführen lassen ?
Das Makro müßte meines erachtens dann auf die Zelle gelegt werden wo jetzt der Hyperlink drauf ist.

Im voraus danke für die Hilfe

Andreas

Bild


Betrifft: AW: Hyperlink geht das auch mit Makro von: Xelleron (Dennis)
Geschrieben am: 15.02.2005 19:10:51

Hallo Andreas,

mach es doch einfach über einen Button aus der Steuerelement-Toolbox, den dann doppelt anklicken:

Privat
Sub CommandButton1_Click()
Sheets("Tabellenname").Activate
End Sub


So sollte es dann aussehen! Den Entwurfsmodus noch beenden und schon klappt es auch ohne Hyperlink.

Gruß
Xelleron


Bild


Betrifft: AW: Hyperlink geht das auch mit Makro von: Andreas
Geschrieben am: 15.02.2005 19:19:33

Hallo Dennis

das ist nicht schlecht, ich hab aber zwischen 10 und 30 Hyperlinks untereinander in der Spalte da muß ich aber viele Buttons anlegen

gruß andreas


Bild


Betrifft: AW: Hyperlink geht das auch mit Makro von: Xelleron (Dennis)
Geschrieben am: 15.02.2005 19:49:36

Naja, ob Du nun für jede Zelle die Hyperlinks setzt oder nen schönen Button....


Bild


Betrifft: AW: Hyperlink geht das auch mit Makro von: Harry
Geschrieben am: 15.02.2005 21:47:18

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


Bild


Betrifft: AW: Hyperlink geht das auch mit Makro von: Andreas
Geschrieben am: 15.02.2005 23:47:44

Hallo Harry

Werd ich ausprobieren

Konte nicht füher Antworten war Unterwegs

Danke

Gruß Andreas


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Hyperlink geht das auch mit Makro"