Makro für Prüfung ob Spalten eingeblendet
01.05.2004 19:34:10
Ralf
Wie müsste ein Makro aussehen, dass prüft ob die Spalten mit der Spaltenbezeichung: Ausblenden1 , Ausblenden2 und Ausblenden3 eingeblendet sind und dann - !!! und nur dann !!! - ein Makro ausführt, dass diese Spalten ausblendet und gleichzeitig verschlüsselt.
Die Urform des Makros, dass diese Prüfung noch nicht macht hier:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Ab hier: Befehl für Schließen der drei Spalten
'Ausblenden... bevor die die Arbeitsmappe gesschlossen wird.
Dim iCol As Integer
With Worksheets("DATA")
For iCol = 1 To 30
If .Cells(1, iCol) = "Ausblenden1" Then
.Columns(iCol).Hidden = True
End If
Next
For iCol = 1 To 30
If .Cells(1, iCol) = "Ausblenden2" Then
.Columns(iCol).Hidden = True
End If
Next
For iCol = 1 To 30
If .Cells(1, iCol) = "Ausblenden3" Then
.Columns(iCol).Hidden = True
End If
Next
End Sub
Die Ergänzung die diese drei Spalten dann verschlüsselt lautet in der Urform so:
Dim rng As Range
For Each rng In Range("G8:I400")
If IsNumeric(rng) And rng <> "" Then rng = rng * 765422592
Das müsste dann so abgeändert werden dass es sich auf die Spaltenüberschriften bezieht und nicht wie hier auf die Spalten.
Kann mir bitte jemand helfen? - Auch an einem verregneten 1. Mai?
Viele Grüße Ralf