In den Zellen kann man ja eine Zeichelänge suchen. Dafür benutze ich diesen Code:
Dim Zelle As Integer
Dim i As Integer
For i = 1 To Len(Zelle)
If Mid(ActiveCell, i, 4) = "0190" Or Mid(ActiveCell, i, 4) = "0180" _
Or Mid(ActiveCell, i, 4) = "0137" Or Mid(ActiveCell, i, 4) = "0900" _
Or Mid(ActiveCell, i, 4) = "0136" Then
Next i
Das selbe wollte ich in meiner Userform mit einem Label oder der Textbox machen, bekomme es aber nicht hin. Irgendetwas mache ich falsch, aber was?
Wie kann man obigen Code auf Userform-Elemente (Labels und Textboxen) anwenden?
Danke für jede Hilfe!
Gruß, Rene