Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
284to288
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

String teilen

String teilen
26.07.2003 12:09:05
Wolfgang
ich möchte in der ausgewählten spalte die ersten beiden wörter der kundenliste herausfiltern. Leerzeichen sind die trennzeichen
d.h.
Georg Maier Gmbh & Co. KG
Hermann Kurz AG
etc
es sollen dann stehenbleiben
Georg Maier
Hermann Kurz
etc
und suche hierfür ein Macro
danke

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

Betreff
Datum
Anwender
Anzeige
AW: String teilen
26.07.2003 12:20:11
Nepumuk
Hallo Wolfgang,
Ausgangspunkt ist Spalte A ab Zeile 1 die Ausgabe erfolgt in Spalte B.

Option Explicit
Public Sub Wolfgang()
Dim Zeile As Long
For Zeile = 1 To Cells(65536, 1).End(xlUp).Row
Cells(Zeile, 2) = Left(Cells(Zeile, 1), InStr(InStr(1, Cells(Zeile, 1), " ") + 1, Cells(Zeile, 1), " "))
Next
End Sub

Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk

Anzeige
AW: String teilen
26.07.2003 12:23:45
Nepumuk
Hallo Wolfgang,
ich hab das Leerzeichen nach dem zweiten String noch vergessen zu entfernen.

Option Explicit
Public Sub Wolfgang()
Dim Zeile As Long
For Zeile = 1 To Cells(65536, 1).End(xlUp).Row
Cells(Zeile, 2) = Left(Cells(Zeile, 1), InStr(InStr(1, Cells(Zeile, 1), " ") + 1, Cells(Zeile, 1), " ") - 1)
Next
End Sub

Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige