WENN DANN und evtl. Script

08/04/2008 - 16:00 von Detlef Paschke | Report spam
Hallo und guten Tag,

folgendes Szenario:
in einer Tabelle soll die Stromstàrke und der dazugehörige Verbraucher
erfasst werden. Wird in der Zelle für die Stromstàrke eine 0 eingetragen
soll in der dazugehörigen Zelle für den Verbraucher "frei" auftauchen. Wird
eine Stromstàrke angegeben soll die Zelle für den Verbraucher frei
beschriftet werden können.
Folgendes Script tut dies für die erste Zeile der Tabelle (in meinem Fall
Zeile 22):

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("B22") Then
If Range("B22").Value = 0 Then
Range("C22") = "frei"
Else
Range("C22") = ""
End If
End If
End Sub

Muss ich dieses Script nun für jede Zeile einzeln erweitern oder gibt es
eine Möglichkeit zu Sagen "diese Funktion trifft für Zeile 22 bis 42 zu?

Viele Grüße
Detlef Paschke

registered Fli4l-User #00000209
Das "Zitat des Augenblicks" gibt es nur auf
http://schabau.dyndns.org
 

Lesen sie die antworten

#1 Wolfgang Habernoll
08/04/2008 - 16:25 | Warnen spam
Hallo Detlef

"Detlef Paschke" schrieb im Newsbeitrag
news:ftftot$epc$00$
Hallo und guten Tag,

folgendes Szenario:
in einer Tabelle soll die Stromstàrke und der dazugehörige Verbraucher erfasst
werden. Wird in der Zelle für die Stromstàrke eine 0 eingetragen soll in der
dazugehörigen Zelle für den Verbraucher "frei" auftauchen. Wird eine
Stromstàrke angegeben soll die Zelle für den Verbraucher frei beschriftet
werden können.
Folgendes Script tut dies für die erste Zeile der Tabelle (in meinem Fall
Zeile 22):

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("B22") Then
If Range("B22").Value = 0 Then
Range("C22") = "frei"
Else
Range("C22") = ""
End If
End If
End Sub

Muss ich dieses Script nun für jede Zeile einzeln erweitern oder gibt es



nein denke nicht

eine Möglichkeit zu Sagen "diese Funktion trifft für Zeile 22 bis 42 zu?



versuche es mal damit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("B22:B42")) Is Nothing Then Exit Sub
If Target = 0 Or Target = "" Then
Target.Offset(0, 1) = "Frei"
Else
Target.Offset(0, 1) = ""
End If
End Sub

mfG
Wolfgang Habernoll

[ Win XP Home SP-2 , XL2002 ]

Ähnliche fragen