Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
540to544
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
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen Formatierung

Zellen Formatierung
04.01.2005 16:15:54
SIH
Hallo,
habe das gleiche Problem wie ads.
Eine Straße und eine Hausnummer sind in der gleichen Zelle und müssen getrennt werden.
Leider ist die Schreibweise aber unterschiedlich und nicht immer durch blank getrennt.
z.B.
Musterstraße 1
Musterstr. 1
Muster Straße 1
etc.
Besteht die Möglichkeit nach Buchstaben und Zahlen zu separieren?
Nach dem Motto: alles was vor der Zahl steht in die eine Zelle, der Rest in die Nächste?

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen Formatierung
Reinhard
Hi Sih?

Sub trennen()
For Each Zelle In Range("A1:A3").Cells
Zelle.Offset(0, 2) = StrReverse(Val(StrReverse(Zelle)))
Zelle.Offset(0, 1) = Left(Zelle, Len(Zelle) - Len(Zelle.Offset(0, 2)))
Next Zelle
End Sub

Gruß
Reinhard
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige