Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1008to1012
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

DisplayHeading funktioniert nicht für alle Sheets

DisplayHeading funktioniert nicht für alle Sheets
22.09.2008 10:55:07
Backblech
Hallo liebe Leute,
ich würde gerne in meiner Excel-Datei auf allen Sheets die Zeilen- und Spaltenbeschriftungen ausblenden. Normalerweise geht das ja ganz einfach mit:
Application.ActiveWindow.DisplayHeadings = False
Soweit, so gut, aber in meiner Datei werden bei Aufruf des Befehls auf einigen Arbeitsblättern die Zeilen- und Spaltenbeschriftungen nicht ausgeblendet, und das obwohl es sich um die gleiche Arbeitsmappe im gleichen Fenster handelt.
Gibt es noch irgendeine andere Funktion, die da mit reinspielt?
Bin für jede Hilfe dankbar!
Viele Grüße
Backblech

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: DisplayHeading funktioniert nicht für alle Sheets
22.09.2008 11:18:00
mumpel
Hallo!
Der Befehl funktioniert immer nur auf einem Blatt, da es sich um Einstellungen des aktiven Blattes handelt, nicht um Arbeitsmappe. Hier ein Makro, mit dem es geht.
Damit Du zum Ausgangsblatt zurückkehren kannst, wird zuerst der Name der aktiven Tabelle in der Registry gespeichert umd zum Schluß wieder ausgelesen. Anschließend wird jedes Blatt abgearbeitet. Bei dem Beispielmakro werden die Zeilen- und Spaltenüberschriften im Wechsel ein- und ausgeblendet, je nach Zustand.
Sub Ausblenden()
On Error GoTo Fehler
Dim Blatt As Object
Dim s As String
Application.ScreenUpdating = False
SaveSetting "Name", "Blatt", "ActiveSheet", ActiveSheet.Name
For Each Blatt In Worksheets
With Blatt
.Activate
  With ActiveWindow
  .DisplayHeadings = Not .DisplayHeadings
  End With
End With
Next Blatt
Sheets(GetSetting("Name", "Blatt", "ActiveSheet")).Activate
Fehler:
On Error GoTo 0
Application.ScreenUpdating = True
End Sub

Code eingefügt mit VBA in HTML 1.2 ( Hilfe zum Programm)size>
Gruß, René

Anzeige
AW: DisplayHeading funktioniert nicht für alle Sheets
22.09.2008 11:24:10
Backblech
Hallo....
oh je... das hatte ich mich wohl total vertan.
Danke für die Info!
AW: DisplayHeading funktioniert nicht für alle Sheets
22.09.2008 13:19:00
Rudi
Hallo René,

wird zuerst der Name der aktiven Tabelle in der Registry gespeichert


was soll das? Du kannst den Namen genauso gut in einer Stringvariablen speichern oder das Blatt als Objekt..
Zumindest solltest du den Registry-Eintrag wieder löschen.


Sub Ausblenden()
On Error GoTo FEHLER
Dim Blatt As Worksheet, wksActive As Worksheet
Dim s As String
Application.ScreenUpdating = False
Set wksActive = ActiveSheet
For Each Blatt In Worksheets
Blatt.Activate
With ActiveWindow
.DisplayHeadings = Not .DisplayHeadings
End With
Next Blatt
wksActive.Activate
FEHLER:
On Error GoTo 0
Application.ScreenUpdating = True
End Sub


Gruß
Rudi

Anzeige
AW: DisplayHeading funktioniert nicht für alle Sheets
23.09.2008 01:03:00
mumpel
Danke Rudi, das habe ich gesucht. Da ich das aber nicht hatte und einen schnelle Lösungswunsch vermutete, habe ich die andere Lösung genommen. Beim nächsten Mal nehme ich Deine.
Gruß, René

300 Forumthreads zu ähnlichen Themen

automatisches Erstellen von pdf
pdf

Hallo alle zusammen,
ich nutze seit Monaten ein VBA zum automatischen Erstellen von PDF's. Grundlage war eine Muster aus Eurem Archiv Print to pdf von Ramses; habe ich auf meine Anforderungen angepasst.
Hat auch immer klaglos funktioniert.
Nun auf einmal Laufzeitfehler '429' Objekte...
07.08.2008 17:02:59
Thread-ID: 1000034
8 Beiträge
Anzeige
Eingabe formatiert zurückgeben (Komma und Punkt)
Lemmi

Hallo zusammen,
ich möchte Euch eine wahrscheinlich einfache Frage stellen, die ich mir gerade mal nicht beantworten kann!
Wie stelle ich sicher das auch wenn ein Punkt als Trennzeichen eingegeben worden ist, am Ende immer ein Komma in der Zelle steht?
Eingabe 10,0........Ausgabe...
07.08.2008 21:35:00
Thread-ID: 1000105
5 Beiträge
Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Anzeige
if mit or Verknüpfung?
Tom

Hi,
ich versuch gerade ein If mit Or Verknüpfung hinzubekommen.
Hier mal der Code:
If Datei1Name = "" Or Datei2Name = "" Or TextD1v = "" Or TextD2v = "" Or TextD1A = "" Or _ TextD1E Or TextD2An Then Error = MsgBox("Es müssen alle Felder gefüllt sein", 48, "Eingabe Fehler") Else <...
08.08.2008 11:29:57
Thread-ID: 1000222
9 Beiträge
Zeitformat aus England nicht korrekt
Uschi

Hallo liebes Forum,
folgendes Problem:
Ich bekomme eine Liste mit Zeiten aus Großbritannien, in der die Nullen fehlen, wenn es nicht über eine Stunde geht (:17:22). Ist die Zeit größer als eine Stunde, wird sie korrekt angezeigt (01:17:22). Kann ich irgendwie bei allen Zeiten, wo die St...
08.08.2008 12:29:48
Thread-ID: 1000252
3 Beiträge
Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
2
4
4
4
8
2
7
3
2
9
1
7
1
1
4
6
5
5
6
9
2
11
9
2