Hallo zusammen,
Ich fülle über ein Formular verschiedene Daten in unterschiedliche Exel Files ab.
Der Code zum abfüllen in File abc sieht wie folgt aus und funktioniert im Einzelfall soweit einwandfrei:
If Me.cbbOriginal.Value = "YES" Then
Workbooks.Open Filename:= _"G:\...\...\abc.xlsx"Windows("abc.xlsx").Activate
Set wkbKontakt = ActiveWorkbook
Set wksKontakt = wkbKontakt.Sheets("PENDING")
Rows("5:5").Select
Selection.Insert Shift:=xlDown
With Me.txtDate
If .Value "" Then wksKontakt.Range("B5").Value = Me.txtDate.Value
End With
With Me.txtReason
If .Value "" Then wksKontakt.Range("E5").Value = Me.txtReason.Value
End With
End If
Das Problem taucht jedoch auf, wenn ich mehrere Formulare hintereinander in abc.xlsx abfüllen will. Dann kriege ich aufgrund der Tatsache dass abc.xlsx schon offen ist eine Fehlermeldung die besagt, dass alle Änderungen im File verloren gehen, wenn ich das File neu öffne. Weiss jemand wie ich das Problem beheben kann?
Vielen Dank
Kina