Kopieren als Text
18.12.2019 12:16:17
Simone
ich habe mal wieder ein Problem :-)
Ich ziehe aus der Datei "Datenbank.xlsm" ein Tabellenblatt-Bereich mit dem u.a. Code raus, ohne die Datei zu öffnen.
Das klappt alles hervorragend! Die Felder mit den Kalenderwochen sind in der Ursprungsdatei so abgespeichert: 1 / 2020. Bis zur KW51 (also 51 / 2019) hat das Makro dieses Format auch genauso importiert. Ab der KW1 (also 1 / 2020) wir nur noch "Jan 20" importiert und nicht wie es richtig wäre 1 / 2020.
Wie kann ich dem u.a. Makro sagen, dass er alles als "Text" kopieren soll?
Vielen Dank und viele Grüße
Simone
Sub DatenLaden()
Dim Pfad2 As String
Pfad2 = ThisWorkbook.Worksheets("Zwischenspeicher").Range("m2").Value
Application.ScreenUpdating = False
Worksheets("Daten").Activate
Dim rng As Range, _
sFile As String, sPath As String, _
oldStatusBar As Boolean
Application.ScreenUpdating = False
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
sFile = "Datenbank.xlsm"
sPath = Pfad2
With Sheets("Daten")
.Range("A1:T7500").Formula = "='" & sPath & "[" & sFile & _
"]Daten'!A1:T7500"
Set rng = .Range("A1:T7500")
End With
Worksheets("Daten").Activate
rng.Cells(1).Copy rng
rng.Value = rng.Value