Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1852to1856
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
1852to1856
1852to1856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

FreezePanes

FreezePanes
15.10.2021 19:33:27
Fred
Hallo Excel Experten,
ich möchte das die Ansicht des Tabellenblattes bis zur 32. Zeile "eingefroren" ist und "aktive Zelle "A1" ist.
Wenn ich den Vorgang über Makrorecorder eingebe, erhalte ich folgenden Code:

ActiveWindow.FreezePanes = False
Rows("33:33").Select
ActiveWindow.FreezePanes = True
Range("A1").Select
Meine Frage:
Wird das obere Makro ausgeführt, setzt die Ansicht des Tabellenblattes auf Zeilen 32/33 mittig an.
Kann ich so ergänzen, dass das Tabellenblatt ab "A1" zu sehen ist?
Gruss
Fred

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

Betreff
Datum
Anwender
Anzeige
AW: FreezePanes
15.10.2021 19:51:28
Hajo_Zi
Hallo Fred,
Tabelle ganz nach oben.

Option Explicit
Sub Makro2()
With ActiveWindow
.SplitColumn = 0
.SplitRow = 33
.FreezePanes = True
End With
End Sub
GrußformelHomepage
AW: FreezePanes / scrollArea
15.10.2021 20:15:25
Fred
Hallo Hajo,
das klappt leider nicht.
Ich habe aber für meine Ansicht ohnehin im Web etwas alternatives gefunden.

ThisWorkbook.Sheets("Test scroll").ScrollArea = "$A$1:$q$31"
Aber auch hier eine "abschließende Frage":
Wenn ich 



ThisWorkbook.Sheets("Test scroll").ScrollArea = "$A$1:$q$31"
ausführe, wie stelle ich die "scrollArea" wieder auf "normal" ?
Gruss
Fred
Anzeige
AW: FreezePanes / scrollArea
15.10.2021 20:24:26
Hajo_Zi
Hallo Fred,
in meiner Datei geht es.
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Gruß Hajo
Anzeige
AW: FreezePanes / scrollArea
16.10.2021 11:30:36
Dieter(Drummer)
Hallo Fred,
mit: .FreezePanes = False mit HaJos Makro wird wieder der normale Zustand hergestellt.
Gruß, Dieter(Drummer)

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige