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

Es ist zu beachten, dass Microsoft die Funktion „Gemeinsame Arbeitsmappe“ in den neuesten Versionen von Excel entfernt hat. Co-Authoring ist die neuere Methode zum Freigeben von Arbeitsmappen. Auf der folgenden Webseite wird erläutert, wie Sie bei Bedarf auf die Schaltflächen für freigegebene Arbeitsmappen zugreifen können. Wenn Sie beispielsweise die Funktion für freigegebene Arbeitsmappen deaktivieren müssen:

https://support.office.com/en-us/article/What-happened-to-shared-workbooks-150FC205-990A-4763-82F1-6C259303FE05

_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 (725) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier:

Konvertieren in Hyperlinks in einer freigegebenen Arbeitsmappe.