Ist es möglich per VBA alle Werte in den Zellen der Spalte A
auf 3 Stellen zu kürzen ohne For Each Scleife.
für Info Vielen Dank
Hans-Jörg
für Info Vielen Dank
Hans-Jörg
Alle Einträge in Spalte "C" ab Zeile "2" werden auf 3 Zeichen reduziert.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Row > 1 Then
Target.Value = Left(Target.Value, 3)
End If
End Sub
Gruß
Fellix
habe noch ein Beispiel mit Abfrage erstellt. So kann der Anwender vorher noch wählen.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Row > 1 Then
If Len(Target.Value) > 3 Then
If MsgBox("Möchten Sie die Eingabe auf 3 Zeichen begrenzen?" & Chr(13) & _
"Die Eingabe würde wie folgt lauten: " & Left(Target.Value, 3), _
vbQuestion + vbYesNo, "Z E I C H E N A N Z A H L !!") = vbYes Then
Target.Value = Left(Target.Value, 3)
End If
End If
End If
End Sub
Gruß
Felix