Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
880to884
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
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen u. Spalten aus-, u. einblenden

Zeilen u. Spalten aus-, u. einblenden
26.06.2007 18:09:00
André
Hallo Excelprofis,
ich bin absoluter Anfänger was VBA angeht, warum funzt mein Code unten nicht?
Habe statt Column - Row eingesetzt. Was ist falsch?
Wie ist es richtig?
Ich möchte per Button die Zeilen und Spalten ein- bzw. ausblenden.
Schön Gruß
André aus SH

Sub Zeilen_verbergen()
' Zeilen_verbergen Makro
' Makro am 26.06.2007 von andre aufgezeichnet
Row("6:10").EntireRow.Hidden = Not Row("6:10").EntireRow.Hidden
Columns("H").EntireColumn.Hidden = Not Columns("H").EntireColumn.Hidden
Columns("J").EntireColumn.Hidden = Not Columns("J").EntireColumn.Hidden
Columns("c").EntireColumn.Hidden = Not Columns("c").EntireColumn.Hidden
Columns("i").EntireColumn.Hidden = Not Columns("i").EntireColumn.Hidden
Columns("g").EntireColumn.Hidden = Not Columns("g").EntireColumn.Hidden
Columns("b").EntireColumn.Hidden = Not Columns("b").EntireColumn.Hidden
End Sub


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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen u. Spalten aus-, u. einblenden
26.06.2007 18:10:00
André
Upps doppelt! Sorry!

AW: Zeilen u. Spalten aus-, u. einblenden
26.06.2007 18:57:00
Luschi
Hallo André,
in der ersten Zeile fehlt bei Row ein s, so das diese Zeile wie folgt aussieht:
Rows("6:10").EntireRow.Hidden = Not Rows("6:10").EntireRow.Hidden
Außerdem sollte man die Tabelle mit angeben, in der die Zeilen & Spalten ein-/ausgeblendet werden sollen:
ActiveSheet.Rows("6:10").EntireRow.Hidden = Not ActiveSheet.Rows("6:10").EntireRow.Hidden
oder
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Tabelle1")
ws.Rows("6:10").EntireRow.Hidden = Not ws.Rows("6:10").EntireRow.Hidden
ws.Columns("H").EntireColumn.Hidden = Not ws.Columns("H").EntireColumn.Hidden
'...
Set ws = Nothing
Gruß von Luschi
aus klein-Paris

Anzeige
AW: Zeilen u. Spalten aus-, u. einblenden
27.06.2007 10:23:00
André
Hi,
danke für die Antwort.
Die zweite Lösung finde ich gut, da ich 35 Arbeitsblätter habe. Nur bekommen die öfters mal einen anderen Namen und sind z.T. ausgeblendet.
Das Ding ist dabei, dass sich das Makro nicht auf den neuen Namen einlässt.
Und kann man das Makro in irgendeiner Tabelle per Button auslösen, sodass sich das in allen Tabellen ändert, außer einige Tabellen die ich manuell im Makro ausschließen möchte wie z.B. die Tabelle "Einstellungen" und "Matrix".
Kann man da machen?
Bin für jede Hilfe dankbar!
Gruß
André

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige