Problem mit verwaisten Verweisen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hallo peter,
du musst erst die neuen blätter anlegen, dann die bezüge ändern, dann die alten löschen und dann die indizees der blätter wegnehmen.
zum bezüge ändern geht z.b. das:
aus einem anderen makro hier aus dem forum abgeleitet


Sub FormelErsetzen()
'verknüpfte Dateien bitte schliessen!
'zuerst Blätter kopieren - Index der neuen Blätter muss hier
'im Beispiel " (2)" sein
'Beispiel funktioniert nur bei Syntax "=Blattname!..." richtig
'steht der Name weiter hinten oder kommt mehrfach vor geht's nicht
Dim Tab1 As Object
Dim Zelle1 As Object
Dim AlleFormeln As Object
On Error GoTo FehlerVerknüpfungAuflösen
For Each Tab1 In ActiveWorkbook.Worksheets
Set AlleFormeln = Tab1.Cells.SpecialCells(xlFormulas, 23)
For Each Zelle1 In AlleFormeln
'Formeln in denen Punkt und anführungsstriche stehen sind vermutlich Verknüpfungen
If InStr(Zelle1.Formula, ".") = 0 And InStr(Zelle1.Formula, "'") = 0 Then
'Formeln mit Ausrufezeichen sind wahrscheinlich Bezüge
If InStr(Zelle1.Formula, "!") > 0 Then
'Blattname und rechten Teil extrahieren
blatt = Mid$(Zelle1.Formula, 2, InStr(Zelle1.Formula, "!") - 2)
rechts = Right$(Zelle1.Formula, Len(Zelle1.Formula) - InStr(Zelle1.Formula, "!"))
Zelle mit Formel mit neuem Blattname füllen
Zelle1.Formula = "='" & blatt & " (2)'!" & rechts
End If
End If
Next Zelle1
Next Tab1
Exit Sub
FehlerVerknüpfungAuflösen:
If Err = 1004 Or Err = 424 Or Err = 91 Or Err = 92 Then Resume Next Else MsgBox ("Keine Zellen mit externen Verknüpfungen gefunden")
End Sub

gruss andre

Hallo Andre,

erst Mal vielen Dank für deine Antwort. Zum Thema "Bezüge ändern" wird mir das Code-Beispiel auf jeden Fall weiterhelfen. Wahrscheinlich könnte ich auch die jeweils neu erstellte Tabelle nach Anpassung der Bezüge umbenennen.

Bleiben noch folgende Punkte unklar:

1. Es gibt nur 4 Arbeitsblätter(nennen wir sie hier Tabellen A - D), in denen die Formeln angepasst werden müssten. Zu jedem dieser 4 gehört eine Gruppe von ca. 6 Tabellen, auf die in den Formeln Bezug genommen wird (Tabellen A1..A6, B1..B6 etc.). (Die besser verständlichen sprechenden Namen kann ich hier nicht öffentlich machen).

Die Anpassung darf also jeweils nur in dem einen Arbeitsblatt passieren, dass zu der betreffenden Gruppe gehört, und da auch nur in den Formeln, die sich auf das neu erstellte Blatt beziehen. Wenn also das Blatt A2 neu erstellt wird, gibt es in Blatt A einige Formeln, die auf Blatt A2 Bezug nehmen (die müssten geändert werden), es gibt aber auch Formeln, die sich auf die Blätter A1, A3 etc. beziehen, die nicht geändert werden dürfen, von B, C etc. ganz zu schweigen.

2. Deine Variable "blatt" enthält nach
blatt = Mid$(Zelle1.Formula, 2, InStr(Zelle1.Formula, "!") - 2)
den alten Blattnamen, der ja auch der Name des neu erstellten werden soll.

Die Zeile
Zelle1.Formula = "='" & blatt & " (2)'!" & rechts
verstehe ich nicht, weil hier der Blattname aus der Variablen als String eingefügt wird und der Index (?) Was kommt da raus? Und woher weiß ich den Index des neu erstellten Blattes?

Ich hoffe, das ist einigermaßen verständlich rübergekommen. Wenn Du Lust hast, da noch ein paar Gedanken drauf zu verwenden, bin ich dir sehr dankbar.

Gruß

Peter

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread