Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1068to1072
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Hyperlink setzen
19.04.2009 21:21:44
Markus
Hallo zusammen,
ich habe folgendes Makro:

Sub Inhaltsverzeichnis_mit_hyperlink()
Dim intTab As Integer
Dim Blat As Worksheet
Dim intZelle As Integer
Set blatt = Worksheets.Add(before:=Worksheets(1))
Columns("A:A").Select
Selection.NumberFormat = "@"
intZeile = 1
For intTab = 2 To ActiveWorkbook.Worksheets.Count
blatt.Cells(intZeile, 1).Value = Worksheets(intTab).Name
blatt.Cells(intZeile, 1).Hyperlinks.Add _
Anchor:=Cells(intZeile, 1), Address:="", SubAddress:= _
Worksheets(intTab).Name & "!A1", _
ScreenTip:="Klicken Sie auf den Hyperlink", _
TextToDisplay:=Worksheets(intTab).Name
intZeile = intZeile + 1
Next intTab
End Sub


Das Makro kopiert die Tabellennamen in eine neue angelegte Tabelle und fügt die Hyperlinks auf die Tabellen ein. Ich habe nun aber Tabellen die ein Wort und eine Zahl haben z.B. Mai 2010. Und hier bekomme ich nun den Fehler "Bezug ist ungültig".
Wer kann mir helfen?
Viele Grüße
Markus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink setzen
19.04.2009 21:27:45
Josef
Hallo Markus,
Sub Inhaltsverzeichnis_mit_hyperlink()
  Dim intTab As Integer
  Dim objWs As Worksheet
  
  Set objWs = Worksheets.Add(before:=Worksheets(1))
  
  With objWs
    .Columns("A:A").NumberFormat = "@"
    For intTab = 2 To ActiveWorkbook.Worksheets.Count
      .Hyperlinks.Add Anchor:=Cells(intTab - 1, 1), _
        Address:="", _
        SubAddress:="'" & Worksheets(intTab).Name & "'!A1", _
        ScreenTip:="Klicken Sie auf den Hyperlink", _
        TextToDisplay:=Worksheets(intTab).Name
    Next
  End With
  
  Set objWs = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Hyperlink setzen
19.04.2009 21:34:12
Markus
Hallo Sepp,
danke für Deine Hilfe! Klappt prima!
Viele Grüße
Markus

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige