Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
712to716
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
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

von Rechts ausschneiden

von Rechts ausschneiden
03.01.2006 18:02:37
Rechts
Hallo Leute,
ich habe in Spalte D folgendes stehen:
Behlertstr. 3A, 14467 Potsdam
ich möchte nun das straße und Ort getrennt werden.
also 13 stellen ausschneiden und in die Zeile daneben wieder einfügen.
so das in spalte D Straße und Hausnummer steht und in Spale E dann PLZ und Ort
Bitte helft mir.
Gruß Martin

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: von Rechts ausschneiden
03.01.2006 18:10:29
Rechts
Hallo Martin!
Probier mal!
Sub trennen()
Dim lngRow As Long, lngLast As Long, n As Integer

lngLast = Range("D65536").End(xlUp).Row

For lngRow = 2 To lngLast
  n = InStr(1, Cells(lngRow, 4), ",")
  If n > 0 Then
    Cells(lngRow, 5) = Trim$(Mid(Cells(lngRow, 4), n + 1, 99))
    Cells(lngRow, 4) = Left(Cells(lngRow, 4), n - 1)
  End If
Next

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: von Rechts ausschneiden
03.01.2006 18:10:51
Rechts
hallo Martin,
also ich stell mir mal vor, dass plz und ort nicht immer 13 zeichen lang sind.
falls hinter der hausnummer immer ein Komma geht das hervorragend mit Daten-Text in Spalten-Getrennt
gruss thomas
AW: von Rechts ausschneiden
03.01.2006 18:17:52
Rechts
Supi,
genau das richtige.
Dank an euch beide.
Schönes neues Jahr grus Martin
freut uns geholfen zu haben :-) ot.
03.01.2006 21:29:21
th.heinrich

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige