ich habe ein Problem bei der Datenübertragung von Informationen aus Datei A in Datei B, und komme um`s verre**en nicht auf den Fehler.
Folgende Situation:
In Datei A steht meine Datenbasis zur weiteren Verarbeitung in Datei B.
Ich lasse beim Öffnen der Datei B immer prüfen, ob in Datei A neue Datensätze hinzugekommen sind und übernehme sie nur, wenn es neue sind.
Mein Code zur Datenübertragung sieht folgendermaßen aus:
If IsError(Application.Match(Ordernummer, .Columns(5), 0)) Then
lz1 = .Cells(Rows.Count, 2).End(xlUp).Row + 1
If lz1
In der letzten Zeile des dargestellten Codes wird ein Datum im Format "KW/Jahr" (also z.B. "02/17") übertragen. In der Datei B wird jedoch leider immer wieder dieses Zahlenformat als Datum interpretiert und als "17.Feb." ausgegeben. Ich habe schon viel versucht, bekomme es aber nicht hin.
1. Komplette Spalte in Datei B als Text vorformatiert => erfolglos
2. Makrocode auf
ThisWorkbook.Sheets(Baureihe).Cells(lz1, 7).text = ThisWorkbook.Sheets("Liste_Vertrieb").Cells(i, 8).Value
=> erfolglos3. Makrocode auf
ThisWorkbook.Sheets(Baureihe).Cells(lz1, 7).Value = Format((ThisWorkbook.Sheets("Liste_Vertrieb").Cells(i, 8).Value), "##/##")
=> erfolglos4. Makrocode auf
Format(ThisWorkbook.Sheets(Baureihe).Cells(lz1, 7).Value, "##/##") = ThisWorkbook.Sheets("Liste_Vertrieb").Cells(i, 8).Value
=> erfolglos5. Makrocode auf
ThisWorkbook.Sheets(Baureihe).Cells(lz1, 7).text = CStr(ThisWorkbook.Sheets("Liste_Vertrieb").Cells(i, 8).Value)
=> erfolglos6. Makrocode auf aktuelle Version
ThisWorkbook.Sheets(Baureihe).Cells(lz1, 7).Value = CStr(ThisWorkbook.Sheets("Liste_Vertrieb").Cells(i, 8).Value)
geändert => erfolglosHat noch jemand eine Idee, wie ich einfach nur das Originalformat KW/JJ aus Datei A in Datei B rüberbekomme?! Bin langsam am echt am verzweifeln...
Danke und Grüße, Bernd