Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
23.04.2024 14:47:39
23.04.2024 14:23:45
Anzeige
Archiv - Navigation
212to216
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
212to216
212to216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro

Makro
02.02.2003 11:09:52
MathiasB
Hallo
Habe eine Tabelle wollte das Fenster Fixieren in der Zeile 4
Wie kann ich das machen in folgende Makro?

Sub Test()
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
Rows("1:34").EntireRow.Hidden = False
Rows("35:65536").EntireRow.Hidden = True
Range("A:I").EntireColumn.Hidden = False
Range("J:IV").EntireColumn.Hidden = True
End Sub

Und dann im die Folgende Makro die Fixieren von Makro “Test” Aufheben und im Zeile 35 wieder die Fenstern Fixieren

Sub Test2()
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
Rows("1:2").EntireRow.Hidden = False
Rows("3:34").EntireRow.Hidden = True
Rows("35:65").EntireRow.Hidden = False
Rows("66:65536").EntireRow.Hidden = True
Range("A:I").EntireColumn.Hidden = False
Range("J:IV").EntireColumn.Hidden = True
End Sub

Besten Dank für eine Antwort
Gruß Mathias

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Makro
02.02.2003 11:16:54
ae

hallo matthias,
dies fixiert auf zeile 4

Rows("4:4").Select
ActiveWindow.FreezePanes = True

setz es auf false hebt es auf .....

gruß
ae

Re: Makro
02.02.2003 12:03:10
Mathias

Hallo ae
Kannst du mir die ganze Makro fertig machen?
Ich habe es versucht ohne erfolg.
Danke Mathias

Re: Makro
02.02.2003 13:05:22
ae

so müsste es gehen, oder ?

Sub Test()
Application.ScreenUpdating = False
Rows("4:4").Select
ActiveWindow.FreezePanes = True
Cells.EntireRow.Hidden = False
Rows("1:34").EntireRow.Hidden = False
Rows("35:65536").EntireRow.Hidden = True
Range("A:I").EntireColumn.Hidden = False
Range("J:IV").EntireColumn.Hidden = True
End Sub


Sub Test2()
Application.ScreenUpdating = False
Rows("4:4").Select
ActiveWindow.FreezePanes = False
Rows("35:35").Select
ActiveWindow.FreezePanes = True
Cells.EntireRow.Hidden = False
Rows("1:2").EntireRow.Hidden = False
Rows("3:34").EntireRow.Hidden = True
Rows("35:65").EntireRow.Hidden = False
Rows("66:65536").EntireRow.Hidden = True
Range("A:I").EntireColumn.Hidden = False
Range("J:IV").EntireColumn.Hidden = True
End Sub

gruß
ae

Anzeige
Re: Makro
02.02.2003 13:42:43
Mathias

Leider klappt nicht
Gruß Mathias



was klappt nicht ?
02.02.2003 19:53:23
ae

etwas genauer wäre hilfreich !
gruß
ae

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige