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