Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Text ab der 2. Leezeile Abschneiden

Text ab der 2. Leezeile Abschneiden
08.01.2004 17:37:51
Jennifer Weinberg
Hallo,
ich habe eine Excel-Spalte vorliegen.
In in jeder einzelnen Zelle dieser Spalte befindet sich ein Text.
Bsp.:
Der Einzelhandel meldet Umsatzverluste
Die Automobilbranche befindet sich im Aufschwung.
Autofahrer sind jetzt besonders gefordert
usw.

Ich möchte nun den Text kürzen.
Dafür würde ich gerne das 2. Leerzeichen (alternativ auch das 3. Leerzeichen) als Trennzeichen verwenden.
Ich würde mich freuen, wenn mir jemand eine passende Formel dazu verraten würde.

Herzlichen Dank,
Jennifer

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text ab der 2. Leezeile Abschneiden
08.01.2004 17:52:50
Jennifer Weinberg
ich hab's jetzt doch selbst gelöst.
Herzlichen Dank & Sorry, falls jmd. bereits daran gearbeitet haben sollte.
AW: Text ab der 2. Leezeile Abschneiden
08.01.2004 17:58:31
ChrisL
Hi
Habe bereits dran gearbeitet und drum post ichs auch ;-)
Option Explicit

Sub t()
Dim strText As String
Dim Lang As Integer
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If Zelle <> "" And InStr(Zelle, " ") > 0 Then
strText = Zelle
Lang = InStr(strText, " ")
strText = Right(strText, Len(strText) - InStr(strText, " "))
If InStr(strText, " ") = 0 Then Exit For
Lang = Lang + InStr(strText, " ") - 1
Zelle = Left(Zelle, Lang)
End If
Next Zelle
End Sub


Gruss
Chris
Anzeige

153 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige