Guten Tag liebe Leute
Ich habe im Forum mehrere Beiträge dazu gefunden, jedoch konnte ich die VBA nicht an meine Bedürfnisse anpassen. Da ich überhaupt keine Ahnung von VBA habe.
Von Spalte P bis Spalte AW, in der Zeile 9 hat es Formeln die eine ganze Zahl oder "" als Ergebnis aufweisen. Sollte das Ergebnis "" sein, sollte die ganze Spalte ausgeblendet werden, bei einem anderen Ergebnis eingeblendet. Die Überprüfung sollte nur stadtfinden, wenn in der Zelle AN1 eine Änderung (durch Formel) vorgenommen wird, und nur in einem bestimmten Blatt (Woche = Rotation). Danach möchte ich sie anpassen für ein Anders Blatt (Rotation = Woche). Und nur im Bereich vom P9 bis AW9, nicht die ganze Zeile.
Eine Formel (gefunden) die zum Teil funktioniert
Private Sub Worksheet_Activate()
For myColumn = 1 To ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
If Cells(9, myColumn) = "" Then
Columns(myColumn).Hidden = True
Else
Columns(myColumn).Hidden = False
End If
Next
End Sub
Noch eine Formel (auch gefunden) die zum Teil Funktionier.
Ich habe nur etwas verändert.
If dSaved > Range("AO38").Value Then
If dSaved > Range("Q9").Value Then
Private Sub Worksheet_Calculate()
Static dSaved As Double
Dim lCol As Long
If dSaved > Range("Q9").Value Then
dSaved = Range("AO38").Value
For lCol = 9 To 39
Cells(38, lCol).EntireColumn.Hidden = (Cells(38, lCol) = 0)
Next lCol
End If
End Sub
Um den Blattschutz auszuschalten und wieder einzuschalten habe ich zwei Makros gemacht. Wahrscheinlich müsste ich die das VBA zwischen die zwei Makros legen?
Sub Blattschutz_aufheben()
'
' Blattschutz_aufheben Makro
'
'
ActiveSheet.Unprotect
End Sub
Sub Blatt_schützen()
'
' Blatt_schützen Makro
'
'
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Mit freundlichen Grüssen
Christian