Blätter mit demselben Namen
25.02.2004 11:20:52
Ulrike
Viele meiner Arbeitsmappen enthalten Verknüpfungen zu anderen Arbeitsmappen, so dass ich mir der Einfachheit halber ein Makro geschrieben habe, das alle verknüpften Mappen in einer Tabelle nacheinander auflistet. Dieser Tabelle gibt das Makro auch gleich den Namen "Verknüpfte Mappen" (Namensgebung deshalb, weil ich dieses Tabellenblatt bei jedem Öffnen, falls vorhanden, löschen lassen will!)
Jetzt kommt meine Frage:
Wenn ich nun mal den Wald vor lauter Bäumen nich seh und den Makrobutton zum zweitenmal betätige, kommt logischerweise die Fehlermeldung, das keine Blätter mit dem gleichen Namen existieren dürfen, oder so ähnlich.........Wie könnte ich das umgehen und für den Fall lieber nen nettes Fensterchen aufgehen lassen, in dem steht, das schon eine Liste aller Verknüpfungen existiert???
Dankeschön!
Hier mein VBA Code:
Sub VerknüpfteMappenInLinks()
Dim Mappe As Workbook
Dim VLink As Variant
Dim i As Integer
Dim x As Long
Set Mappe = ThisWorkbook
Sheets.Add.Name = "Verknüpfte Mappen"
Range("A1").Select
VLink = Mappe.LinkSources(xlExcelLinks)
If Not IsEmpty(VLink) Then
For i = 1 To UBound(VLink)
ActiveCell.Hyperlinks.Add ActiveCell, VLink(i)
ActiveCell.Offset(1, 0).Select
x = x + 1
Next i
ActiveSheet.Columns(1).AutoFit
End If
If x > 0 Then
MsgBox _
"Diese Arbeitsmappe ist mit " & x & " weiteren Arbeitsmappen verknüpft!", vbInformation, "Information"
Else
Application.DisplayAlerts = False
Sheets("Verknüpfte Mappen").Delete
MsgBox "Diese Datei enthält keine Verknüpfungen zu anderen Arbeitsmappen!", vbCritical, "Nicht gefunden"
End If
End Sub