Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1056to1060
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
Inhaltsverzeichnis

column + 1

column + 1
09.03.2009 14:53:02
Andre
Hi Leute,
Ich möchte gerne mit Schaltflächen Spalten ein bzw. ausblenden. Für Januar habe ich eine Schaltfläche bereits gebaut und die entsprechenden Spalten eingetragen. Um mir die Arbeit leichter und übersichtlicher zu machen, würde ich gerne die anderen Makros mit Absprungbasis von Januar erstellen
Es muss doch möglich sein, nur noch +1 für Februar +2 für März für die Spalten selektion einzugeben.
Hier ein Teil meiner Makro für Januar, für Februar möchte ich nicht Column("E") anzugeben, sondern nur noch E +1 :

Sub Januar_click()
With Januar
If .Value Then
Columns("D").Select
Selection.EntireColumn.Hidden = False
Else
Columns("D").Select
Selection.EntireColumn.Hidden = True
End If
End With
Range("C181").Select
End 

Sub
Hoffe, dass einer mein Problem versteht.
Gruss
Andre


		

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: column + 1
09.03.2009 15:37:58
fcs
Hallo André,
verwende start der Buchstaben in Columns("D") direkt die Nummer
Columns(4)
dann kannst du für dir anderen Monate
Columns(4+1)
und so weiter verwenden.
Deine Prozedur(en) kann man aber noch etwas vereinfachen.
Gruß
Franz

Private Const SpalteJan As Long = 4
Sub Januar_click()
ActiveSheet.Columns(SpalteJan + 0).EntireColumn.Hidden = Not Januar.Value
Range("C181").Select
End Sub
Sub Februar_click()
ActiveSheet.Columns(SpalteJan + 1).EntireColumn.Hidden = Not Februar.Value
Range("C181").Select
End Sub
'usw.


Anzeige
AW: column + 1
09.03.2009 15:42:56
Uwe
Hi Andr,
es funktioniert auch:

Columns(4).Select


Da kannst Du dann selbst basteln ob Du über eine Variable oder einfach 4+1 tricksen willst.
Die Selects solltest Du aber 'rausnehmen:


Columns(4).EntireColumn.Hidden = False


Gruß
Uwe
(:o)

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige