Microsoft Excel

Herbers Excel/VBA-Archiv

Code Funktion Gross-/Kleinschreibung


Betrifft: Code Funktion Gross-/Kleinschreibung von: simon
Geschrieben am: 09.04.2018 11:36:32

Guten Morgen allerseits

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"< einfüge funktioniert dies nicht.
kann mir jemand helfen, wie ich den Code umschreiben muss??

mfg simon

  

Betrifft: AW: Code Funktion Gross-/Kleinschreibung von: Werner
Geschrieben am: 09.04.2018 11:41:22

Hallo Simon,

das geht so:

If UCase(Cells(loX, 14)) = "X" Then Rows(loX).Hidden = Not Rows(loX).Hidden
Das "X" im Code oben mußt du groß schreiben. Der Code wandelt das X in der Zelle zunächst in ein großes X um und vergleicht das dann.

Gruß Werner


  

Betrifft: AW: Code Funktion Gross-/Kleinschreibung von: simon
Geschrieben am: 09.04.2018 12:05:00

Hi zusammen

Danke für die Rasche Antwort, hab jetzt sau lange in meinem schlauen VBA Buch nach der passenden Funktion gesucht und nichts gefunden:(
aber nun ist das ganze etwas klarer geworden;)

besten dank für eure Hilfe, funktionieren alle wie ich mir dies wünsche!

mfg und bis Bald
Simon


  

Betrifft: AW: Code Funktion Gross-/Kleinschreibung von: simon
Geschrieben am: 09.04.2018 12:05:01

Hi zusammen

Danke für die Rasche Antwort, hab jetzt sau lange in meinem schlauen VBA Buch nach der passenden Funktion gesucht und nichts gefunden:(
aber nun ist das ganze etwas klarer geworden;)

besten dank für eure Hilfe, funktionieren alle wie ich mir dies wünsche!

mfg und bis Bald
Simon


  

Betrifft: Gerne u. Danke für die Rückmeldung. o.w.T. von: Werner
Geschrieben am: 09.04.2018 12:19:36




  

Betrifft: AW: Code Funktion Gross-/Kleinschreibung von: UweD
Geschrieben am: 09.04.2018 11:41:39

Hallo


If Lcase(Cells(loX, 14)) = "x" Then Rows(loX).Hidden = Not Rows(loX).Hidden


oder

If Ucase(Cells(loX, 14)) = "X" Then Rows(loX).Hidden = Not Rows(loX).Hidden


LG UweD


  

Betrifft: AW: Code Funktion Gross-/Kleinschreibung von: EtoPHG
Geschrieben am: 09.04.2018 11:42:20

Hallo Simon,

If LCase(Cells(loX, 14)) = "x" ...
Gruess Hansueli


Beiträge aus dem Excel-Forum zum Thema "Code Funktion Gross-/Kleinschreibung"