Hej, alles gut.....
Das Problem ist größer als ich dachte.... und weiß nicht warum ...
Hatte angenommen, dass der Fehler nur auftritt bei der Neuanlage eines Datensatzes....... war wohl nix...
Wenn ich in die Listbox klicke um einen Datensatz aufzurufen
erscheint der Fehler auch
Do While LTrim(CStr(Worksheets("DB").Cells(lZeile, 1).Value))
Also eigentlich immer wenn ...."Worksheets("DB") ..." das Blatt Tabelle1 ("DB") aufgerufen werden soll...
Das passiert tatsächlich in der Version in der ich TAbelle1 nicht umbenannt habe und in der 2. auch......
Immer nur wenn die andere DAtei im Hintergrund offen ist. DIe Datenbankdatei für sich alleine, ohne den AUfruf aus dem Formular funzt ohne Probleme.
Ich habe mir auch ne Testdatei gemacht aus der ich mit
Sub Schaltfläche1_Klicken()
Dim Pfad As String
Dim Dat As String
Pfad = "T:\Qualitätsmanagement\Aufzeichnungen\Änderungen_Sondergenehmigungen\"
Dat = "Datenbank Änderungsanträge.xlsm"
Workbooks.Open Pfad & Dat
'Application.WindowState = xlMinimized
Application.Visible = False
End Sub
die Datenbank aufrufe und weil ich das Problem in der Tabelle1 sah, diese gelöscht und habe nur einen Tabelle2 darin.
Gleiches Problem .... Ich weiß echt nicht mehr weiter......
|