xlveryHidden anwenden auf andere Datei

Forumthread: xlveryHidden anwenden auf andere Datei

07.01.2004 12:57:10

ray

Hallo, mir ist grad ne interessante Frage gekommen, da jem. im Forum was zum Passwort wissen wollte.

Meine Frage ist:
Wie kann ist aus Datei 1 befehlen, daß in Dat 2 xlVeryhidden angewendet wird.

Danke für die Info

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: xlveryHidden anwenden auf andere Datei

07.01.2004 13:09:47

Bertram
bekomme fehlermeldung

07.01.2004 14:11:52

ray
AW: bekomme fehlermeldung

07.01.2004 14:16:11

Bertram
AW: so gehts nich.... leider

07.01.2004 14:20:13

ray
AW: so gehts nich.... leider

07.01.2004 14:31:30

Bertram
Jaaa, fast... bitte one more

07.01.2004 14:40:11

ray
AW: Jaaa, fast... bitte one more

07.01.2004 15:12:48

Bertram

AW: xlveryHidden anwenden auf andere Datei

07.01.2004 13:09:47

Bertram

Hallo Ray,

probier's mal so:

Sub TabellenblattAusblenden()
'Blendet Tabellenblatt 1 in der Mappe2.xls aus
Workbooks("Mappe2.xls").Sheets(1).Visible = xlVeryHidden
End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Gruß
Bertram

bekomme fehlermeldung

07.01.2004 14:11:52

ray

Hallo Bertram, hab es so eingegeben und bekommen die Fehlermeldung:
Indes außerhalb des gültigen Bereichs.
Why?

gruß ray

AW: bekomme fehlermeldung

07.01.2004 14:16:11

Bertram

Hallo Ray,

hst du "Mappe2.xls" geöffnet? Wenn nein, dann Fehler:-)

Gruß
Bertram

AW: so gehts nich.... leider

07.01.2004 14:20:13

ray

Hey Bertram, schön, daß Du noch da bist.
das Problem ist: Ich will die Datei nicht öffnen bzw. das öffenen und schließen soll nicht zu sehen sein...
How 2 do?
Gruß Ray

AW: so gehts nich.... leider

07.01.2004 14:31:30

Bertram

Hello again,

probier's mal so:

Sub TabellenblattAusblenden()
'Blendet Tabellenblatt  1 in der Mappe2.xls aus
Application.ScreenUpdating = False
Workbooks.Open FileName:="C:\Dokumente und Einstellungen\Bonte\Eigene Dateien\Eigene Tabellen\Mappe2.xls"
Workbooks(1).Activate
With Workbooks("Mappe2.xls")
    .Sheets(1).Visible = xlVeryHidden
    .Save
    .Close
End With
Application.ScreenUpdating = True
End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Gruß
Bertram

Das geht, vielen Dank Bertram.
Nur möchte ich das das öffnen nciht sichtbar passiert.
Hab micht gebObjekt probiert, leider wieder nciht geklappt
(1heißt bei mir 2)


Sub TabellenblattAusblenden()
'Blendet Tabellenblatt  1 in der Mappe2.xls aus
Application.ScreenUpdating = False
'Workbooks.Open Filename:="C:\Mappe1.xls"
GetObjekt ("C:\Mappe1.xls")
Workbooks(1).Activate
With Workbooks("Mappe1.xls")
.Sheets(1).Visible = xlVeryHidden
.Save
.Close
End With
Application.ScreenUpdating = True
End Sub

Beliebteste Forumthreads (12 Monate)

xlveryHidden anwenden auf andere Datei

Forumthread: xlveryHidden anwenden auf andere Datei

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread