Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

nochmalige Frage Code

nochmalige Frage Code
18.09.2018 11:27:47
Guesa
Hallo Forum
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 Euch
Gruß, Guesa

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nochmalige Frage Code
18.09.2018 12:42:13
Rudi
Hallo,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 4 Then
If Target  "" Then
If InStr(Target, " ") = 0 Then
Application.EnableEvents = False
Target = Left(Target, 4) & " " & Mid(Target, 5)
Application.EnableEvents = True
End If
End If
End If
End If
End Sub

Gruß
Rudi
AW: nochmalige Frage Code
18.09.2018 15:33:37
Guesa
Hallo Rudi
Perfekt, Danke für deine Hilfe
Gruß, Guesa

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige