Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1212to1216
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

Verkürzung Makro Columns

Verkürzung Makro Columns
Stefan
Hallo liebe VBA Experten,
ich habe hier ein Makro, dass ich teilweise bereits erstellt habe. Es wird immer geschaut welchen Wert die Zelle G19 hat. Sobald dieser einen Wert zwischen 1 und 20 annimmt, sollen die entsprechend Spalten ausgeblendet werden. Meine Frage wäre nun, wie kann ich diesen Makro soweit vereinfachen, dass ich nicht alle 20 Bedinungen aufschreiben muss, sondern nur noch eine in der aber immer nach dem Wert G19 geschaut wird?
Wäre superm, wenn ihr mir helfen könntet Zeit zu sparen!
Besten Dank für eure Hilfe!
Gruß
Stefan
If Range("G19").Value = 1 Then
Worksheets("Überblick_Markt").Columns("K:L").EntireColumn.Hidden = False
Worksheets("Überblick_Markt").Columns("M:AW").EntireColumn.Hidden = True
ElseIf Range("G19").Value = 2 Then
Worksheets("Überblick_Markt").Columns("K:N").EntireColumn.Hidden = False
Worksheets("Überblick_Markt").Columns("O:AW").EntireColumn.Hidden = True
ElseIf Range("G19").Value = 3 Then
Worksheets("Überblick_Markt").Columns("K:P").EntireColumn.Hidden = False
Worksheets("Überblick_Markt").Columns("Q:AW").EntireColumn.Hidden = True
ElseIf Range("G19").Value = 4 Then
Worksheets("Überblick_Markt").Columns("K:R").EntireColumn.Hidden = False
Worksheets("Überblick_Markt").Columns("S:AW").EntireColumn.Hidden = True
ElseIf Range("G19").Value = 5 Then
Worksheets("Überblick_Markt").Columns("K:T").EntireColumn.Hidden = False
Worksheets("Überblick_Markt").Columns("U:AW").EntireColumn.Hidden = True
End If

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

Betreff
Benutzer
Anzeige
AW: Verkürzung Makro Columns
23.05.2011 10:55:24
fcs
Hallo Stefan,
sollte so funktionieren:
  Dim Spalte1 As Long, Spalte2 As Long, Spalte3 As Long
Select Case Range("G19").Value
Case 1 To 20
Spalte1 = 11 'Spalte K
Spalte2 = Spalte1 + (Range("G19") - 1) * 2 + 1
Spalte3 = 49 'Spalte AW
With Worksheets("Überblick_Markt")
.Range(.Columns(Spalte1), .Columns(Spalte2)).EntireColumn.Hidden = False
.Range(.Columns(Spalte2 + 1), .Columns(Spalte3)).EntireColumn.Hidden = True
End With
Case Else
'do nothing
End Select

Gruß
Franz
AW: Verkürzung Makro Columns
23.05.2011 11:01:22
Stefan
Super!! Vielen vielen Dank! Funktionert perfekt! :)
Beste Grüße
Stefan
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige