Zellbezüge umwandeln abolut in relativ usw.
Reinhard
in einem anderen Forum wollte jmd wissen wie man in vorhandenen Formeln die Zellbezüge wandeln kann von relativ in absolut und umgekehrt usw.
Okay, die Anfrage ist beantwortet, ich verwies ihn dann gezielt auf Code in Hajos Webseite wo dies mit "ConvertFormula" gelöst wird.
Mein Problem ist nun warum mein Lösungsansatz nicht funktioniert.
Ich konnte auch zwischen Precedents und DirectPrecedents keinen Unterschied feststellen.
Meine Frage ist nun, kann man auch ohne "ConvertFormula" mit "*Precedents" so ein Problem lösen?
Genauer gefragt, warum wird aus C1,E2,C7 dann C1,C2,C3 und warum kommt "keine Zellen gefunden" wenn in der Formel auf ein anderes Blatt verwiesen wird?
Getestet hatte ich mit
A1: =C1+E2+C7
A2: =Tabelle2!D5
Und angezeigt werden für A1: C1, C2, C3
bei A2 kommt der Fehler "keine Zellen gefunden"
Sub test()
Call Ersetzen(Range("A1:A2"))
End Sub
Sub Ersetzen(Bereich As Range)
Dim Zelle As Range, N As Integer
For Each Zelle In Bereich
If Zelle.HasFormula Then
MsgBox Zelle.Address
For N = 1 To Zelle.DirectPrecedents.Count
MsgBox Zelle.DirectPrecedents(N).Address
Next N
End If
Next Zelle
End Sub
Danke ^ Gruß
Reinhard