Hallo,
vielleicht könnt ihr mir helfen, wäre jedenfalls sehr dankbar :).
Ich habe ein File mit 40 Tabelleblättern "C1" bis "C40" benannt
In diesen Blättern gibt es 120 Spalten zu prüfen, startet ab Spalte D
In Blatt C1 steht für jede Spalte in Zeile 39 ein "x", wenn die Spalte eingeblendet bleiben soll, ein "-", wenn die Spalte ausgeblendet werden soll.
Die gleichen Spalten sollen für alle Blätter C1 bis C40 ausgeblendet werden
Leider dauert die Berechnung sehr lange, was ich den Bedienern nicht zumuten möchte, das geht schneller, nur weiß ich nicht wie :/.
Danke! :)
Dim lspalt As Integer
Dim Coun As Integer
Dim Buchs As String
Dim WS As String
Dim WSCount As Integer
Dim Curws As String
Application.ScreenUpdating = False
Application.Calculate
Curws = ActiveSheet.Name
Sheets("C1").Select
Call Einblenden /alle Spalten werden eingeblendet
Application.ScreenUpdating = False
lspalt = 123 /Spalte 4 bis 123 sind 120 Spalten
For Coun = 4 To lspalt Step 1
If Cells(39, Coun) = "-" Then /wenn "-" dann blende die Spalte überall aus
For WSCount = 1 To 40 Step 1 /WS stellt C1-C40 dar
WS = "C" & WSCount
Buchs = Cells(38, Coun).Value /Kleiner Behelf von mir für die Zahlspalte
Sheets(WS).Columns(Buchs).Hidden = True /verstecke
Next
End If
Next