Ich habe eine VBA Datei die genau das macht was ich will, doch "leider" ist der Dateiname darin enthalten und wenn dieser ändert, funzt die Datei leider nicht mehr. Da meine VBA Kenntnisse sich nur auf ein Minimum beschränke, wende ich mich an euch.
Hier mal die Datei:
Sub Ctrl_W_T_P()
Dim SpalteX As Long, Seite As Long
Application.Run "'TB_2017.xlsm'!Markieren"
Application.Run "'TB_2017.xlsm'!Ausfüllen"
'Suche nach "Hinweis" in Zeile 3 im Bereich der aktiven Zelle
For SpalteX = ActiveCell.Column - 2 To ActiveCell.Column + 13
If InStr(1, ActiveSheet.Cells(3, SpalteX).Value, "Hinweis") > 0 Then
Seite = ActiveSheet.Cells(53, SpalteX - 2).Value
If Seite > 0 Then
ActiveSheet.PrintOUT Preview:=False, from:=Seite, To:=Seite 'PrintPreview auf _
False ändern wenn allesfunktioniert
Exit For
Else
MsgBox "In Zeile 53 steht für diesen Bereich keine Seitennummer"
End If
End If
Next
Application.Run "'TB_2017.xlsm'!toTop"
Application.Wait Now + TimeSerial(0, 0, 7)
Application.Run "'TB_2017.xlsm'!Farbe_Löschen"
End Sub
Wie kann ich den Dateinamen Variabel machen, so dass es keine Rolle spielt wie die Datei heisst?
Danke schon mal im Voraus für eure Hilfe und Mühe
Gruss Daniel