Spalten mit VBA ausblenden

[so.egal]

Du bist mein Held!
Es läuft!!!

[so.egal]

Ich hätte noch eine weiterführende Frage:

In dem folgenden Code stoße ich auf ein Problem.

Private Sub Worksheet_Calculate()
  Dim i As Long
  Application.ScreenUpdating = False
  For i = 5 To 26 Step 3
    Cells(5, i).MergeArea.EntireColumn.Hidden = Cells(7, i).Value = ""
  Next i
  Application.ScreenUpdating = True
End Sub


Hier ist die Zelle 7 der entsprechenden Spalte die Zelle die geprüft wird. Wenn aber genau dieser Schüler die "Arbeit" nicht mitschreibt, habe ich das Problem, dass die Spalte ausgeblendet wird, obwohl die anderen Zellen 8-37 ausgefüllt sind.

Der Code müsste also den Zellbereich 7-37 überprüfen. 

Könnt ihr mir da nochmal helfen?

LG Tina

[Kuwer]

Hallo Tina,

Code:

Private Sub Worksheet_Calculate()
  Dim i As Long
  Application.ScreenUpdating = False
  For i = 5 To 26 Step 3
    Cells(5, i).MergeArea.EntireColumn.Hidden = Application.CountBlank(Cells(7, i).Resize(31)) = 31
  Next i
  Application.ScreenUpdating = True
End Sub

Gruß Uwe

[so.egal]

Vielen Dank! Das erleichtert mir meine Arbeit extrem.