Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Hyperlink auf Blatt | Herbers Excel-Forum


Betrifft: Hyperlink auf Blatt von: John
Geschrieben am: 10.08.2012 15:50:00

Hallo alle,

ich habe ein kleines Problem mit den Hpyerlinks.
Beiliegendes Makro fragt eine bestimmte Zelle in den enthaltenen Blättern der Arbeitsmappe ab, überträgt die Werte in ein erstes Blatt und erstellt die Hyperlinks immer dann fehlerfrei, wenn in den Blattnamen keine Leerzeichen enthalten sind.
Wie kann ich das Makro ändern, damit auch Blattnamen mit Leerzeichen funktionieren?

Danke für eine Antwort

John

Hier das Makro:

Sub ZelldatenAusgebenErstesBlattMitSprung()

'Makro fragt die Inhalte einer Spalte aller Tabellenblätter ab und schreibt
'die Werte in das erste Tabellenblatt.
'Per Abfrage kann wahlweise ein Tabellenblatt an erster Stelle eingefügt werden.
    zelle = ActiveCell.Address
    Antwort = MsgBox("Neues Tabellenblatt einfügen?", vbYesNoCancel + vbQuestion)
'neues arbeitsblatt an der ersten Stelle eifügen
    If Antwort = vbYes Then Sheets.Add before:=Sheets(1)
'bei "Cancel" wird das Makro abgebrochen
    If Antwort = vbCancel Then Exit Sub

 'a = Anzahl der Leerzeilen
    a = 4
    
    Sheets(1).Activate

    For i = 2 To Sheets.Count

        Sheets(1).Cells(a, 2) = zelle
'Blattname in die erste Spalte übertragen
        Sheets(1).Cells(i + a, 1) = Sheets(i).Name
        
        
'Wert in die zweite Spalte übertragen
        Sheets(1).Cells(i + a, 2) = Sheets(i).Range(zelle).Value
        
        ActiveSheet.Hyperlinks.Add Cells(i + a, 2), "", Sheets(i).Name & "!" & zelle

            
    Next i
    Sheets(1).Select

End Sub

  

Betrifft: AW: Hyperlink auf Blatt von: Sheldon
Geschrieben am: 10.08.2012 16:26:27

Hi John,

wozu gibst du die Adresse der ausgewählten Zelle aus?

Damit auch Leerzeichen im Blattnamen gehen, musst du nur die vierte Zeile von unten gezählt im Code so ändern:

ActiveSheet.Hyperlinks.Add Cells(i + a, 2), "", "'" & Sheets(i).Name & "'!" & zelle

Gruß
Sheldon


  

Betrifft: AW: Hyperlink auf Blatt von: John
Geschrieben am: 10.08.2012 17:17:03

Hallo Sheldon,

DANKE !!!! klappt prima.


Beiträge aus den Excel-Beispielen zum Thema "Hyperlink auf Blatt"