Code Funktion Gross-/Kleinschreibung
09.04.2018 11:36:32
simon
In meiner Liste kann ich Zeilen mit "x" ausblenden und einblenden.
meine Problem ist nun, dass egal ob das "x" gross oder klein (x/X) geschrieben ist soll dies funktionieren.
Ich schaffe es, dass ich den Code so habe das eines von Beiden gross oder klein Schreiben funktioniert, Leider nicht beides in einem Code.
Hier mal mein Code
Sub Archiv()
Dim loX As Long
Application.ScreenUpdating = False 'Bildschirmaktualisierung aus
Application.EnableEvents = False 'Ereignismakros deaktivieren
For loX = 7 To 10000
If Cells(loX, 14) = "x" Then Rows(loX).Hidden = Not Rows(loX).Hidden
Next
Application.EnableEvents = True 'Ereignismakros aktivieren
Application.ScreenUpdating = True 'Bildschirmaktualisierung wieder an
End Sub
Wenn ich in der 5 Zeile nach dem kleinen "x" >Or "X" kann mir jemand helfen, wie ich den Code umschreiben muss?
mfg simon