Nach 3. Leerzeichen rest löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

function LoescheAb3Leerzeichen(ByVal str as string) as string dim i as integer dim pos as integer pos = 1 for i = 1 to 3 if pos 0 then pos = Instr(pos, str, " ", vbTextCompare) else exit for end if next i if i = 4 then LoescheAb3Leerzeichen = left(str, pos) else LoescheAb3Leerzeichen = str end if end function Sub Test 'Beispiel für Zelle A1 Cells(1,1).value = LoescheAb3Leerzeichen(Cells(1,1).value) end sub

Option Explicit Public Sub Abschneiden() Dim lZeile As Long Dim vText As Variant With ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen! For lZeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row If InStr(.Range("A" & lZeile).Value, " ") > 2 Then vText = Split(.Range("A" & lZeile).Value, " ") .Range("A" & lZeile).Value = vText(0) & " " & vText(1) & " " & vText(2) End If Next lZeile End With End Sub

Public Sub Abschneiden() Dim lLetzte As Long Dim vArray As Variant Dim lZeile As Long Dim vText As Variant Application.ScreenUpdating = False With ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen! lLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row vArray = .Range("A2:A" & lLetzte) For lZeile = LBound(vArray) To UBound(vArray) If InStr(vArray(lZeile, 1), " ") > 2 Then vText = Split(vArray(lZeile, 1), " ") vArray(lZeile, 1) = vText(0) & " " & vText(1) & " " & vText(2) End If Next lZeile .Range("A2:A" & lLetzte) = vArray End With Application.ScreenUpdating = True End Sub

…Bernd,
Werner aber sicher nicht (wie inzwischen unten zu sehen).
Meine UDF-Variante sähe so aus:
=Splint(WECHSELN(A1; " ";ZEICHEN(1);3);ZEICHEN(1);1;1)
Auf eine Hilfsspalte kannst du auch verzichten, wenn es dir gelingt, die Fml um den OriginalText herumzulegen (ich nutze dafür ein spezielles Tool). Das hat nicht nur den Vorteil, dass die HilfsSpalte entfällt, sondern auch den, dass trotzdem der OriginalText erhalten bleibt.
Die beiden FmlTeile wären dann …
`=Splint(WECHSELN("´ und …
`";" ";ZEICHEN(1);3);ZEICHEN(1);1;1)´
Dafür könntest du auch Peters SubProzedur, entsprd umgebaut (Verdoppeln innerer " nicht vergessen!), einsetzen.
Mit Werners Fml ginge das im Prinzip auch, wäre aber ungleich komplizierter, weil der OriginalText hierin 2× benötigt wird. Allerdings könnte man das mit einer anderen UDF auf einmalige Nutzung einschränken.
Gruß, Luc :-?
Besser informiert mit …

Beliebteste Forumthreads (12 Monate)

Nach 3. Leerzeichen rest löschen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

322 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nach 3. Leerzeichen rest löschen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

322 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread