Microsoft Excel

Herbers Excel/VBA-Archiv

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


Betrifft: VBA Code für Text teilen von: Leitz G.
Geschrieben am: 17.12.2009 21:16:07

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.

  

Betrifft: [C1]=Left([A1],Len([A1])-3) von: NoNet
Geschrieben am: 17.12.2009 21:30:47

Excel-Funktion : =LINKS(A1;LÄNGE(A1)-3)

VBA : [C1]=Left([A1],Len([A1])-3)

Gruß, NoNet


  

Betrifft: AW: VBA Code für Text teilen von: Tino
Geschrieben am: 17.12.2009 21:36:51

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


  

Betrifft: AW: VBA Code für Text teilen von: Gerd L
Geschrieben am: 17.12.2009 21:57:47

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


  

Betrifft: AW: VBA Code für Text teilen von: Leitz G.
Geschrieben am: 18.12.2009 08:00:25

Hallo !

Herzlichen Dank an alle die sich zu später Stunde um mein Problem bemüht haben!


Gruß und Dank

Leitz G.


Beiträge aus den Excel-Beispielen zum Thema "VBA Code für Text teilen"