Suche Lösung - Text-Format Formel (Deut. vs. Engl)

Hallo liebe Excel Forum Mitglieder,
muss ich mich wieder an Euch Profis wenden. Dank Euerer Hilfe wurde mir immer geholfen.
Mein Excel (Formel) Wissen ist leider nicht so fit.
Es geht um viele Formeln & Formate zwischen Deutsch (2010) und Englisch (2007). Als Beispiel folgende Formel (=TEXT(B2;"TT.MM.JJJJ").) änderte ich mit Suchen und Ersetzten auf (=TEXT(B2;"DD.MM.YYYY").) um den gewünschten Ergebnis in Engl. Office 2007 zu haben.
Hier in Herber Forum fand ich diesen Beitrag;
https://www.herber.de/forum/archiv/908to912/911155_TTMMJJ_versteht_englisches_Excel_nicht.html

Public Function getFormattedDate(dDate As Date) As String
getFormattedDate = Format(dDate, "DD.MM.YYYY")
End Function

Wer könnte mir bitte helfen und die Format ("Function "getFormattedDate") so anpassen dass folgendes passiert:
a). wenn ich die Mappe mit Deutschen Office (2010) öffne es solle mit Deutschen Formaten (TT.MM.JJJJ) gerechnet werden
b). oder wenn ich Mappe in der Firma mit Englischen Office (2007) öffne, dass sich der Formate in allen Formeln automatisch auf Engl. Office 2007 (DD.MM.YYYY) anpassen?
Folgende Formeln haben Text Format:
1. =TEXT(B2;"TT.MM.JJJJ")&"-"&ZÄHLENWENN($B2:B$2;B2)
2. =WENN(ISTNV(SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&1;$A$2:$C$2000;3;0));"";SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&1;$A$2:$C$2000;3;0))&WENN(ISTNV(SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&2;$A$2:$C$2000;3;0));"";ZEICHEN(10)&SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&2;$A$2:$C$2000;3;0))&WENN(ISTNV(SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&3;$A$2:$C$2000;3;0));"";ZEICHEN(10)&SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&3;$A$2:$C$2000;3;0))&WENN(ISTNV(SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&4;$A$2:$C$2000;3;0));"";ZEICHEN(10)&SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&4;$A$2:$C$2000;3;0))&WENN(ISTNV(SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&5;$A$2:$C$2000;3;0));"";ZEICHEN(10)&SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&5;$A$2:$C$2000;3;0))&WENN(ISTNV(SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&6;$A$2:$C$2000;3;0));"";SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&6;$A$2:$C$2000;3;0))&WENN(ISTNV(SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&7;$A$2:$C$2000;3;0));"";ZEICHEN(10)&SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&7;$A$2:$C$2000;3;0))&WENN(ISTNV(SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&8;$A$2:$C$2000;3;0));"";ZEICHEN(10)&SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&8;$A$2:$C$2000;3;0))&WENN(ISTNV(SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&9;$A$2:$C$2000;3;0));"";ZEICHEN(10)&SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&9;$A$2:$C$2000;3;0))&WENN(ISTNV(SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&10;$A$2:$C$2000;3;0));"";ZEICHEN(10)&SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&10;$A$2:$C$2000;3;0))
3. =WENN(ISTNV(SVERWEIS(TEXT(F7;"TT.MM.JJJJ")&"-"&1;'1R'!$A$2:$C$2000;3;0));"";SVERWEIS(TEXT(F7;"TT.MM.JJJJ")&"-"&1;'1R'!$A$2:$C$2000;3;0))&WENN(ISTNV(SVERWEIS(TEXT(F7;"TT.MM.JJJJ")&"-"&2;'1R'!$A$2:$C$2000;3;0));"";ZEICHEN(10)&SVERWEIS(TEXT(F7;"TT.MM.JJJJ")&"-"&2;'1R'!$A$2:$C$2000;3;0))&WENN(ISTNV(SVERWEIS(TEXT(F7;"TT.MM.JJJJ")&"-"&3;'1R'!$A$2:$C$2000;3;0));"";ZEICHEN(10)&SVERWEIS(TEXT(F7;"TT.MM.JJJJ")&"-"&3;'1R'!$A$2:$C$2000;3;0))&WENN(ISTNV(SVERWEIS(TEXT(F7;"TT.MM.JJJJ")&"-"&4;'1R'!$A$2:$C$2000;3;0));"";ZEICHEN(10)&SVERWEIS(TEXT(F7;"TT.MM.JJJJ")&"-"&4;'1R'!$A$2:$C$2000;3;0))&WENN(ISTNV(SVERWEIS(TEXT(F7;"TT.MM.JJJJ")&"-"&5;'1R'!$A$2:$C$2000;3;0));"";ZEICHEN(10)&SVERWEIS(TEXT(F7;"TT.MM.JJJJ")&"-"&5;'1R'!$A$2:$C$2000;3;0))&WENN(ISTNV(SVERWEIS(TEXT(F7;"TT.MM.JJJJ")&"-"&6;'1R'!$A$2:$C$2000;3;0));"";SVERWEIS(TEXT(F7;"TT.MM.JJJJ")&"-"&6;'1R'!$A$2:$C$2000;3;0))&WENN(ISTNV(SVERWEIS(TEXT(F7;"TT.MM.JJJJ")&"-"&7;'1R'!$A$2:$C$2000;3;0));"";ZEICHEN(10)&SVERWEIS(TEXT(F7;"TT.MM.JJJJ")&"-"&7;'1R'!$A$2:$C$2000;3;0))&WENN(ISTNV(SVERWEIS(TEXT(F7;"TT.MM.JJJJ")&"-"&8;'1R'!$A$2:$C$2000;3;0));"";ZEICHEN(10)&SVERWEIS(TEXT(F7;"TT.MM.JJJJ")&"-"&8;'1R'!$A$2:$C$2000;3;0))&WENN(ISTNV(SVERWEIS(TEXT(F7;"TT.MM.JJJJ")&"-"&9;'1R'!$A$2:$C$2000;3;0));"";ZEICHEN(10)&SVERWEIS(TEXT(F7;"TT.MM.JJJJ")&"-"&9;'1R'!$A$2:$C$2000;3;0))&WENN(ISTNV(SVERWEIS(TEXT(F7;"TT.MM.JJJJ")&"-"&10;'1R'!$A$2:$C$2000;3;0));"";ZEICHEN(10)&SVERWEIS(TEXT(F7;"TT.MM.JJJJ")&"-"&10;'1R'!$A$2:$C$2000;3;0))
In anderen Forum
http://www.office-loesung.de/ftopic513350_0_0_asc.php
fand ich beim Webstor diesen Funktion:

Function DatumGetestet(strDatum As String) As Variant
'Funktion erkennt A L L E
'fehlerhaften Datumsangaben
'Auch Überprüfung auf Monat 28, 30 oder 31 Tage
'(bei Februar auf Schaltjahre)
'nur Ziffern angaben zulässig
'Funzt sowohl bei der englischen (GB +USA) als
'auch bei der deutschen Ländereinstellung
'Das fehlende Jahr wird mit dem aktuellen ergänzt
DatumGetestet = False
If IsDate(strDatum$) Then
If Month(CDate("1/2/2000")) = 2 Then
Select Case strDatum$
Case Format(CDate(strDatum$), "d/m/yy"), _
Format(CDate(strDatum$), "d/m/yyyy"), _
Format(CDate(strDatum$), "d/mm/yy"), _
Format(CDate(strDatum$), "d/mm/yyyy"), _
Format(CDate(strDatum$), "dd/m/yy"), _
Format(CDate(strDatum$), "dd/m/yyyy"), _
Format(CDate(strDatum$), "dd/mm/yy"), _
Format(CDate(strDatum$), "dd/mm/yyyy")
DatumGetestet = CDate(strDatum)
Case Format(CDate(strDatum$), "d/m"), _
Format(CDate(strDatum$), "d/mm"), _
Format(CDate(strDatum$), "dd/m"), _
Format(CDate(strDatum$), "dd/mm")
DatumGetestet = CDate(strDatum)
End Select
Else
Select Case strDatum$
Case Format(CDate(strDatum$), "m/d/yy"), _
Format(CDate(strDatum$), "m/d/yyyy"), _
Format(CDate(strDatum$), "m/dd/yy"), _
Format(CDate(strDatum$), "m/dd/yyyy"), _
Format(CDate(strDatum$), "mm/d/yy"), _
Format(CDate(strDatum$), "mm/d/yyyy"), _
Format(CDate(strDatum$), "mm/dd/yy"), _
Format(CDate(strDatum$), "mm/dd/yyyy")
DatumGetestet = CDate(strDatum)
Case Format(CDate(strDatum$), "m/d"), _
Format(CDate(strDatum$), "m/dd"), _
Format(CDate(strDatum$), "mm/d"), _
Format(CDate(strDatum$), "mm/dd")
DatumGetestet = CDate(strDatum)
End Select
End If
End If
End Function

Für jede Hilfe bin ich Euch sehr Dankbar
Daniel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
ersetze
TEXT(D2;"TT.MM.JJJJ")
mit GETFORMATTEDDATE(D2)
schreibe das am besten in eine Freie Zelle (sei mal X1, die wird frei sein) und ersetze das in deiner Formel.
also statt
SVERWEIS(TEXT(D2;"TT.MM.JJJJ")&"-"&1;$A$2:$C$2000;3;0)
SVERWEIS(X1&"-"&1;$A$2:$C$2000;3;0)
geht im 2007er Office schon WENNFEHLER? Ich meine ja, auf jedem Fall gehts im 2010er. Statt
WENN(ISTNV(SVERWEIS(X1&"-"&1;$A$2:$C$2000;3;0));"";SVERWEIS(C1&"-"&1;$A$2:$C$2000;3;0))&
lieber
WENNFEHLER(SVERWEIS(X1&"-"&1;$A$2:$C$2000;3;0);"")
dann mache noch einen Namen, den nennst du Zb B_HIER und gibst dem den Bereich A2:C2000
dann statt
WENNFEHLER(SVERWEIS(X1&"-"&1;$A$2:$C$2000;3;0);"")
lieber
WENNFEHLER(SVERWEIS(X1&"-"&1;B_HIER;3;0);"")
Zuguterletzt: die 0 als Bereich_Verweis falsch ist überflüssig und kann eingespart werden - aber immer das Semikolon schreiben!
statt
WENNFEHLER(SVERWEIS(X1&"-"&1;B_HIER;3;0);"")
lieber
WENNFEHLER(SVERWEIS(X1&"-"&1;B_HIER;3;);"")
Alle Tips beziehen sich auf das erste gefundene SVERWEIS der ersten Formel, natürlich auf die ganze Formel entsprechend erweitern.
Wenn du das alles gemacht hast, machst du dir nochmal die Mühe deine Formel hier mit ZEILENUMBRÜCHEN reinzustellen. Mal ehrlich, du machst dir echt vor dass irgendjemand dieses Monster liest?
Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

Suche Lösung - Text-Format Formel (Deut. vs. Engl)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread