wenn... dann...
30.11.2005 05:59:24
Gnilk
ich habe wieder ein kleines Problemchen:
Ich habe eine UserForm dort muss ich eine Zahl in eine TextBox eingeben. Ich habe fuenf dieser Textboxen (TextBox3 - TextBox7). Dann habe ich in einem anderem Worksheet eine Spalte mit fuenf gruenen Zellen. Diese kommen nicht nacheinander, sondern dazwischen sind Zellen in einer anderen Farbe. Ich will jetzt, dass der Wert der ersten Textbox in die erste gruene Zelle eingetragen wird, dann soll der Wert der zweiten TextBox in die naechste gruene Zelle eingetragen werden, u.s.w.
Bei meinem Code belibt immer nur der Wert der letzten TextBox in den gruenen Zellen stehen. Eigentlich ist mein Code einfach nur miess. Hier mein Code:
For tb = 3 To 7
For aaa = 6 To xxx.Range("B65500").End(xlUp).Row
hier01:
If xxx.Cells(aaa, 6).Interior.ColorIndex = 4 Then
xxx.Cells(aaa, 1).Offset(0, 5) = UserForm2("TextBox" & tb).Text
xxx.Cells(aaa, 1).Offset(0, 5).Interior.ColorIndex = 37
GoTo hier01
End If
Next
Next
Vielen Dank im Voraus
Ciao
Gnilk