Eric hat eine gemeinsame Arbeitsmappe, die eine Datenbank mit rund 3.500 Datensätzen enthält. Zwei der Zellen in jedem Datensatz enthalten eine E-Mail-Adresse und eine URL. Wenn der Datenbank ein neuer Datensatz hinzugefügt wird, werden die E-Mail-Adresse und die URL als normaler Text und nicht als Hyperlinks angezeigt. Um sie zu Hyperlinks zu machen, muss Eric die Arbeitsmappe freigeben, die Änderung vornehmen und dann die Arbeitsmappe erneut freigeben. Eric fragte sich, ob es vielleicht einen einfacheren Weg gibt, mit dieser Situation umzugehen.

Das Hinzufügen und Bearbeiten von Hyperlinks ist bei Verwendung einer freigegebenen Arbeitsmappe ganz einfach nicht zulässig. Der einfachste Weg, dies zu umgehen, besteht darin, die Links als Text in separate Zellen einzufügen und dann die HYPERLINK-Formel zu verwenden, um auf diese Zellen zu verweisen.

Wenn die URL beispielsweise in Zelle E2 eingegeben wird, können Sie die folgende Formel in einer anderen Zelle verwenden:

=HYPERLINK(E2, E2)

Das erste Argument in dieser Formel bezieht sich auf die Zelle, die die Adresse enthält, und das zweite Argument bezieht sich auf den Text, der für den Hyperlink angezeigt werden soll. Dieser Ansatz erfordert zwei zusätzliche Spalten (für die HYPERLINK-Formeln), erfordert jedoch nicht das Aufheben und erneutes Teilen der Arbeitsmappe.

Die einzige andere Option besteht darin, ein Makro zu erstellen, mit dem das Aufheben und Freigeben der Arbeitsmappe automatisiert werden kann. Das folgende Makro führt dies aus und konvertiert alles, was sich in der ausgewählten Zelle befindet, in einen Hyperlink.

Sub AddHyperlink()

Dim cell As Range

Application.DisplayAlerts = False

' Unshare the Workbook     If ActiveWorkbook.MultiUserEditing Then         ActiveWorkbook.ExclusiveAccess     End If

' Change address in cell to a hyperlink.

If ActiveCell = "" Then         ActiveCell.Hyperlinks.Delete     Else         For Each cell In Intersect(Selection, _           Selection.SpecialCells(xlConstants, xlTextValues))

With Worksheets(1)

.Hyperlinks.Add Anchor:=cell, _                   Address:=cell.Value, _                   ScreenTip:=cell.Value, _                   TextToDisplay:=cell.Value             End With         Next cell     End If

' Reshare the Workbook     If Not ActiveWorkbook.MultiUserEditing Then         ActiveWorkbook.SaveAs _           Filename:=ActiveWorkbook.FullName, _           AccessMode:=xlShared     End If End Sub

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (3155) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Konvertieren in Hyperlinks in einer freigegebenen Arbeitsmappe.