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"