title image


Smiley Re: Inhaltsverzeichnis
Hallo Harald,gute Idee!!!das geht wie folgt:Sub HyperlinksErstellen()Dim i As IntegerRange("A1").SelectFor i = 1 To ActiveWorkbook.Sheets.CountActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ Sheets(i).Name & "!A1" ActiveCell.Offset(1, 0).SelectNext iEnd SubViele GrüßeBerndDie MacHero EXCEL HomepageUnd falls Sie in Ruhe offline Excel und VBA lernen möchten:Excel für Einsteiger | Excel-VBA-Programmierung-Kompendium

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: