Hallo,
ich habe eine Frage bzgl. einem Makro.
Habe das folgende Makro mit welchem ich Daten aus einer Exceldatei in eine andere importiere. Leider übernimmt es mir auch immer die Formatierung der Zellen. In der Ausgangsdatei ist bei manchen Zellen unter "Zellen formatieren" der Haken für den Schreibschutz nicht aktiviert. Wenn dich dann diese Zellen rüberspiele wird der Haken für den Schreibschutz auch in der "Importdatei" raugenommen.
Was kann ich machen, dass ich nur die Werte importiere und nicht die Sperrung der Zellen aufhebe?
Vielen Dank für Euere Hilfe im Voraus
Gruß
tobi
Dim Prod As Worksheet
Dim filetoopen As String
Application.ScreenUpdating = False
ChDrive "C"
'ChDir "C"
filetoopen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If filetoopen "False" And filetoopen "Falsch" And filetoopen "" Then
Workbooks.Open filetoopen
With ActiveWorkbook
Set Prod = ThisWorkbook.Sheets("Prod")
.Sheets("Prod").Range("A:A").Copy Destination:=Prod.Range("A:A")
.Sheets("Prod").Range("B:B").Copy Destination:=Prod.Range("B:B")
.Sheets("Prod").Range("D:D").Copy Destination:=Prod.Range("BD:BD")
.Sheets("Prod").Range("E:E").Copy Destination:=Prod.Range("BE:BE")
.Sheets("Prod").Range("F:F").Copy Destination:=Prod.Range("BF:BF")
Application.CutCopyMode = False
.Save
.Close
End With
'Message Box
MsgBox "Daten erfolgreich eingespielt! / Data transfer was successful!"
End If
Application.ScreenUpdating = True
Sheets("Prod").Select
'Blatt schützen
ActiveWorkbook.Protect Password:="bwpa", Structure:=True
On Error GoTo errorhandler
For Each wks In Worksheets
wks.Protect Password:="bwpa", userinterfaceonly:=True, DrawingObjects:=False, Contents:=True, Scenarios:=True
Next wks
errorhandler: Exit Sub
End Sub