ich bräuchte mal wieder Hilfe. Ich habe eine Excel Arbeitsmappe, bei der ich mit einem Makro
nur das aktuelle Tabellenblatt abspeichern kann. Funktioniert auf dem PC reibungslos. Nun möchte ich ab und an die Datei auch auf dem Laptop bearbeiten und abspeichern. Ist es möglich den VBA Code so umzuschreiben, dass abhängig vom PC oder Laptop die Datei unter einem anderen Speicherpfad gespeichert wird. Ich suche und probiere schon eine ganze Weile, aber krieg es leider nicht hin. Die eigentliche Idee es auf einem Macbook zu bearbeiten, scheint hoffnungslos. Deshalb habe ich mal versuchsweise parallels installiert und könnte damit leben, wenn es zumindest unter Windows-Umgebungen funktioniert. Besten Dank schon mal für alle Tipps und Anregungen!!!
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Name = ("Kd.Nr ") & Range("F20") & " " & Range("A20").Text
End Sub
Sub Check_Folder_And_Save()
Dim myFSO As Object, f As Object
Dim SaveFolder As String, myFileName As String, myLW As String
Set myFSO = CreateObject("Scripting.FileSystemObject")
SaveFolder = "Mein Speicherpfad"
ActiveSheet.Copy
myFileName = ActiveSheet.Name & ".xlsx"
myLW = Left(SaveFolder, 2)
ChDrive myLW
If myFSO.folderexists(SaveFolder) Then
ActiveWorkbook.SaveAs Filename:=SaveFolder & "\" & myFileName
MsgBox " Datei gespeichert in " & SaveFolder & ""
Else
MkDir SaveFolder
ActiveWorkbook.SaveAs Filename:=SaveFolder & "\" & myFileName
MsgBox "Neuer Ordner " & SaveFolder & " Datei darin gespeichert"
End If
End Sub
Die Abfrage ob der Ordner vorhanden ist und das Anlegen eines Neue, wenn nicht muss eigentlich nicht sein, da der Ordner definitiv existiert.Vielen Dank!!!!