Herbers Excel-Forum - das Archiv

Makro

Bild

Betrifft: Makro
von: Christian

Geschrieben am: 13.04.2005 14:21:42
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

Bild

Betrifft: AW: Makro
von: Frank Sohn

Geschrieben am: 13.04.2005 14:32:37
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
Bild

Betrifft: AW: Makro
von: Christian
Geschrieben am: 13.04.2005 14:48:13
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
Bild

Betrifft: AW: Spalte mit Makro ausblenden
von: Martin Beck

Geschrieben am: 13.04.2005 15:02:36
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
 Bild