suche funktion aus einem kürzel in celle 5 einen dazugehörigen wert in cell6 einzutragen.

09/11/2008 - 19:17 von michlchen | Report spam
hallo.

ich möchte in der spalte 5 ein paar möglichkeiten zum auswàhlen
anbieten. etwa so... A, B, C, D. A soll dann in spalte 6 den text1, B
text2, etc.

A text1
B text2
C text3
A text1
C text3
D text4

Spalte 5 würd ich über ne liste machen. das passt. aber wie bekomm ich
es hin, dass dann automatisch beim auswàhlen der text in der spalte 6
steht. mir persönlich würde nur ein makro (aber wann führt man das
dann aus) mit ner case schleife einfallen, aber da gibts bestimmt was
einfacheres...

danke für die hilfe.
 

Lesen sie die antworten

#1 Claus Busch
09/11/2008 - 20:02 | Warnen spam
Hallo Michi,

Am Sun, 9 Nov 2008 10:17:05 -0800 (PST) schrieb michlchen:

ich möchte in der spalte 5 ein paar möglichkeiten zum auswàhlen
anbieten. etwa so... A, B, C, D. A soll dann in spalte 6 den text1, B
text2, etc.

A text1
B text2
C text3
A text1
C text3
D text4



klicke rechts auf das entsprechende Tabellenblatt und kopiere folgenden
Code in das Codefenster. Der Code wird bei jeder Änderung in Spalte E
ausgeführt (die entsprechenden Ausgabetexte musst du noch deinen
Wünschen anpassen):

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Columns("E")) Is _
Nothing Then Exit Sub

Select Case UCase(Target.Value)
Case "A"
Target.Offset(0, 1) = "text1"
Case "B"
Target.Offset(0, 1) = "text2"
Case "C"
Target.Offset(0, 1) = "text3"
Case "D"
Target.Offset(0, 1) = "text3"
End Select

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP3 / Vista Ultimate
Office 2003 SP3 / 2007 Ultimate SP1

Ähnliche fragen