Mehrfachbedingung - Mehrfachfolge
13.01.2004 12:58:20
jenni
Marc hatte mir bei VBA geholfen. Ein Skript sollte in jeder Zeile den Inhalt der Spalte B auf bestimmten Inhalt überprüfen und dann in der Spalte D einen entsprechenden Wert eintragen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then
Else
Select Case Target.Value
Case Is = "A": Target.Offset(0, 2).Value = 52
Case Is = "B": Target.Offset(0, 2).Value = 2
Case Is = "C": Target.Offset(0, 2).Value = 22
End Select
End If
End Sub
Das funktioniert, danke Marc.
Auf welche Weise kann jatzt auch noch die Spalte E mit einem bestimmten Inhalt versehen werden?
Versuche:
Case Is = "A": Target.Offset(0, 2).Value = 52
Case Is = "A": Target.Offset(0, 3).Value = "Beispieltext"
oder auch:
Case Is = "A": Target.Offset(0, 2).Value = 52 And Target.Offset(0, 3).Value = "Beispieltext"
oder auch:
Case Is = "A"
Target.Offset(0, 2).Value = 52
Target.Offset(0, 3).Value = "Beispieltext"
führen immer nur die erste Anweisung aus. Spalte E bleibt leer.
Weiß jemand Rat?
jenni