Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro

Forumthread: Makro

Makro
13.04.2005 14:21:42
Christian
Hallo,
bitte seht euch mal nachfolgendes an. Letztendlich soll mir nur Spalte A-D, U und AI angezeigt werden. Wenn ich den Makro laufen lassen wird mir aber nur Spalte A und AI angezeigt. Die anderen Spalten sind ausgeblendet. Woran liegt das.
Vielen Dank im voraus.
Christian

Sub Jan_Input()
' Jan_Input Macro
' Macro recorded 2005-04-13 by Christian Horion
Columns("A:BO").Select
Selection.EntireColumn.Hidden = False
Rows("1:151").Select
Selection.EntireRow.Hidden = False
Columns("E:T").Select
Selection.EntireColumn.Hidden = True
Columns("V:AH").Select
Selection.EntireColumn.Hidden = True
Columns("AJ:AT").Select
Selection.EntireColumn.Hidden = True
Range("A1").Select
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Makro
13.04.2005 14:32:37
Frank
Hallo,
versuch doch mal das :

Sub Jan_Input()
' Jan_Input Macro
' Macro recorded 2005-04-13 by Christian Horion
Columns.Hidden = True
Columns("A:D").EntireColumn.Hidden = False
Columns("U").EntireColumn.Hidden = False
Columns("AI").EntireColumn.Hidden = False
End Sub

die Selection sind nicht nötig!
1. Alle Columns sind nicht sichtbar!
2. Alle benötigten Spalten werden eingeblendet!
(Hab bei der Arbeit nur Office 2000, müsste aber bei XP auch gehen!!!)
Gruss
Frank
Anzeige
AW: Makro
13.04.2005 14:48:13
Christian
hallo,
habe die Datei jetzt mal hochgeladen https://www.herber.de/bbs/user/21097.xls
So wie es jetzt ist, soll durch den makro "Feb_Input" dargestellt werden.
Danke
Christian
AW: Spalte mit Makro ausblenden
13.04.2005 15:02:36
Martin
Hallo Christian,

Sub Feb_Input()
' Feb_Input Macro
' Macro recorded 2005-04-13 by Christian Horion
Cells.EntireColumn.Hidden = False
Cells.EntireRow.Hidden = False
Columns("D:D").Hidden = True
Columns("F:U").Hidden = True
Columns("W:AI").Hidden = True
Columns("AK:AT").Hidden = True
Range("A1").Select
End Sub

Gruß
Martin Beck
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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