Hallo liebe Excel-Fangemeinde,
Eigentlich eine einfach Sache und dennoch läuft es nicht so wie gewünscht.
Nach Anklicken eines Buttons sollen Daten aus dem geöffneten Tabellenblatt in eine Sammeldatei (Gesamt1-Mai-2020.xlsx) übertragen werden. Damit dieses ohne Probleme geschieht, soll zunächst einmal abgefragt werden, ob die Datei gerade auf oder geschlossen ist. Dazu gibt es eine Funktion, die auch funktioniert.
Bei den nachstehenden Programmzeilen jedoch erhalte ich den Fehler: Else ohne If ??????
Das Startprogramm sieht aktuell so aus:
Sub start()
If Dateiistfrei("C:\Personal\Kurzarbeit\Gesamt1-Mai-2020.xlsx") = True Then Call ueber1
Else
MsgBox "Die Sammeldatei wurde von einem anderen User geöffnet. Bitte versuchen Sie die Datenübertragung gleich noch einmal. Vielen Dank! Sollte trotz mehrmaligen Versuchens keine Übertragung erfolgen, so informieren Sie bitte mich. "
End If
End Sub
Ich bedanke mich schon mal bei allen die hier reingeschaut haben für Ihr Interesse und hoffe, dass jemand mir die "Else" zum laufen zu bringen.
Vielen Dank im Voraus an alle und mit freundlichen Grüßen... Helmut