HILFE-EILT SEHR! Formelkopien ...
11.01.2006 17:11:53
Matthes
bitte ganz dringend um rasche Hilfe ...
Ich habe ein Makro geschrieben, welches von diversen Leuten in verschiedenen Ländern auf eine bestimmte Datei angewandt werden soll und in der jeweiligen Datei Formeln ändert. Hierzu kopiert das Makro eine hinterlegte Formel in die Datei vor Ort. Problem: Vor Ort wird die Datei verunstaltet, da nicht nur die Formel sondern der komplette Pfad mitkopiert wird.
Konkret heißt das:
Beispiel: Blatt "K" in der Makro-Datei, Zelle A2: =Summe(A2:B2)
Ergebnis soll sein: Blatt "K" in der "Vor-Ort-Datei", Zelle A2: =Summe(A2:B2)
Das Ergebnis ist aber: =C:\xyz\abc\[KorrekturMakro.xls]=Summe(A2:B2).
Wie kann ich erreichen, dass dieser unselige Pfad nicht mitkopiert wird?
Hier ein Ausschnitt aus meinem Makro:
ThisWorkbook.Sheets("K").Activate
Application.CutCopyMode = False
Range("G44:o58").Select
Selection.Copy
Workbooks(SName).Sheets("K").Activate
Range("G44:o58").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("G44:O58").Select
Selection.Replace What:="[Korrektur-Makro 12122005.xls]", Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Ich vermute, dass in der Zeile Selection.Paste Special der Hase im Pfeffer liegt. Deswegen hatte ich vorab schon versucht, mit Selection.Replace im Vorfeld zu arbeiten. Es verbleibt aber der Pfad ...
Vielen Dank vorab.
Gruß,
MAtthes