Bei Eingabe von X in soll Ja oder Nein drin stehen

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("H4")) Is Nothing Then If Target = "x" Or Target = "X" Then Range("H4") = "Nein" Else Range("H4") = "Ja" End If End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("H4:H23")) Is Nothing Then Application.EnableEvents = False Select Case UCase(Target.Value) Case "X" Target.Value = "Ja" Case "" Target.Value = "" Case Else Target.Value = "Nein" End Select Application.EnableEvents = True End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("H4")) Is Nothing Then If Target = "x" Or Target = "X" Then Application.EnableEvents = False Range("H4") = "Nein" Application.EnableEvents = True Else Application.EnableEvents = False Range("H4") = "Ja" Application.EnableEvents = True End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("H4")) Is Nothing Then Application.EnableEvents = False Target = IIf(UCase(Target) = "X", "Nein", "Ja") Application.EnableEvents = True End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("H4")) Is Nothing And Target <> "" Then Application.EnableEvents = False Target = IIf(UCase(Target) = "X", "Nein", "Ja") Application.EnableEvents = True End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim RNG As Range, Zelle Set RNG = Range("H4:K8") If Not Intersect(Target, RNG) Is Nothing Then For Each Zelle In Intersect(Target, RNG) If Zelle <> "" Then Application.EnableEvents = False Zelle.Value = IIf(UCase(Zelle) = "X", "Ja", "Nein") Application.EnableEvents = True End If Next End If End Sub

Hallo an Dieter und alle Code-Provider,
@Dieter: Der Widerspruch ist immer noch nicht aufgelöst:
wenn in Zelle H4 ein "x" oder "X" eingegeben wird, soll in dieser Zelle "Ja" stehen.
Und was soll drin stehen, wenn was anderes eingegeben wird? Wir (die Helfer) müssen einfach mal annehmen "Nein" ? oder was?
Wenn H4 leer ist soll nichts drin stehen.
Das ist wohl klar, denn in einer Zelle kann wohl was drin stehen, oder eben nicht. Einen dritten Zustand gibt es nicht!
@Codes: Keiner dieser Codes erfüllt die Anforderung
...[gilt] auch für H4:H23
entweder sie funktionieren nur für H4, oder alle gehen denn Bach runter, wenn target sich mehrere Zellen umfasst.
Also so:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim checkRange As Range, rC As Range
Set checkRange = Intersect(Target, Range("H4:H23"))
If Not checkRange Is Nothing Then
Application.EnableEvents = False
On Error GoTo resetEvents
For Each rC In checkRange
If UCase(rC) = "X" Then
rC = "Ja"
Else
If Not IsEmpty(rC) Then rC = "Nein"
End If
Next rC
resetEvents:
Application.EnableEvents = True
End If
End Sub

Gruess Hansueli

Hallo Lupo1,
es fällt mir nicht leicht, dir zu antworten.
Ich werde mich bemühen, besser zu werden und zu verstehen.
Dies ist wohl nicht so einfach, da ich nicht der Logiker bin, für den es leicht ist, diese Dinge zu verstehen. Aber mich interessiert eben Excel und VBA.
Was ist absolut nicht verstehe, dass in diesem Forum persönliche Angriffe etc., z.B. jetzt von dir und schon sehr lange von robert veröffentlicht werden. Niemand muss mir antworten, dem meine Art und Fragen in diesem Forum nicht gefällen! Ich bleieb weiterhin NUR in diesem Forum, aber nicht um Jemand zu nerven oder persönlich zu ärgern. Die Art und Weise, wie die anschliessenden Texte von dir und robert hier ins Forum gestellt werden, hat HW Herber nicht verdient. Persönliche Anmacherei braucht keiner.
Dies ist mein letzter Text an dich und natürlich an robert, zu welcher Anfrage auch immer von mir ...
Guß, und danke für euer Bemühen ...
Dieter(Drummer)

Beliebteste Forumthreads (12 Monate)

Bei Eingabe von X in soll Ja oder Nein drin stehen

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bei Eingabe von X in soll Ja oder Nein drin stehen

28 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread