Hallo zusammen,
Ich habe gestern folgenden Code bekommen.
Dim Zelle As Range
Dim i As Integer
i = 6
For Each Zelle In Range("Monat1").Cells
If Zelle.Value &gt 2130 Then
Sheets("Druck").Shapes("Textfeld " & i).Visible = True
Else
Sheets("Druck").Shapes("Textfeld " & i).Visible = False
End If
i = i + 1
Next Zelle
End Sub
Er funktioniert.
Ich brauche allerdings noch eine Ergänzung.
Der Code blendet auch das Texfeld ein, wenn ein Buchstabe in der zu überprüfenden Zelle Steht (wäre immer ein u). Das sollte nach möglichkeit aber nicht sein.
Wie kann das angepasst werden?
Gruß
Thorsten