Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon grumpy vom 25.03.2020, 17:43 Options
Makro soll auf ausgeblendetes Blatt zugreifen
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?
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 vom 25.03.2020, 19:10 Options
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 vom 25.03.2020, 20:12 Options
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 vom 26.03.2020, 08:08 Options
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 vom 26.03.2020, 11:11 Options
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 vom 26.03.2020, 11:26 Options
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
Ähnliche Themen
Werte per Makro kopieren
m-o-m 22.10.2007 - 118 Hits -
Makro für Erstellung eines neuen Datenblatts
rollenderstein 16.11.2007 - 50 Hits - 2 Antworten
Aktuelles Tabellenblatt in Excel mit Makro kopieren
TR007 22.12.2007 - 165 Hits - 2 Antworten
Kriegs an den Nerven: geschütztes und ausgeblendetes Blatt
pnp 26.03.2008 - 11 Hits - 2 Antworten
Makro funktioniert nach abspeichern nicht - bitte um Hilfe
Ric1963 04.04.2008 - 15 Hits -
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
