1. Problem:
In einer Zelle steht folgende Formel: "=WENN(UND(TAG(J18)=1;J19=(LastDayOfMonth(MONAT(J19);2008)));" ";SVERWEIS(I6;Tabelle1!A3:O82;6;0)/30)" mit dem Code:
Sub BlattSpeichern()
Dim strTBName As String, strWBName As String
Dim strMeldung As String, strTitel As String
Dim strVorschlag As String
Dim strVerzeichnis As String
Dim RG, Ja As String
RG = ActiveSheet.Range("B9").Value
Ja = ActiveSheet.Range("A1").Value
'Verzeichnis festgelegt
ChDrive "C"
ChDir "C:\Gruppen\Verwaltung\"
'Inputbox
strMeldung = "Dateiname: "
strTitel = "Blatt Export"
strVorschlag = RG & " " & Ja
'Blattname/Dateiname festlegen/Fehlerabfrage
strTBName = ActiveSheet.Name
strWBName = InputBox(strMeldung, strTitel, strVorschlag)
If strWBName = "" Then Exit Sub
'Blatt kopieren
ActiveSheet.Copy
'Werte ohne Formeln übernehmen
With Range("A1:F42")
'Blattschutz entfernen, da folgende Zuweisung sonst nicht funktioniert
ActiveSheet.Unprotect password:=""
.Value = .Value
End With
'Nicht benötigte Beeiche löschen
Columns("H:IV").Delete
Range("A1").Select
'Blatt schützen
ActiveSheet.Protect password:=""
'Workbook neu speichern und schließen
ActiveWorkbook.SaveAs strWBName
ActiveWorkbook.Close
End Sub
speicher ich das Blatt ab ohne Formeln nur den Inhalt, in der abgespeicherten Datei, erscheint nun ein #NAME? in der entsprechenden Zelle (mit anderen Zellen wo auch Formeln drinstehen geht es).
Warum?
2. Problem
Nach dem Abspeichern ändert Excel das Datumsformat in der gespeicherten Datei. Auf meinem heimischen laptop funktioniert es einwandfrei, auf arbeit am rechner geht es nicht. Ich war schon in der systhemsteuerung vom Rechner, aber da hab ich nichts an den Einstellungen gefunden. Weiß jemand rat?
Danke und Gruß
Karsten