Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
288to292
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
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ansicht anpassen

Ansicht anpassen
02.08.2003 07:43:15
Horst T.
Hallo Liebe Forumgemende
Wer ist so nett und hilft mir wieder?
Ich möchte in einer Excel_Mappe, auf mehreren Tabellen, (alle haben das gleiche Format) die Ansicht auf die Aktiven Zellen begrenzen.
Beispiel: A1 bis H32
Alle übrigen Spalten/Zeilen sollen ausgeblendet werden
Ich wurde dafür gerne ein Makro verwenden.
Für eure Hilfe „Danke“

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ansicht anpassen
02.08.2003 08:17:59
Hajo_Zi
Hallo Horst
mit folgendem Code wird der unbenutzte Bereich aber Excel Version 97 ausgeblendet, ob das schon untér 5/7 geht ???

Sub BenutzterBereich()
'   erstellt von Hajo.Ziplies@web.de
'   Unbenuzten Bereich der Tabelle ausblenden
With Worksheets("Tabelle1")
.Rows(.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 & ":65536").EntireRow.Hidden = True
.Range(.Cells(1, .UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1), .Cells(65536, 256)).EntireColumn.Hidden = True
End With
End Sub

Gruß Hajo
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.

Anzeige
AW: Ansicht anpassen
02.08.2003 08:35:18
Hajo_Zi
Hallo Hajo
Wenn ich deinen Code richtig verstanden habe, müsste ich den Code für jede Tabelle
in der Mappe eintragen.
Frage: Ist dies für die gesamte Mappe möglisch.
Gruss Horst

AW: Ansicht anpassen
02.08.2003 08:57:28
Hajo_Zi
Hallo Horst
schreibe Bitte unter Deinem Namen . Das kann ich nicht leiden, wenn jemamd unter meinem Namen Beiträge schreibt. Mein Kürzel vermute ich mal ist ein Exot, so das ich damit keine Probleme mit jemand anderes haben sollte.

Sub BenutzterBereich()
'   erstellt von Hajo.Ziplies@web.de 02.08.03
'   Unbenuzten Bereich der Tabelle ausblenden
Dim WsTabelle As Worksheet
For Each WsTabelle In Worksheets
With WsTabelle
.Rows(.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 & ":65536").EntireRow.Hidden = True
.Range(.Cells(1, .UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1), .Cells(65536, 256)).EntireColumn.Hidden = True
End With
Next WsTabelle
End Sub

Gruß Hajo
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige