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

Beiträge aus den Excel-Beispielen zum Thema "einzelnes Arbeitsblatt als E-mail senden"