Guten Morgen,
Habe folgendes Makro, für das prüfen ob es der Richtige Dateinamen ist. Der Richtige Dateiname steht in
der aktiven Sheet "H2".
If ThisWorkbook.name "H2" Then
MsgBox "Sie können diese Daten NICHT kopieren ! " & Chr(13) & Chr(13) & _
"Grund: " & Chr(13) & _
" die Datei hat noch den Lotus Notes Namen ! " & Chr(13) & Chr(13) & _
"Sie müssen die Datei erst Speichern ! " & Chr(13) & Chr(13) & _
"Das BUTTON Nr.1 klicken, mit dieser Beschriftung: " & Chr(13) & Chr(13) & _
"""1. HIER drücken, wenn Datei von Lotus kommt. / Speichern und Schließen ! "" " _
& Chr(13) & Chr(13) & _
"dann kann kopiert werden ! ", 64, "Hinweis"
Exit Sub
End If
was habe ich Falsch gemacht ?
gruß Walter