Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

xlveryHidden anwenden auf andere Datei

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
Anzeige
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
Anzeige
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
Anzeige
Jaaa, fast... bitte one more
07.01.2004 14:40:11
ray
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

AW: Jaaa, fast... bitte one more
07.01.2004 15:12:48
Bertram
Wenn du auf einem Tabellenblatt deiner Ausgangsmappe einen Button erstellst, der beim klicken das Makro ausführt, funktioniert das ScreenUpdating = False. Bin momentan etwas ratlos, warum es nicht funktioniert, wenn man das Makro direkt aus dem Editor startet.
Werd mal en bischen rumprobieren, aber wie gesagt, mit dem Button geht's.

Gruß
Bertram
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige