Thema: VBA Code für Text teilen | Herbers Excel-Forum

Hallo!
Schreibe in Zelle A Werte folgender Art: CP 1005 od. F 1001. Hätte gerne den Wert in eine andere Zelle (C) übertragen aber möchte die letzten drei Zahlen weglassen.
Möchte es nicht mit einer Formel!
Wenn möglich mit einer Select Change Funktion
Wenn Select B dann ............ in C Wert von A minus die letzten drei Zahlen.
Bitte um Eure HIlfe für den richtigen Code!
Mit besten Dank im Voraus
Leitz G.

Excel-Funktion : =LINKS(A1;LÄNGE(A1)-3)
VBA : [C1]=Left([A1],Len([A1])-3)
Gruß, NoNet

Hallo,
kannst ja mal testen, gehe in A1 von einer Überschrift aus.
Kommt als Code in die entsprechende Tabelle.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Dim Regex As Object
Set Bereich = Intersect(Range("A2", Cells(Rows.Count, 1)), Target)
If Not Bereich Is Nothing Then
Application.EnableEvents = False
For Each Bereich In Bereich
If Bereich Like "* ####" Then
Cells(Bereich.Row, 3) = Left$(Bereich, InStrRev(Bereich, " ") - 1)
Else
Cells(Bereich.Row, 3) = ""
End If
Next Bereich
Application.EnableEvents = True
End If
End Sub

Gruß Tino

Hallo!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngZelle As Range
If Target.Column = 1 And Target.Columns.Count = 1 Then
Application.EnableEvents = False
For Each rngZelle In Target
If Len(rngZelle) > 3 Then rngZelle.Offset(, 2).Value = Left$(rngZelle.Value, Len( _
rngZelle.Value) - 3)
Next
Application.EnableEvents = True
End If
End Sub

Gruß Gerd

Hallo !
Herzlichen Dank an alle die sich zu später Stunde um mein Problem bemüht haben!
Gruß und Dank
Leitz G.