Fehler abfangen wenn Tabellenblatt nicht vorhanden
04.09.2006 21:20:39
Dieter.K
ich muß noch einmal um Eure Hilfe bitten. Irgendwie bekomme ich die Fehlerabfrage nicht "gebacken". Kann mir eventuell jemand erklären wo ich in dem folgenden Code die Frage nach dem zu verknüpfenden Tabellenblatt abfangen kann?
(Wenn das Tabellenblatt "Kundendaten" oder "Info" nicht vorhanden ist, öffnet sich ein Fenster mit der Frage nach dem zu verknüpfenden Tabellenblatt). Genau diese Meldung möchte ausschließen, damit tatsächlich nur Daten aus den Mappen eingelesen werden, die die besagten Tabellenblätter enthalten. Wäre nett, wenn sich diese Problematik einmal jemand anschauen könnte.
Sub Einlesen()
Dim iCounter As Integer, iRow As Integer, i As Integer
Dim sfile As String, sPath As String
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
With Application.FileSearch
.LookIn = Range("AA1").Value
.FileType = msoFileTypeExcelWorkbooks
.Execute
For iCounter = 1 To .FoundFiles.Count
sfile = Dir(.FoundFiles(iCounter))
sPath = WorksheetFunction.Substitute(.FoundFiles(iCounter), sfile, "")
For i = 6 To 8
With Cells(iRow, i - 5)
.Formula = "='" & sPath & "[" & sfile & "]Kundendaten'!E" & i
.Value = .Value
End With
Next
For i = 14 To 22
With Cells(iRow, i - 10)
.Formula = "='" & sPath & "[" & sfile & "]Kundendaten'!E" & i
.Value = .Value
End With
Next
With Cells(iRow, 13)
.Formula = "='" & sPath & "[" & sfile & "]Kundendaten'!E24"
.Value = .Value
End With
With Cells(iRow, 14)
.Formula = "='" & sPath & "[" & sfile & "]Kundendaten'!E26"
.Value = .Value
End With
With Cells(iRow, 15)
.Formula = "='" & sPath & "[" & sfile & "]Kundendaten'!F6"
.Value = .Value
End With
With Cells(iRow, 16)
.Formula = "='" & sPath & "[" & sfile & "]Info'!C2"
.Value = .Value
End With
iRow = iRow + 1
Next iCounter
End With
End Sub
Besten Dank im Voraus.
Gruß
Dieter.K