Dieses Makro minimal überarbeiten - Del statt Msg.
23.02.2005 16:56:14
DonFiala
Statt der Messagebox für die gefundennen Verknüpfungen hätte ich jedoch gern, dass die in den jeweils stehenden Zellen vorhandenen Werte reinkopiert werden!
bitte ergänzt mir die fehlenden Zeilen, werds parallel versuchen, aber selbst nach Stunden wahrscheinlich nicht hinbekommen... :-(
Sub Verknüpfungen_finden()
Dim Zelle As Object, ersteAdresse$
'erste Verknüpfung finden
Set Zelle = Cells.Find(What:="]", LookIn:=xlFormulas)
If Not Zelle Is Nothing Then
ersteAdresse = Zelle.Address
MsgBox "Verknüpfung in: " & ersteAdresse & _
Chr(10) & Chr(10) & "Verknüpfung: " & _
Chr(10) & Range(Zelle.Address).Formula
'weitere Verknüpfungen finden
Do
Set Zelle = Cells.FindNext(Zelle)
If Zelle.Address = ersteAdresse Then Exit Do
MsgBox "Verknüpfung in: " & Zelle.Address & _
Chr(10) & Chr(10) & "Verknüpfung: " & _
Chr(10) & Range(Zelle.Address).Formula
Loop While Not Zelle Is Nothing And Zelle.Address <> ersteAdresse
End If
End Sub