in neu geöffnete Tabelle schreiben
28.12.2018 14:10:32
Fabian
ich hoffe Ihr könnt mir helfen, ich habe diverse Foren durchsucht und alles probiert was ich gefunden habe, aber nichts funktioniert:
Problemstellung:
Ich möchte gerne Daten, die in einer Exceldatei erstellten Form eingetragen wurden in einer anderen Exceldatei, die eigens dafür geöffnet werden soll, eintragen.
Das Eintragen in der Form und das Schreiben der Daten in der Exceldatei in der auch der Code liegt ist kein Problem. Immer aber wenn ich versuche die zweite Datei zu öffnen um die Daten dahin zu schreiben, öffnet das Script zwar die neue Datei, schreibt die Daten aber trotzdem in die alte in der sich auch der Code befindet.
Diverse Verusche mit Windows/Workbook/... activate/select/... haben bisher leider nicht zum Erfolg geführt, da ich immer den Fehler
"Laufzeitfehler '9': Index außerhalb des gültigen Bereichs
bekomme, da das Script offensichtlich nicht sieht, dass eine zweite Datei geöffnet wurde.
Ich poste jetzt nicht das komplette Script, das wäre zu umfangreich, aber der Auszug sieht folgendermaßen aus:
Private Sub CommandButton1_Click()
Dim appExcel As Object
Dim strPath As String
Dim strFile As String
Dim WBExcel As Workbook
Dim WSExcel As Worksheet
strPath = "C:\Users\Benutzer1\Desktop\"
strFile = "Arbeitszeiten_Mitarbeiter.xls"
Set appExcel = CreateObject("Excel.Application")
With appExcel
.Visible = True
Set WBExcel = .Workbooks.Open(strPath & strFile)
Set WSExcel = .Worksheets(1)
End With
Windows(strPath & strFile).Activate ' Währe dankbar für jeglichen Lösungsvorschlag.
Beste Grüße,
Fabian