Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Uups
Const cMyColumns As String = "-8-15-16-17-18-19-"
With Target
If .Count = 1 And InStr(1, cMyColumns, "-" & .Column & "-") Then
Application.EnableEvents = False
If InStr(1, .Value, "/") Then .Resize(1, 2).Value = Split(.Value, "/")
End If
End With
Uups:
Application.EnableEvents = True
End Sub
Erreiche ich damit folgendes Ziel?
Ich möchte das alle Zeilen der Spalte H(8) auf das Trennzeichen "/" kontrolliert werden. Wenn dieses Zeichen gefunden wird soll der Text nach dem Trennzeichen in die Spalte O(15) geschrieben werden. Ist noch ein "/" - Zeichen im Text vorhanden soll der Text nach dem zweiten "/" in die Spalte P(16) geschrieben werden.
In Spalte H(8) soll lediglich der Text vor dem ersten Trennzeichen stehen bleiben.
Dieser ganze Prozess soll kontinuierlich durchgeführt werden. Sobald neue Daten in Spalte H eingetragen werden, sollen diese durch den Code getrennt und auf die jeweiligen Spalten umgelegt werden.
Muss ich den Code irgendwie aktivieren? Oder wird der nach dem ich den Code eingetragen habe automatisch aktiviert?
Danke für die Hilfe!
Gruß Steve