Unerwartete Leerzeilen nach Speichern
06.02.2023 13:45:35
Peter
leider hat meine bisherige Suche nach einer Lösung noch zu keinem Erfolg geführt, daher bitte ich hier um Hilfe.
Ich habe für Kollegen eine kleine Excel/VBA-Anwendung gebastelt, die im wesentlichen Daten, die in eine Userform eingegeben werden, nach Klick auf einen Button in eine Tabelle speichert. Die Userform liegt in einer eigenen Tabelle (für jeden Anwender, eine Art Frontend), die Datentabelle wird nur zum Speichern geöffnet und wieder geschlossen.
Folgendes Phänomen tritt dabei hin und wieder auf: Nach dem Speichern liegen zwischen dem letzten Datensatz und dem eben gespeicherten Satz plötzlich ca. 1500 leere Zeilen! Die nächsten Datensätze werden dann natürlich ans Ende angehängt, aber auch dort bleiben plötzlich wieder hunderte Zeilen leer. Die Sub fürs Speichern bedient sich altbewährten Codes:
strLast = RegiWS.Cells(Rows.Count, 1).End(xlUp).Row + 1, um die erste freie Zeile zu ermitteln (strLast = string) und
.Cells(strLast, 3).Value = UFMaster.TB_Kennzeichen.Value, um die Daten aus der Userform in die Tabelle zu schreiben.
Wir sind echt am verzweifeln, weil auch nach Bereinigung der Datentabelle der Fehler sporadisch immer wieder auftritt. Hat jemand eine Idee, woher die Leerzeilen kommen könnten? Ein Bedienfehler ist eigentlich nicht denkbar, dafür ist die Anwendung zu simpel (und niemand würde 1000 leere Datensätze speichern).
Vielen Dank im Voraus für jede Hilfe!!
Peter