Anzeige
Archiv - Navigation
596to600
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
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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
Anzeige
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige