PDA

Vollständige Version anzeigen : Zellbezug finden


Torsten1
26.07.2012, 10:02
Hallo

Das Topic ist vielleicht nicht ganz richtig aber ich wußte nicht, wie ich es
formulieren sollte.

Ich habe in einem Tabellenblatt eine Zelle verschoben.
Die Zellbezüge der Zellen, die auf diese Zelle zugreifen wurden angepasst.

Kein Problem bei Formeln im Tabellenblatt.

Ich muss nun herausfinden welche Zellen auf diese besagte (verschobene)
Zelle zugreifen, damit ich den VBA Code entsprechend anpassen kann,
da dieser natürlich nicht beim verschieben der Zelle geändert wird.

Gibt es da eine Möglichkeit ?

Nette Grüße
Torsten

chris-kaiser
26.07.2012, 10:11
Hi

Option Explicit

Sub til()
Dim rngC As Range
Set rngC = ActiveCell
If rngC.HasFormula = True Then
MsgBox "Folgende Zellen sind in der Zelle " & rngC.Address(0, 0) & _
" in Verwendung" & Chr(10) & rngC.Precedents.Address(0, 0)
Else
MsgBox "Active Zelle hat keine Formel"
End If
End Sub


sowas??

Torsten1
26.07.2012, 10:31
Danke für Deine Antwort.

Habe mich einfach mal wieder zu blöde angestellt.

Über "Suchen" bin ich zum Ergebnis gekommen.

Nochmals vielen Dank für Deine Antwort und die damit verbundene Mühe.

Nette Grüße
Torsten