GetObject Tabellenblatt ausgeblendet
19.07.2022 14:13:58
Tim
ich habe Dank der Forenbeiträge, ein Makro welches mir Daten im Hintergrund in eine Tabelle schreibt, das funktioniert.
Problem dabei ist ist, dass a) das Tabellenblatt in der Zieldatei anschließend ausgeblendet ist und b) bei Mehrfachausführung, auch das Tabellenblatt aus der Datei mit dem makro ausgeblendet wird.
Kann mir jemand sagen, wie man das verhindert?
Sub Update()
Pfad = "c:\"
Datei = "Test.xlsx"
GetObject (Pfad & Datei)
Set Tabelle = Workbooks("Test.xlsx")
Set Blatt = Tabelle.Worksheets("Tabelle1")
With UserForm3.Übersicht
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
DB_Blatt.Cells(.List(i, 9), 1) = .List(i, 0)
End If
Next i
End With
Tabelle.Close Savechanges:=True
End Sub