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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen