Hallo,

habe gerade ein Beispiel über Tabellenvergleiche ausprobiert; stammt aus dem Forum, Text-Index: 029298.
Ich habe 2 Mappen erstellt, "Vergl1/2" und in "Vergl3" soll das Ergebnis abgelegt werden. Das Programm stoppt aber immer mit der Meldung: "Arbeitsmappen usw" .
Das liegt vermutlich an "Set wkb = Workbooks("Mappe" & iWks)". Ich weiß nicht was hier mit Mappe gemeint ist (alle Mappen in einer?). Hat vielleicht jemand einen Tip? Danke.

Heinz

-----------------------------------------
Private Sub Vergleich_Click()
Dim wkb As Workbook
Dim wksA As Worksheet, wksB As Worksheet, wksC As Worksheet
Dim iWks As Integer, iRow As Integer, iRowT As Integer

On Error Resume Next
For iWks = 1 To 3

*** Set wkb = Workbooks("Mappe" & iWks)
Next iWks
If Err > 0 Or wkb Is Nothing Then
Beep
Err.Clear
MsgBox prompt:="Arbeitsmappen sind nicht vorhanden!"
Exit Sub
End If
On Error GoTo 0
Set wksA = Workbooks("Vergl1.xls").Worksheets(1)
Set wksB = Workbooks("Vergl2.xls").Worksheets(1)
Set wksC = Workbooks("Vergl3.xls").Worksheets(1)
iRow = 1
. . .