AW: Vorgänger suchen
29.08.2007 15:02:00
Matthias
Hallo Rüdiger
Ausgangslage war: (da der Beitrag ins Archiv gewandert ist)
Du wolltest die Vorgängerzelle der Zellen A17:A79 finden und in der Nachbarzelle ausgeben.
Ich habe daraus gefolgert, das es sich um die tatsächlichen Vorgängerzellen (Detektiv) handelt.
und Dir diesen Code geschickt:
Option Explicit
Sub VorgaengerFinden()
On Error Resume Next
Dim x As Long
For x = 17 To 79
If Cells(x, 1) "" Then
Cells(x, 1).Offset(0, 1) = Cells(x, 1).Precedents.Address
End If
Next
End Sub
Anscheinend aber brauchst Du die Ausgabe der Formeln in der Nachbarzelle.
Beispiel:
Also, wenn in A17 z.B. steht =Tabelle1!A1 willst Du in B17 genau diesen Text haben.
Du willst also wissen ohne die Zelle A17 zu selectieren, zu welcher Adresse dies Zelle führt, bzw.welche Formel drinsteht. Ist das so korrekt?
Dann hilt Dir evtl. diese Schleife:
Sub FormelZeigen()
On Error Resume Next
Dim x As Long 'kommt drauf an wie gross x wird
For x = 17 To 79
If Cells(x, 1) "" Then
Cells(x, 1).Offset(0, 1) = "'" & Cells(x, 1).Formula
End If
Next
End Sub
hier mal noch eine Beispieldatei:
https://www.herber.de/bbs/user/45514.xls
Da ich mir aber nicht sicher bin, ob es das ist - lass ich die Frage mal als offen, damit andere auch noch mitwirken können.