ja, Ja, jA oder, JA? Wie gehts?

Habe folgendes Modul:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim laR As Long
Dim TbN As String
laR = Cells(Rows.Count, 1).End(xlUp).Row
If Intersect(Range("B1:B" & laR), Target) Is Nothing Then Exit Sub
If Target.Cells.Count &gt 1 Then Exit Sub
TbN = Target.Offset(-1, -1).Text
If Target.Value = "nein" Then
Worksheets(TbN).Visible = xlVeryHidden
ElseIf Target.Value = "ja" Then
Worksheets(TbN).Visible = True
End If

If Range("B8") = "ja" Then
Rows("15:15").EntireRow.Hidden = True
Rows("11:13").EntireRow.Hidden = False
Else
Rows("15:15").EntireRow.Hidden = False
Rows("11:13").EntireRow.Hidden = True
End If
...
Tatsächlich reagiert Excel an der Stelle wo ein 'ja' oder 'nein' erwartet wird sehr sensiebel und nur ein kleingeschriebens ja oder nein führt zum gewünschten Ergebnis.
Was muss ich tun, damit alle Schreibweisen (GROSS und klein) akzeptiert werden?
Dank im Voraus und Gruß, Andre.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim laR As Long
Dim TbN As String
laR = Cells(Rows.Count, 1).End(xlUp).Row
If Intersect(Range("B1:B" & laR), Target) Is Nothing Then Exit Sub
If Target.Cells.Count &gt 1 Then Exit Sub
TbN = Target.Offset(-1, -1).Text
If UCase(Target.Value) = "NEIN" Then
Worksheets(TbN).Visible = xlVeryHidden
ElseIf UCase(Target.Value) = "JA" Then
Worksheets(TbN).Visible = True
End If
If Ucase(Range("B8")) = "JA" Then
Rows("15:15").EntireRow.Hidden = True
Rows("11:13").EntireRow.Hidden = False
Else
Rows("15:15").EntireRow.Hidden = False
Rows("11:13").EntireRow.Hidden = True
End If
UCase erzwingt die GROSSSCHREIBUNG während LCase die kleinschreibung erzwingt

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim laR As Long Dim TbN As String laR = Cells(Rows.Count, 1).End(xlUp).Row If Intersect(Range("B1:B" & laR), Target) Is Nothing Then Exit Sub If Target.Cells.Count > 1 Then Exit Sub TbN = Target.Offset(-1, -1).Text If UCase(Target.Value) = "NEIN" Then Worksheets(TbN).Visible = xlVeryHidden ElseIf UCase(Target.Value) = "JA" Then Worksheets(TbN).Visible = True End If If UCase(Range("B8")) = "JA" Then Rows("15:15").EntireRow.Hidden = True Rows("11:13").EntireRow.Hidden = False Else Rows("15:15").EntireRow.Hidden = False Rows("11:13").EntireRow.Hidden = True End If ' etc... End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread