6
Tabellenblatt Excel einblenden (und ausblenden)
Guten Tag zusammen,
leider bekomme ich ein Tabellenblatt nicht eingeblendet.
Ich würde mich über Hilfe freuen
Soweit bin ich, was leider nicht funktioniert:
Gruß
okodoki
leider bekomme ich ein Tabellenblatt nicht eingeblendet.
Ich würde mich über Hilfe freuen
Soweit bin ich, was leider nicht funktioniert:
Set appXLS = CreateObject("Excel.Application")
Set wbkXLS = appXLS.Workbooks.Open("Datei.xlsx", , true)
wbkXLS.RefreshAll
wbkXLS.sheets("Tabelle1").Visible = True
wbkXLS.Close 0
Set wbkXLS = Nothing
appXLS.Quit
Set appXLS = NothingGruß
okodoki
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 2133873781
Url: https://administrator.de/contentid/2133873781
Ausgedruckt am: 19.11.2024 um 17:11 Uhr
6 Kommentare
Neuester Kommentar
"Speichern" des Workbook vor dem Schließen wäre mal eine Idee 😉🖖
Friday still continues ...
Friday still continues ...
1
... hatte eigentlich gedacht, dass "Close" gleichzeitig auch speichert ...
... nun will er aber dieselbe datei überschreiben, eingeblendet und gespeichert ist es dennoch nicht ...
*verzweifel*
Set appXLS = CreateObject("Excel.Application")
Set wbkXLS = appXLS.Workbooks.Open("Datei.xlsx", , true)
wbkXLS.RefreshAll
wbkXLS.sheets("Tabelle1").Visible = True
wbkXLS.save
wbkXLS.Close 0
Set wbkXLS = Nothing
appXLS.Quit
Set appXLS = Nothing... nun will er aber dieselbe datei überschreiben, eingeblendet und gespeichert ist es dennoch nicht ...
*verzweifel*
Set wbkXLS = appXLS.Workbooks.Open("Datei.xlsx", , true)
^ ^ ^
FileName UpdateLinks ReadOnlySteffen
Zitat von @OKIDOKI:
... nun will er aber dieselbe datei überschreiben, eingeblendet und gespeichert ist es dennoch nicht ...
*verzweifel*
... nun will er aber dieselbe datei überschreiben, eingeblendet und gespeichert ist es dennoch nicht ...
*verzweifel*
Oder mit SaveAs arbeiten:
docs.microsoft.com/de-de/office/vba/api/excel.workbook.saveas
Hier ist übrigens alles dokumentiert, so auch die Parameter zur Open-Methode:
docs.microsoft.com/de-de/office/vba/api/excel.workbooks.open
Grüße
DivideByZero
Ein Makro was das Tabellenblatt 'Tabelle2' ein - und ausblendet
BG
Sub Makro2()
Sheets("Tabelle2").Visible = Not Sheets("Tabelle2").Visible
End SubBG
Liebe Dank euch (insbesondere auch der Tipp von Steffen war sehr hilfreich)
Ich habe versucht mich durchzuarbeiten und so läuft es:
okidoki
(insbesondere auch der Tipp von Steffen war sehr hilfreich)Ich habe versucht mich durchzuarbeiten und so läuft es:
Set appXLS = CreateObject("Excel.Application")
Set wbkXLS = appXLS.Workbooks.Open("Pfad\Datei.xlsx", , false)
wbkXLS.RefreshAll
wbkXLS.sheets("Tabelle2").Visible = false
wbkXLS.save
wbkXLS.Close 0
Set wbkXLS = Nothing
appXLS.Quit
Set appXLS = Nothingokidoki
