externe Bezüge ändern (automatisiert)

Hallo,
ich habe eine Excel-Datei, die einige Bezüge zu einer anderen Datei aufweist. Monatlich muss ich nun diese Bezüge nun an eine andere externe Datei manuell anpassen. Bisher muss ich dies manuell pro Bezug durchführen, Suchen/Ersetzen über die gesamte Datei scheidet leider ebenso aus, wie "Verknüpfungen bearbeiten", da mit Hilfe dieser Funktionen wirklich alle Bezüge von einer auf eine andere Datei geändert werden, was aber nicht der Fall sein soll (einige Verknüfungen zu der "Altdatei" sollen nämlich erhalten bleiben und nicht geändert werden.
Vorstellen könnte ich mir, dass ich zentral einen Pfad zu der Bezugsdatei vorgebe und diesen dann im Änderungsfall dort anpasse, so dass alle in Frage kommenden Bezüge automatisch angepasst werden. Das Problem aber, ich wiederhole mich, dass nicht alle möglichen Bezüge angepasst werden sollen. Könnte man evtl. schon beim einzelnen Bezug ansetzen? D. h. die jeweilige Bezugsformel setzt sich zum einem zusammen aus dem zentral vorgegeben Pfad mit dem Dateinamen der Bezugsdatei und dem "individuellen" Teil aus konkretem Tabellenblatt- und Zellbezug. Meine bisherigen Versuche mit Excel-Boardmitteln brachten leider keiner Erfolg.
Ich hoffe, ich konnte mein "Problem" einigermassen verständlich ausdrücken!
Gruß
Bernd

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Ersetzen() Dim wks As Worksheet, wksPfad As Worksheet, lngPfad As Long Dim strAlt$, strNeu$ If MsgBox("Monats-Ersetzung jetzt durchführen?", vbYesNo) = vbYes Then Set wksPfad = ThisWorkbook.Worksheets("Pfadwechsel") With wksPfad For Each wks In ActiveWorkbook.Worksheets If wks.Name .Name Then For lngPfad = 7 To .Cells(.Rows.Count, 1).End(xlUp).Row strAlt = .Range("B2").Text & .Cells(lngPfad, 1).Text If InStr(1, strAlt, "NichtErsetzen1")

Hallo Bernd,
bestimmte Tabellenblätter vom Ersetzen auszuschließen ist kein Problem. Das geht mit einer Select Case-Anweisung.


For Each wks in ActiveWorkbook
Select Case wks.Name
Case "Tabelle1", TabelleXYZ"
'do nothing
Case Else
'Hier dann der Code-Abschnitt für das Ersetzen
End select
Next

Du muss eigentlich nicht alle Formeln eingeben, sondern "nur" die Formelteile, die ersetzt werden sollen. Da ich deine Formeln nicht kenne, kann ich nur schwer sagen wie es evtl. am geschicktesten ist.
Evtl. muss man ja "nur" die Reihenfolge der Ersetzungen besonders geschickt wählen.
Der umgekehrte Weg geht wahrscheinlich auch, ist aber wesentlich komplizierter zu programmieren, da jetzt Zellenweise eine Prüfung und ggf. Ersetzung gemacht werden muss und nicht mehr Blattweise.
Gruß
Franz

Sub Ersetzen() Dim wks As Worksheet, wksPfad As Worksheet, lngPfad As Long Dim strAlt$, strNeu$ If ActiveWorkbook.Name = ThisWorkbook.Name Then MsgBox "Diese Makro sollte nur gestartet werden, wenn die " _ & "Arbeitsmappe mit den Formeln die aktive Arbeitsmappe ist!" Else If MsgBox("Monats-Ersetzung jetzt durchführen?", vbYesNo) = vbYes Then Set wksPfad = ThisWorkbook.Worksheets("Pfadwechsel") For Each wks In ActiveWorkbook.Worksheets Select Case LCase(wks.Name) Case "tabelle1", "tabelle2" 'Namen nur mit Kleinbuchstaben! 'in diesen tabellen keine Formeln ersetzen Case Else For lngPfad = 7 To wksPfad.Cells(wksPfad.Rows.Count, 1).End(xlUp).Row strAlt = wksPfad.Range("B2").Text & wksPfad.Cells(lngPfad, 1).Text strNeu = wksPfad.Range("B3").Text & wksPfad.Cells(lngPfad, 2).Text wks.Cells.Replace What:=strAlt, replacement:=strNeu Next End Select Next End If End If End Sub

Beliebteste Forumthreads (12 Monate)

externe Bezüge ändern (automatisiert)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

externe Bezüge ändern (automatisiert)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread