Text in Spalten trennen?

Forumthread: Text in Spalten trennen?

14.03.2008 16:52:00

Antonio

Guten Tag Ihr Lieben,
Bitte Hilfe!
wie kann man mit einer Schaltfläche(VBA-Code), die Namen in den Zellen B3:B 10000, mit Komma trennen und positionieren?
z.b.
jetzt in B3= steht Vorname "ohne Komma" Nachname
und dann in B3= soll Nachname, Vorname stehen
könnt Ihr mir bitte helfen?
Gruß
Antonio

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Text in Spalten trennen?

14.03.2008 17:39:50

Tino
AW: Text in Spalten trennen?

16.03.2008 07:54:58

Antonio
AW: Text in Spalten trennen?

14.03.2008 18:17:33

Erich

AW: Text in Spalten trennen?

14.03.2008 17:39:50

Tino

Hallo,
so könnte es gehen.


Sub Vorname_Name()
Dim Bereich As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each Bereich In Range("B3:B10000")
If InStr(1, Bereich, " ") > 0 And InStr(1, Bereich, ",") = 0 Then
Bereich = _
Right(Bereich, Len(Bereich) - InStr(1, Bereich, " ")) & ", " & _
Left(Bereich, InStr(1, Bereich, " ") - 1)
End If
Next Bereich
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Gruß
Tino

AW: Text in Spalten trennen?

16.03.2008 07:54:58

Antonio

Guten Morgen,
1000 Dank für eure Hilfe. Ihr seit Klasse!
Gruß
Antonio

AW: Text in Spalten trennen?

14.03.2008 18:17:33

Erich

Hi,
eine Möglichkeit ohne VBA:

	B	C
2	alt	neu
3	Angela Merkel	Merkel, Angela
4	Hans Wilhelm Müller	Wilhelm Müller, Hans
5	Victor von Bülow	von Bülow, Victor
6	Dr. Erwin Meier	Erwin Meier, Dr.
7	Johann Wolfgang von Goethe	Wolfgang von Goethe, Johann
8	Edi Stoiber	Stoiber, Edi
9	Stoiber, Edi	Stoiber, Edi

Formeln der Tabelle

Zelle	Formel
C3	=WENN(B3="";"";WENN(ISTZAHL(FINDEN(",";B3)); B3;TEIL(B3;FINDEN(" ";B3)+1;99)&", "&LINKS(B3;FINDEN(" ";B3)-1)))
C4	=WENN(B4="";"";WENN(ISTZAHL(FINDEN(",";B4)); B4;TEIL(B4;FINDEN(" ";B4)+1;99)&", "&LINKS(B4;FINDEN(" ";B4)-1)))

und noch eine mit VBA:


Option Explicit
Sub Namen_drehen()
Dim lngZ As Long
lngZ = Cells(Rows.Count, 2).End(xlUp).Row
Application.ScreenUpdating = False
Columns(3).Insert
With Range(Cells(3, 3), Cells(lngZ, 3))
.FormulaR1C1 = "=IF(RC[-1]="""","""",IF(ISNUMBER(FIND("","",RC[-1]))," & _
"RC[-1],MID(RC[-1],FIND("" "",RC[-1])+1,99)&"", ""&LEFT(RC[-1]," & _
"FIND("" "",RC[-1])-1)))"
.Offset(0, -1).Value = .Value
End With
Columns(3).Delete
Application.ScreenUpdating = True
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Forumthread: Text in Spalten trennen?

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread