Hallo Zusammen,
folgendes Problem:
In der Prozedur wird der Name eine Rohwerte-Datei in die Variable NA gestellt. Der Name wird in Tabelle Zusammenfassung eingetragen. Wenn nun die gerade aktive Rohwerte-Datei ein zweites mal geöffnet wurde soll die Meldung "doppelt" kommen - später wird anstelle der Meldung anderer Code stehen; die msgbox nur zum testen.
Ich habe aber im Augenblick einen Knoten im Hirn, könnte bitte jemand hier helfen. Herzlichen Dank einstweilen für Eure Mühe.
Gruß
Johannes
und hier der Code:
NA = ActiveWorkbook.Name 'im Test: D060612_.PDD
Debug.Print NA
'schreibt den Dateinamen in Tabelle
Windows("Auslesen.xls").Activate
Sheets("Zusammenfassung").Select
d = Cells(Rows.Count, 1).End(xlUp).Row
d = d + 1
Cells(d, 1).Value = NA
If NA = Cells.Find(What:="D060612_.PDD", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate Then
MsgBox ("ok")
Else
MsgBox ("doppelt")
End If