Makro-Optimierung

Hallo Leute,
ich gehe schon richtig der Annahme, dass folgendes Makro nicht mehr vereinfacht werden kann, weil immer Value 1 bis 5, oder?
Sieht der Experte noch Potential?
Gruss
thomas


Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Worksheets("Tab1").Columns("F:R").Hidden = False
If ComboBox1.Value = 1 Then Worksheets("Tab1").Columns("H:R").Hidden = True
If ComboBox1.Value = 2 Then Worksheets("Tab1").Columns("J:R").Hidden = True
If ComboBox1.Value = 3 Then Worksheets("Tab1").Columns("L:R").Hidden = True
If ComboBox1.Value = 4 Then Worksheets("Tab1").Columns("N:R").Hidden = True
If ComboBox1.Value = 5 Then Worksheets("Tab1").Columns("P:R").Hidden = True
Worksheets("Tab2").Columns("F:P").Hidden = False
If ComboBox1.Value = 1 Then Worksheets("Tab2").Columns("F:P").Hidden = True
If ComboBox1.Value = 2 Then Worksheets("Tab2").Columns("H:P").Hidden = True
If ComboBox1.Value = 3 Then Worksheets("Tab2").Columns("J:P").Hidden = True
If ComboBox1.Value = 4 Then Worksheets("Tab2").Columns("L:P").Hidden = True
If ComboBox1.Value = 5 Then Worksheets("Tab2").Columns("N:P").Hidden = True
Worksheets("Tab3").Columns("G:FT").Hidden = False
If ComboBox1.Value = 1 Then Worksheets("Tab3").Columns("AE:FT").Hidden = True
If ComboBox1.Value = 2 Then Worksheets("Tab3").Columns("BH:FT").Hidden = True
If ComboBox1.Value = 3 Then Worksheets("Tab3").Columns("CK:FT").Hidden = True
If ComboBox1.Value = 4 Then Worksheets("Tab3").Columns("DN:FT").Hidden = True
If ComboBox1.Value = 5 Then Worksheets("Tab3").Columns("EQ:FT").Hidden = True
Worksheets("Tab4").Columns("G:FT").Hidden = False
If ComboBox1.Value = 1 Then Worksheets("Tab4").Columns("AE:FT").Hidden = True
If ComboBox1.Value = 2 Then Worksheets("Tab4").Columns("BH:FT").Hidden = True
If ComboBox1.Value = 3 Then Worksheets("Tab4").Columns("CK:FT").Hidden = True
If ComboBox1.Value = 4 Then Worksheets("Tab4").Columns("DN:FT").Hidden = True
If ComboBox1.Value = 5 Then Worksheets("Tab4").Columns("EQ:FT").Hidden = True
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thomas,
ein bisschen geht immer:

Private Sub ComboBox1_Change()
    Application.ScreenUpdating = False
    With Worksheets("Tab1")
        .Columns("F:R").Hidden = False
        .Columns(Spaltenbuchstabe(6 + ComboBox1.Value * 2) & ":R").Hidden = True
    End With
    With Worksheets("Tab2")
        .Columns("F:P").Hidden = False
        .Columns(Spaltenbuchstabe(4 + ComboBox1.Value * 2) & ":P").Hidden = True
    End With
    With Worksheets("Tab3")
        .Columns("G:FT").Hidden = False
        .Columns(Spaltenbuchstabe(ComboBox1.Value * 29 + 2) & ":FT").Hidden = True
    End With
    With Worksheets("Tab4")
        .Columns("G:FT").Hidden = False
        .Columns(Spaltenbuchstabe(ComboBox1.Value * 29 + 2) & ":FT").Hidden = True
    End With
    Application.ScreenUpdating = True
End Sub

Und folgenden Code in ein "normales" Modul:

Public Function Spaltenbuchstabe(intSpalte As Integer) As String
    If intSpalte > 26 Then
        Spaltenbuchstabe = Chr(intSpalte \ 26 + 64) & Chr(intSpalte Mod 26 + 64)
    Else
        Spaltenbuchstabe = Chr(intSpalte + 64)
    End If
End Function

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro-Optimierung

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread