Tabellenblatt o. Pfad in Ordner speicher
20.07.2021 21:33:53
speednetz
Ich brauche mal wieder Hilfe
ich habe ein Makro was Folgendes ausführt. Es öffnet ein Tabellenblatt auf dem Desktop, wo im Tabellennamen das Wort Ralf vorkommt, was auch geht.
Nach dem Öffnen wird die Datei gespeichert in einem festen Pfad.
Nun möchte ich aber, dass der Pfad variabel ist.
Mein Anliegen wäre das der Ordner autec \ Unterordner \ Stempeluhr gesucht wird und die Tabelle dann mit den Daten aus A1 und A7 gespeichert wird.
Hier mein Makro was ich im Moment verwende, was aber einen festen Pfad hat.
Public Sub Speichern_Stempeluhr()
'Save_New_Workbook()
Dim Dateinmame As String
Dim Suchbegriff As String
Dim Pfad As String
Pfad = "C:\Users\speed\Desktop\"
Suchbegriff = "Ralf"
Dateinmame = Dir(Pfad & "*" & Suchbegriff & "*.xls")
If Dateinmame "" Then
Workbooks.Open Pfad & Dateinmame
' bis hier hinläuft es wie es soll
' Dieser Teil müsste geändert werden
Dim strPath As String
strPath = "C:\Users\speed\Desktop\Lohwasser Nord\autec\Stempeluhr\" & Range("A1") & " " & Range("C7") & ".xls"
ThisWorkbook.Sheets.Copy
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs Filename:=strPath, FileFormat:=xlExcel8
.Close savechanges:=False
Application.DisplayAlerts = True
End With
End If
Windows("Stundenzettel.xlsm").Activate
Range("C8").Select
End Sub
Wäre schön, wenn mir jemand hierbei helfen könnte.
Gruß
speednetz
