Supportnet / Forum / Tabellenkalkulation
Makro soll auf ausgeblendetes Blatt zugreifen
Frage
Hi,
und zwar hab ich ein paar Makros und Verweise in einer Datei die von einem Tabellenblatt auf das Nächste und umgekehrt zugreifen. Soweit ist alles i.O. Jedoch möchte ich, dass man nur das Erste Registerblatt sieht und die anderen nicht. Wenn ich die anderen Blätter nun ausblende, funktionieren meine Makrozugriffe und verweise nicht mehr? Was jetzt?
Antwort 1 von fedjo
Hallo grumpy,
wenn man mit Select arbeitet muß das Tabelle eingeblendet sein.
z.B.
Sub Makro1()
Sheets("Tabelle3").Select
Range("A1").Select
Selection.Copy
Sheets("Tabelle2").Select
ActiveSheet.Paste
End Sub
Ohne Select kann es ausgeblendet sein.
Sub Makro2()
Sheets(2).Range("A1") = Sheets(3).Range("A1")
End Sub
Gruß
fedjo
wenn man mit Select arbeitet muß das Tabelle eingeblendet sein.
z.B.
Sub Makro1()
Sheets("Tabelle3").Select
Range("A1").Select
Selection.Copy
Sheets("Tabelle2").Select
ActiveSheet.Paste
End Sub
Ohne Select kann es ausgeblendet sein.
Sub Makro2()
Sheets(2).Range("A1") = Sheets(3).Range("A1")
End Sub
Gruß
fedjo
Antwort 2 von grumpy
Danke fedjo,
werds gleich mal ausprobieren.
Mit dem "Reinigen"/"Säubern" der VAB Aufzeichnungen hab ich mich auch schon beschäftigt, da ich auch an sowas gedacht habe.
Komm aber nicht weiter, da die simple Regel "select" weglassen nicht funktioniert.
Gruß grumpy
werds gleich mal ausprobieren.
Mit dem "Reinigen"/"Säubern" der VAB Aufzeichnungen hab ich mich auch schon beschäftigt, da ich auch an sowas gedacht habe.
Komm aber nicht weiter, da die simple Regel "select" weglassen nicht funktioniert.
Gruß grumpy
Antwort 3 von ChristianT
Hallo Grumpy,
ich löse das immer, indem ich am Anfang per Makro alle Tabellenblätter einblenden lassen und hinterher alle für den User nicht sichtbaren Blätter ausblenden lasse.
Gruß
Christian
ich löse das immer, indem ich am Anfang per Makro alle Tabellenblätter einblenden lassen und hinterher alle für den User nicht sichtbaren Blätter ausblenden lasse.
Gruß
Christian
Antwort 4 von fedjo
Hallo Grumpy,
vielleicht kannst ja dein Makro mal ins Forum stellen.
Gruß
fedjo
vielleicht kannst ja dein Makro mal ins Forum stellen.
Gruß
fedjo
Antwort 5 von grumpy
So funktionierts, Danke.
Sub ABC()
Sheets("ME 1").Visible = True
Sheets("ME 1").Select
ActiveSheet.Unprotect
...code...
Sheets(Array("ME 1")).Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("-2-").Activate
End Sub
Sub ABC()
Sheets("ME 1").Visible = True
Sheets("ME 1").Select
ActiveSheet.Unprotect
...code...
Sheets(Array("ME 1")).Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("-2-").Activate
End Sub