Registriert seit: 19.11.2016
Version(en): 2013
Guten Abend.
Kann mir bitte jemand helfen. Bin am verzweifeln
Ich möchte ein Makro aufzeichnen das in allen Registerblättern die
Zeilen und Spaltenüberschriften ausblendet.
Wie kann ich den code anpassen damit er in allen Registerblätter und nicht nur auf der Aktiven greift,
Diesen Code liefert der Makrorecorder:
ActiveWindow.DisplayHeadings = False
Vielen Dank
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
12.09.2018, 00:49
(Dieser Beitrag wurde zuletzt bearbeitet: 12.09.2018, 01:02 von Käpt'n Blaubär.)
Hallo,
na, wenn ich so auf die Zeiten zwischen Deinem Vorletzten und diesem Thread sehe, dann kann das mit Deiner Verzweiflung
wohl nicht so ganz ernst gemeint sein. Darf ich da noch auf eine Antwort hoffen oder würde die Dich auch verzweifeln lassen?
Dieser Code gehört in ein
Allgemeines Modul. Alles, was jetzt auf
True steht ist eingeblendet. Mit
False anstatt True wird
es ausgeblendet.
Zitat:Option Explicit
Sub Einstellungen()
Dim InI As Long
With ActiveWindow
For InI = 1 To Sheets.Count Step 1
.DisplayGridlines = True ' Gitternetzlinien
.DisplayHeadings = True ' Zeilen-, Spalten-Anzeige
.DisplayWorkbookTabs = True ' TAB-Reiter
.DisplayHorizontalScrollBar = True ' horizentaler Scrollstreifen
.DisplayVerticalScrollBar = True ' vertikaler Scrollstreifen
Next InI
End With
End Sub
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!
Grüße aus Norderstedt, Peter
Registriert seit: 12.03.2016
Version(en): Excel 2003
Hallo
die kleinen Tücken bei Excel liegen im Detail! Für ActiveWindow ist leider Sheet .Select erforderlich, obwohl ich sonst darauf verzichte!
mfg Gast 123
Code:
Sub Makro1()
For j = 1 To Sheets.Count
Sheets(j).Select
ActiveWindow.DisplayHeadings = False
Next j
end sub
Folgende(r) 1 Nutzer sagt Danke an Gast 123 für diesen Beitrag:1 Nutzer sagt Danke an Gast 123 für diesen Beitrag 28
• Loris
Registriert seit: 12.03.2016
Version(en): Excel 2003
Hallo Kaepten Blaubaer
ich hatte es zuerst ohne Select probiert, und noch den Fehler begangen es über Sheet(j) probiert.
Das klappte im alten Excel nicht. Also stellte ich den Code um bis es klappte.
Nicht böse sein, auch ich vertue mich immer wieder. Weiterhin frohes schaffen ....
mfg Gast 123
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
Hallo Gast,
jepp, Du hast recht. Rechne es der Frühe des heutigen Tages zu.
Ich wollte unbedingt noch was fertig kriegen, bevor ich mich auf's Ohr lege.
Und zwischendurch VBA-Spielen, das war wohl ein bischen krass.
Hab's jetzt auch fertig gemacht und nun geht es zum Kopfkissen zerwühlen.
Gut's Nächtle allerseits
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!
Grüße aus Norderstedt, Peter
Registriert seit: 19.11.2016
Version(en): 2013
Hallo Gast 123
Vielen Dank.
Wie immer auf den Punkt genau was ich suche.
Danke