fehlende Verknüpfung aufspüren

[Glausius]

Hallo Uwe,

falsch geschossen - alles Andere ist deklariet, ich habe ja nur einen Code-Auszug hier eingesstellt!

Wer die Deklarierung sehen will, hier ist sie:

Code:

Public a As Integer
Public c As Range
Public Erg(1000, 13) As Variant
Public firstAddress As Variant
Public i As Integer
Public Info As String
Public j As Integer
Public k As Integer                      'Kriteriumszähler
Public merker As Long
Public oWb As Workbook
Public p As Long
Public str As Variant
Public strDateien() As String
Public strPfad As String
Public SuchKrit() As Variant              'Suchkriterien
Public SuchSpalte() As Variant            'Sichspalte für das jeweilige Suchkriterium
Public VarFS As Object
Public ws As Worksheet
Public x As Long
Public z As String

Wie muss denn nun it deklariert werden?

[Kuwer]

Hallo Günter,

Wie muss denn nun it deklariert werden?

as Object ?

Gruß Uwe

[schauan]

Hallo Günter,

wenn Du nur den Code von snb nimmst und in die Überwachung schaust, sollte ein brauchbarer Typ drin stehen. Hier ist es Variant/String. String würde zum Dir-Befehl passen, jedoch verlangt For Each ein Object oder Variant. Diese Info bekommst Du als Fehlermeldung, wenn Du String einsetzt. Object erzeugt auch einen Fehler, sodass nur Variant übrig bleibt .

[snb]

Lösche 'Option Explicit'. Ohne Deklarationen würde es darum makellos laufen.

[Glausius]

ich gebe auf...

Ohne Option Explicit bleibt der Code bei For Each it In .LinkSources hängen und meldet: Typen unverträglich. Aber erst bei der 2. zu durchsuchende Datei.

[Kuwer]

Hallo Günter,

... bleibt der Code bei For Each it In .LinkSources hängen und meldet: Typen unverträglich. Aber erst bei der 2. zu durchsuchende Datei.

teste mal so:

            For Each it In .LinkSources(xlExcelLinks)

               If Dir(it) = "" Then .BreakLink it, 1

           Next

Gruß Uwe

[Glausius]

...leider bleibt es auch da bei der Fehlermeldung: Typen unverträglich

[Glausius]

  2011 Finanzbericht.xlsm (Größe: 445 KB / Downloads: 2)
  2012 Finanzbericht.xlsm (Größe: 442,58 KB / Downloads: 2)
  Suche 2017-1.xlsm (Größe: 68,06 KB / Downloads: 2)
... so jetzt habe ich die Birnen dicke...

Hier sind einmal zwei selektierte Dateien mit fiktiven Daten und die Suchroutine.
Alle drei Dateien müssen gemeinsam in einem sonst leeren Verzeichnis stehen und dann die Suche 2017-1 aufrufen. Zum Suchen bitte unter Konto eine 420 eingeben und starten - die Datei 2011 läuft durch, 2012 kommt mit der Fehlermeldung.
Dabei habe ich unter 2011 eine fehlerhafte Verknüpfung eingetragen, sie ist auf dem Tabellenblatt DB00 der letzte Eintrag mit der laufenden Nr. 99.

Ziel wäre es, dass mir die Datei 2011 ausgegeben wird, denn dann könnte ich dort mit Hajos Code ja gezielt suchen.

[Steffl]

Hallo Günter,

kann es sein, dass die Datei 2012 überhaupt keine Verknüpfungen enthält?

[schauan]

Hallo Günter,

diese Klippe umschiffst Du mit

With Workbooks.Open(strDateien(i), False)
If Not IsEmpty(.LinkSources(xlExcelLinks)) Then
For ...

Du musst dann nur noch eine passende Stelle für das End If finden.