Excellent

Hallo,
ich habe reichlich externe Bezüge der Form ='G:\Projekte\[Datenerfassung.xls]Bereich1'!$G$30 und möchte daraus interne Bezüge der Form ='Bereich'!$G$30 machen. Mein VBA-Code

Public Sub ExterneBezuegeLoesen()
Dim strFormula As String
Dim iPos As Integer
Dim iLen As Integer
Dim iRow As Integer
Dim iCol As Integer
Dim c As Object

Cells().Select
For Each c In Selection
If c.HasFormula = True Then
strFormula = c.Formula
iPos = InStr(1, strFormula, "]")
If iPos > 0 Then
iLen = Len(strFormula)
strFormula = "='" & Mid(strFormula, iPos + 1, iLen - iPos)
c.Formula = strFormula
End If
End If
Next c
End Sub

Es läuft soweit durch, jedoch schreibt die Zeile c.Formula=strFormula einen String in die Zelle, der nicht als Formel interpretiert wird, sondern als String. Wer kann mir meinen Fehler zeigen?

Gruß - Dirk Hornauer

Hallo Dirk,

versuch mal nach dem Umsetzen nochmals mit FormulaLocal drüber zu gehen.

Public Sub ExterneBezuegeLoesen()
Dim strFormula As String
Dim iPos As Integer
Dim iLen As Integer
Dim iRow As Integer
Dim iCol As Integer
Dim c As Object

Cells().Select
For Each c In Selection
If c.HasFormula = True Then
strFormula = c.Formula
iPos = InStr(1, strFormula, "]")
If iPos > 0 Then
iLen = Len(strFormula)
strFormula = "='" & Mid(strFormula, iPos + 1, iLen - iPos)
c.Formula = strFormula
'******hier drüber
strFormula.FormulaLocal=strFormula.FormulaLocal
'***

End If
End If
Next c
End Sub

Gruß und schönes WE
Andreas

...vielleicht genügt ja auch schon ein
c.Formula = strFormula
c.ClearFormats
End If
...........................................
Bei mir hat Dein Makro nämlich einwandfrei funktioniert .....

Mit freundlichsten Grüßen

Peter Murschall

Danke an Andreas und Peter für die Unterstützung. Leider bringen weder das "noch mal drübergehen mit FormulaLocal" noch das "c.ClearFormats" bei mir den gewünschten Erfolg. Nach wie vor sehe ich den korrekt umgewandelten String in der Zelle, jedoch wird er nicht als Formel interpretiert, denn dann müsste ich ja in der Zelle c den Wert der referenzierten Zelle sehen.

Gruß - Dirk

Hallo Dirk,
seltsam, siehst Du in der Berbeitungsleiste ein Hochkomma vor der Formel ?
Gruß
Andreas

Ja, wahrlich seltsam.
Überprüf doch mal das Format der Zelle und die Option Berechnung.

Danke für Eure Anregungen. Ich habe die Tipps überprüft:

Die Bearbeitungszeile zeigt
='Bereich_GB'!$O$30

Die Formatierung ist "Standard", habe aber auch schon "Text" und "Zahl" ohne Erfolg getestet. Die Option Berechnung steht auf "automatisch".

Einen schönen Sonntag - Dirk

Hallo Dirk,
das Abostroph macht mich ein wenig stutzig nach dem =-Zeichen

='Bereich_GB'!$O$30

Was passiert denn wenn Du den Bereich mit diesen Formeln markierst

Bearbeiten: Siuche nach =' ersetzen durch =

und was passiert, wenn Du nach dem Einstellen der Formatierung auf
Standard, in der Zelle die Tasten 'F2' 'Enter' drückst ?

Mit freundlichsten Grüßen

Peter Murschall