Schreibweise automatisch ändern

[Petz1807]

Hallo,

Hab folgendes spezielles Problem da ich eine Tabelle mit über 5000 Zeilen habe und nicht jede einzelne Zeile umschreiben will will ich das ganze per Formel lösen doch das bekomme ich nicht so richtig hin

Hab folgende Einträge:

            A                            B                    C                       D

 1    SCHROIF                Cosima        27/09/1978       C000038000
 2    KILL                        Michel         08/02/1977       C000038000
                                      Richard      02/05/1980
 3    OESTERREICHER    Annick        28/04/1971       C000038000

Und per Formel sollte das danach dann so aussehn:

              A                                           B    
                                      
1     C000038000     Schroif Cosima née le 27 septembre 1978
2     C000038000     Kill Michel née le 08 février 1977, Kill Richard née le 02 mai 1980
3     C000038000     Oesterreicher Annick née 28 avril 1971

Hab mit dieser Formel probiert doch das klappt nicht so richtig :

=GROSS2(A2)&" "&B2&" "&TEXT(C2;"DD/MMMM/YYYY;;")

Dann bekomme ich folgendes Resultat:

Schroif Cosima 27/septembre/1978
Kill MichelRichard 08/02/197702/05/1980

Wer kann mir da weiterhelfen ?

[Fennek]

die beste Idee in einem Forum ist, die Datei mit einem Passwort zu schützen

[WillWissen]

Hi,

welchen Sinn macht eine mit Passwort geschützte Datei?

[Petz1807]

Sorry mein Fehler jetzt geht die Tabelle auf ....

[WillWissen]

Hi,

schreibe deine Datensätze einzeln untereinander, dann ist das Auslesen/Umschreiben ein Kinderspiel.

[MisterBurns]

Tabelle1

	A	B	C	D	E
1	SCHROIF	Cosima	27.09.1978	C000038000	Schroif Cosima née le 27 September 1978
2	KILL	Michel Richard	08/02/1977 02/05/1980	C000038000	Kill Michel Richard née le 08/02/1977 02/05/1980
3	OESTERREICHER	Annick	28.04.1971	C000038000	Oesterreicher Annick née le 28 April 1971
4	PEREIRA	Lucie Toni	14/06/1983 01/08/1985	C000038000	Pereira Lucie Toni née le 14/06/1983 01/08/1985
5	LIEFGEN	Marius	26.04.1975	C000038000	Liefgen Marius née le 26 April 1975
6	PESCH	Caroline Alexandra	31/03/1971 14/07/1976	C000038000	Pesch Caroline Alexandra née le 31/03/1971 14/07/1976
7	MICHEL	Marion	27.11.1972	C000038000	Michel Marion née le 27 November 1972
8	HOFFMANN	Tessy Diane	05/03/1977 07/11/1979	C000038000	Hoffmann Tessy Diane née le 05/03/1977 07/11/1979
9	LENTZ	Alain Isabelle	04/10/1972 29/01/1981	C000038000	Lentz Alain Isabelle née le 04/10/1972 29/01/1981
10	MANDERSCHEID	Mike	09.03.1973	C000038000	Manderscheid Mike née le 09 März 1973

Formeln der Tabelle

Zelle Formel E1 =GROSS2(A1)&" "&GROSS2(B1)&" née le "&TEXT(C1;"TT MMMM JJJJ") E2 =GROSS2(A2)&" "&GROSS2(B2)&" née le "&TEXT(C2;"TT MMMM JJJJ") E3 =GROSS2(A3)&" "&GROSS2(B3)&" née le "&TEXT(C3;"TT MMMM JJJJ") E4 =GROSS2(A4)&" "&GROSS2(B4)&" née le "&TEXT(C4;"TT MMMM JJJJ") E5 =GROSS2(A5)&" "&GROSS2(B5)&" née le "&TEXT(C5;"TT MMMM JJJJ") E6 =GROSS2(A6)&" "&GROSS2(B6)&" née le "&TEXT(C6;"TT MMMM JJJJ") E7 =GROSS2(A7)&" "&GROSS2(B7)&" née le "&TEXT(C7;"TT MMMM JJJJ") E8 =GROSS2(A8)&" "&GROSS2(B8)&" née le "&TEXT(C8;"TT MMMM JJJJ") E9 =GROSS2(A9)&" "&GROSS2(B9)&" née le "&TEXT(C9;"TT MMMM JJJJ") E10 =GROSS2(A10)&" "&GROSS2(B10)&" née le "&TEXT(C10;"TT MMMM JJJJ")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Du musst natürlich unbedingt je Name eine Zeile vergeben, ansonsten ist deine Liste für die Tonne!

[Petz1807]

Ok das Problem liegt aber noch darin dass wenn 2 Geburtsdatums in einer Zelle sind die nicht umschreibt und auch die 2 Namen nicht in eine Reihe hintereinander setzt

[Petz1807]

Da die Tabelle über 5000 Zeilen hat und jetzt ein neues Gesetz heraus gekommen ist das sagt dass die schreibweise mit deen Familiennamen und Namen mit Geburtsdatum hintereinander und die einzelnen Personen getrennt durch Komma stehen müssen darum kann ich nichts dran ändern als es so zu machen dass die vorgeschriebene Schreibweise heraus kommt

[MisterBurns]

darum kann ich nichts dran ändern

Tja, dann kann ich dir auch nicht helfen.

[Fennek]

Hallo,

mit VBA sollte es möglich sein. Der Kern des Codes ist:

Code:

Sub F_en()
Dim WSF As WorksheetFunction: Set WSF = Application.WorksheetFunction
Dim Dt As Date
Dim Bo As Boolean

For i = 1 To 10
    Nam = Cells(i, 2)
    Geb = Cells(i, 3)
    
    Bo = InStr(1, Nam, Chr(10)) > 0
    If Bo Then
        Nm = Split(Nam, Chr(10))
        Ge = Split(Geb, Chr(10))
        For d = 0 To UBound(Ge)
            Debug.Print WSF.Text(CDate(Ge(d)), "[$-40c]DD MMMM YYYY")
        Next d
    Else
        Nm = Na
        Ge = Geb
    End If
Next i
End Sub

Der Rest ist Fleissarbeit.

mfg

(Ausgabe im Direktfenster des VBE)