Spaltenabfrage
12.11.2006 14:48:31
Dirk
komme einfach nicht weiter. Wie mach ich die Spaltenabfrage flexibel?
es soll immer in spalte AE wert1 oder wert2 eingetragen werden.
der user muß nur einen spalten wert eingeben.
z.b.
user gibt 9 ein
VBA-funktion:
gehe in Spalte AE, und schreibe AAAAAA, wenn in Spalte 9 OK steht, sonst ZZZZZZ
mit einer anderen spalten eingabe funktioniert es nicht, da mir die Abfrage funktion für die spalte fehlt.
Abfrage Eingabe
c33=WERT1? AAAAAA
c34=WERT2? ZZZZZZ
c35=Wert3? OK
c36=Spalte 9
Sub test()
Dim strWert31 As String
Dim strWert32 As String
Dim strWert33 As String
Dim strWert34 As String
strWert31 = Range("c33").Value
strWert32 = Range("c34").Value
strWert33 = Range("c35").Value
strWert34 = Range("c36").Value
Columns("AE:AE").Select
Selection.NumberFormat = "@"
Dim rng As Range
Set rng = Range("i2")
Do Until IsEmpty(rng)
If rng = strWert33 Then rng.Offset(0, strWert34 + 13) = strWert31
If rng <> strWert33 Then rng.Offset(0, strWert34 + 13) = strWert32
Set rng = rng.Offset(1, 0)
Loop
End Sub