Zellenbegrenzung!
Lisa
Die Zelle A1, des gleichen Sheets soll die verfügbaren Stellen anzeigen also mitzählen.
mittels des Makros passiert genau das, aber erste wenn mann die Zelle verlässt und wieder neu aktiviert wird auch die ANzeige aktualisiert.
SelectionChange eben!
Wie bekomme ich es zeitgleich hin? gibz es hierzu irgend eine Möglichkeit ohne Textboxen oder Label im Sheet zu arbeiten?
hier mein bisheriger Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Bereich = Range("B1")
If Not Intersect(Target, Bereich) Is Nothing Then
Sheets(1).Cells(1, 1) = Range("B1")
Sheets(1).Cells(1, 1) = 40 - Len(Range("B1").Text)
End If
If Len(Range("B1").Text) > 40 Then
MsgBox "Die Zeichenfolge ist auf 40 begrenzt!", 1 + vbOKOnly, ""
End If
End Sub
Kann hierzu jemand helfen?
Ach, die Datenbegrenzung kenne ich, hilft aber hier nicht weiter!
LG Lisa
Anzeige