AW: nachgefragt für (Excel 2000)
24.06.2007 10:17:47
Beverly
Hi Matthias,
ich habe mich erst einmal bei jemandem sachkundig machen müssen, da ich Excel2002 verwende - unter Excel2000 gibt es diesen Schalter noch nicht. Aber man könnte das mit folgendem Makro machen
Sub Hyperlink_zurückschreiben()
Dim loLetzte As Long
Dim loZeile As Long
Application.ScreenUpdating = False
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 3)), Cells(Rows.Count, 3).End(xlUp).Row, Rows. _
Count)
For loZeile = 1 To loLetzte
Cells(loZeile, 3).Activate
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Cells(loZeile, 3).Value, TextToDisplay:=Cells(loZeile, 3).Value
Next loZeile
Application.ScreenUpdating = True
End Sub
Hier stehen die Hyperlinkadressen in Spalte C (=3).
Ich hatte mich übrigens vertan - der Menüpunkt Autokorrektur-Optionen ist nicht unter Format sondern unter Extras. Aber das hast du ja inzwischen festgestellt.
Bis später,
Karin