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 ?
die beste Idee in einem Forum ist, die Datei mit einem Passwort zu schützen
Hi,
welchen Sinn macht eine mit Passwort geschützte Datei?
Sorry mein Fehler jetzt geht die Tabelle auf ....
Hi,
schreibe deine Datensätze einzeln untereinander, dann ist das Auslesen/Umschreiben ein Kinderspiel.
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!
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
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
Zitat:darum kann ich nichts dran ändern
Tja, dann kann ich dir auch nicht helfen.
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)