Office: Zelle per Makro trennen

Hallo zusammen,

ich habe einen Datensatz in Zelle A1

Zitat:

Diesen Datensatz will ich mit einem Makro trennen. In A1 soll nur 4440 0009 stehen bleiben und B 0108 die 30 soll entfernt werden.

Leider bekomme ich das nicht. Hat vielleicht jemand eine Idee?

 

Hallo big-bastian,

eine Möglichkeit über Formeln wäre:

in Zelle B1

Code:

=LINKS(A1;SUCHEN(" ";A1;1) +4)

in Zelle C1

Code:

=RECHTS(A1;SUCHEN(" ";A1;1)-1)

und danach die Spalte A ausblenden.



Wenn es VBA sein soll, diesen Code ins Code-Modul des Tabellenblattes:

Code:

Option Explicit

Dim strZellinhalt As String
Dim strLinkerTeil As String
Dim strRechterTeil As String

Dim rgZelle As Range


Public Sub ZellinhaltAufteilen()

    For Each rgZelle In Me.Range("A1:A1")
    
        strZellinhalt = rgZelle.Value
        strRechterTeil = Right(strZellinhalt, 4)
        strLinkerTeil = Left(strZellinhalt, 9)
    
        rgZelle.Offset(0, 1).Value = strRechterTeil
        rgZelle.Value = strLinkerTeil
    
    Next rgZelle

End Sub

Ich hoffe das ich helfen konnte.

 

Hi Sebastian,

du schreibst leider nicht, ob deine Werte immer gleich aufgebaut sind - links 9 Zeichen und Rechts 4 Zeichen. Falls das der Fall ist, funktioniert Achims Lösung, andernfalls nicht. Ist die Anzahl unterschiedlich, es liegen jedoch immer 4 Teilblöcke getrennt durch Leerzeichen vor, dann kann man es so lösen:

Code:

Sub Trennen()
   If Len(Range("A1")) - Len(Application.Substitute(Range("A1"), " ", "")) = 3 Then
      Range("B1") = Mid(Range("A1"), InStrRev(Range("A1"), " ") + 1)
      Range("A1") = Left(Left(Range("A1"), InStrRev(Range("A1"), " ") - 1), _
      InStrRev(Left(Range("A1"), InStrRev(Range("A1"), " ") - 1), " ") - 1)
   End If
End Sub

@Achim,
weshalb muss man in einer Schleife über alle Zellen des Bereichs A1:A1 laufen? A1 beinhaltet doch nur 1 Zelle.

Bis später,
Karin

 

Danke für eure Antworten!

die Werte sind immer so aufgebaut. Benötige immer 9 Zeichen von links welche in Spalte A bleiben sollen und 4 zeichen von Rechts welche immer in Spalte B sollen. Es klappen also beide Makros. Aber das Marko soll für die ganze Spalte A Funktionieren. Wie stelle ich das den ein das es auf der ganzen Rage geift und nicht nur wie jetzt in A1. Den habe 200 Datensätze A1-A200.

Hat vielleicht noch jemand ein Tipp?

 

Hi Sebastian,

Code:

Sub Trennen()
   Dim lngZeile As Long
   For lngZeile = 1 To 200
      If Len(Cells(lngZeile, 1)) - Len(Application.Substitute(Cells(lngZeile, 1), " ", "")) = 3 Then
         Cells(lngZeile, 2) = Mid(Cells(lngZeile, 1), _
             InStrRev(Cells(lngZeile, 1), " ") + 1)
         Cells(lngZeile, 1) = Left(Left(Cells(lngZeile, 1), _
             InStrRev(Cells(lngZeile, 1), " ") - 1), _
             InStrRev(Left(Cells(lngZeile, 1), InStrRev(Cells(lngZeile, 1), " ") - 1), " ") - 1)
      End If
   Next lngZeile
End Sub

In Achim's Code musst du A1:A1 durch A1:A200 ersetzen.

Bis später,
Karin

 

Hallo Karin,

Okay, ich habs mir einfach gemacht und habe, ohne nach zu fragen oder Alternativen zu suchen, einfach voraus gesetzt, das immer alles gleich ist.
Schließlich wurde nur danach gefragt.
Deine Lösung ist allerdings universeller, keine Frage.
Falls Du meinst das dies ein Fehler sei (oder sein könnte) so wirst Du sicherlich recht haben. (bei den vielen unkonkreten und unvollständigen Anfragen)

Hier bin ich davon ausgegangen, dass es wohl eher Unsinn wäre extra ein Makro nur für eine Zelle und nur für eine Zahl, sprich einmaligen Gebrauch zu schreiben.
Ich dachte mir halt, da gehts bestimmt um die ganze Spalte.

Ich Trantüte habe nur vergessen, genau dieses noch dahinter zu schreiben:

Lieben Gruß und bis demnächst