nochmalige Frage Code
18.09.2018 11:27:47
Guesa
Danke erstmal an Onur für diese Formel. Was ich allerdings nicht bedacht hatte, bei jedem Start wird ja ein neues Leerzeichen eingefügt und das sollte nicht sein. Frage, kann der Code so umgeschrieben werden das dieser nach Eingabe in D jeweils für die Aktive Celle ausgeführt wird.
Sub Nummer_trennen()
On Error Resume Next
For i = 1 To Cells(Rows.Count, 4).End(xlUp).Row
Cells(ActiveCell, 4).Value = Left(Cells(ActiveCell, 4), Len(Cells(iActiveCell, 4)) - 4) & "-" & Right(Cells(ActiveCell, 4), 4)
Next
End Sub Das hätte ich, aber dann?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column 4 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If UCase(Target.Value) > "" Then
End If
Application.CutCopyMode = False
End Sub
Schon einmal ein Danke an EuchGruß, Guesa