Abfrage über Worksheet

Hallo Ihr Excel-Fans,
nach langer Zeit hätte ich mal wieder ein Frage an Euch.
Habe folgenden Code in VBA
---------------------
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Select Case Target.Value
Case Is = ""
Cells(Target.Row, "F") = ""
Cells(Target.Row, "G") = ""
Case Is 0
Cells(Target.Row, "F") = Date$
Cells(Target.Row, "G") = Time$
End Select
End Sub
--------------------
Das funktioniert auch alles soweit ....
Was mich jetzt reizen würde wäre so eine Abfrage der Zelle Axx
wenn zb. in A1 ein Wert mit zb. einem K oder eine Zahl zB. 8 in der Zelle
stehen würde dann würde ich mir wünschen das nicht nur in F und G das Datum / Zeit
auftauchen würde sondern zusätzlich falls in Axx der Wert mit "K" oder mit "8" anfängt dann in Cells(Target.Row, "H") = "WERT1" bzw "WERT2" stehen würde...
Hoffe Ihr könnt mit dieser kargen Beschreibung erkennen worauf ich hinaus möchte...
Vielen Dank und schön das es dieses Forum immer noch gibt, DANKE Hans W. Herber !!
Gruß Karlheinz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Karlheinz,
die Erweiterung könnte etwa so aussehen:

If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Select Case Target.Value
Case Is = ""
Cells(Target.Row, "F") = ""
Cells(Target.Row, "G") = ""
Case Is  0
Cells(Target.Row, "F") = Date$
Cells(Target.Row, "G") = Time$
if mid(Target.value,1,1) = "K" then Cells(Target.Row, "H") = "WERT1"
if mid(Target.value,1,1) = "8" then Cells(Target.Row, "H") = "WERT2"
End Select

Die Abfragen auf ="" und ungleich 0 sind etwas lückenhaft: falls tatsächlich 0 drinsteht, passiert nämlich rein gar nichts, wovon Du Dich gerne überzeugen kannst.
Vorsicht! Ich schreibe in Spalte B.
Beachte die Ausgabe des CASE ELSE.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Select Case Target.Value
Case Is = ""
Cells(Target.Row, "B") = "is leer:  "
Cells(Target.Row, "F") = ""
Cells(Target.Row, "G") = ""
Case Is  0
Cells(Target.Row, "B") = "is  0: "
Cells(Target.Row, "F") = Date$
Cells(Target.Row, "G") = Time$
If Mid(Target.Value, 1, 1) = "K" Then Cells(Target.Row, "H") = "WERT1"
If Mid(Target.Value, 1, 1) = "8" Then Cells(Target.Row, "H") = "WERT2"
Case Else
Cells(Target.Row, "B") = "nicht enth.: "
End Select
End Sub

Schöne Grüße,
Michael

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread