Supportnet / Forum / Tabellenkalkulation
Textslittung auf mehrere Spalten
Frage
Hallo,
ich möchte mit vba den inhalt einer zelle aufteilen und in die spalten daneben schreiben.
als kriterium würde ich eine anzahl von zeichen wählen (z.B 25) von dort aus müsste man dann zurück gehen, um ein bestimmtes zeichen (leerzeichen od. bindestrich) zu finden an dem man trennt.
hat da jemand eine idee zu wäre super cool - bin nämlich in absoluten zeitdruck - und möchte nicht über 2000 zeillen per hand trennen.
danke schon mal
[*][quote][sup][i]Admininfo: Bitte vermeide Mehrfachanfragen in verschiedenen, bzw. gleichen Gruppen. Siehe [url=https://supportnet.de/faqsthread/840][u]FAQ 2.[/u][/url][/u][/i][/sup][/quote]
Antwort 1 von Saarbauer
Hallo,
versuch es mal damit
Gruß
Helmut
Zitat:
Sub Trennen()
letzteZeile = Range("A65536").End(xlUp).Row
For i = 2 To letzteZeile
Range("B" & i).Value = Left(Range("A" & i).Value, InStr(1, Range("A" & i).Value, " ", vbTextCompare) - 1)
Range("C" & i).Value = Right(Range("A" & i).Value, Len(Range("A" & i).Value) - InStr(InStr(1, Range("A" & i).Value, " ", vbTextCompare), Range("A" & i).Value, " ", vbTextCompare))
Next i
End Sub
Sub Trennen()
letzteZeile = Range("A65536").End(xlUp).Row
For i = 2 To letzteZeile
Range("B" & i).Value = Left(Range("A" & i).Value, InStr(1, Range("A" & i).Value, " ", vbTextCompare) - 1)
Range("C" & i).Value = Right(Range("A" & i).Value, Len(Range("A" & i).Value) - InStr(InStr(1, Range("A" & i).Value, " ", vbTextCompare), Range("A" & i).Value, " ", vbTextCompare))
Next i
End Sub
versuch es mal damit
Gruß
Helmut
Antwort 2 von m_TG
Hallo Helmut,
ersteinmal vielen Dank für deine schnelle antwort!!!
leider bekomme ich das script nicht richtig zum laufen.
zuerst gab er mir immer fehler beim kompilieren (Variable nicht definiert) aus - habe dann
Dim i AS Integer
Dim letzteZeile As Integer
eingefügt. Jetzt habe ich einen Laufzeitfehler 5 (Ungültiger Prozeduraufruf oder ungültiges Argument) und finde nicht heraus warum es nicht funzt.
Hast Du eine Idee?
Viele Grüße
Mave
ersteinmal vielen Dank für deine schnelle antwort!!!
leider bekomme ich das script nicht richtig zum laufen.
zuerst gab er mir immer fehler beim kompilieren (Variable nicht definiert) aus - habe dann
Dim i AS Integer
Dim letzteZeile As Integer
eingefügt. Jetzt habe ich einen Laufzeitfehler 5 (Ungültiger Prozeduraufruf oder ungültiges Argument) und finde nicht heraus warum es nicht funzt.
Hast Du eine Idee?
Viele Grüße
Mave
Antwort 3 von Saarbauer
Hallo,
bei mir hat es funktioniert, aber da dein Aufbau in der Zelle nicht bekannt ist, kann es daran liegen
Gruß
Helmut
bei mir hat es funktioniert, aber da dein Aufbau in der Zelle nicht bekannt ist, kann es daran liegen
Gruß
Helmut
Antwort 4 von Hajo_Zi
Hallo m_TG
WARUM zu einen Thema mehrere Beiträge, das wird von den Moderatoren und Admin nicht so gern gesehen. Und es gab doch im anderem Beitrag schon einen Lösungsvorschlag.
Bei diesem Verfahren habe ich die Erarbeitung einer Lösung am Wochenende von meiner Liste gestriche. Da helfe ich dann lieber Leuten die es brauchen.
Gruß Hajo
WARUM zu einen Thema mehrere Beiträge, das wird von den Moderatoren und Admin nicht so gern gesehen. Und es gab doch im anderem Beitrag schon einen Lösungsvorschlag.
Bei diesem Verfahren habe ich die Erarbeitung einer Lösung am Wochenende von meiner Liste gestriche. Da helfe ich dann lieber Leuten die es brauchen.
Gruß Hajo