Anzeige
Archiv - Navigation
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Verknüpfungen ändern

Verknüpfungen ändern
04.12.2006 15:00:19
Anja
Hi Ihr Lieben
ich hab ein für grosses Problem. Auf einem Tabellenblatt habe ich sehr viele Verknüpfungen zu einem anderen Workbook. z.B.
=[F2006.xls]Ott!$E$211.
Spalten und Zeilenangaben sind natürlich bei jeder Verknüpfung anders.
Meine Aufgabe ist nun, jede Verknüpfung dahingehend zu ändern:
=WENN(ISTFEHLER([F2006.xls]Ott!$E$211);0;[F2006.xls]Ott!$E$211)
Wer kann mir einen Tipp geben, um alle ca.500 Verknüpfungen elegant per VBA anzupassen?!
Liebe Grüsse Anja

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verknüpfungen ändern
04.12.2006 16:11:09
Walburga
Hallo Anja
dies kann Dir weiterhelfen:

Sub Verknüpfung_ändern_Fehlerabfrage()
Dim b
Dim zelle
On Error GoTo ErrorHandler
For Each zelle In Range("A1:D400")   'muss angepasst werden
Cells.Find(What:="=[F2006", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
b = Right(CStr(ActiveCell.FormulaLocal), Len(CStr(ActiveCell.FormulaLocal)) - 1)
ActiveCell.FormulaLocal = "=wenn(istfehler(" & b & ");0;" & b & ")"
Next
ErrorHandler:    ' Fehlerbehandlungsroutine.
Select Case Err.Number    ' Fehlernummer auswerten.
Case 91  'tritt auf, wenn bereits geändert
MsgBox "Fertig"
Exit Sub
Case Else
' Andere Fälle hier bearbeiten...
End Select
End Sub

Liebe Grüsse
Walburga
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige