heute mal ein neues Problemchen ;)
ich habe ein Makro welches mir über einen Dateidialog eine zweite Datei öffnet und aus dieser Daten in die geöffnete Datei kopiert. Dies funktioniert auch reibungslos solange es die beiden Dateinamen im Makro auch gibt. Hier mal der Code:
Sub DateiÖffnenMitFehlerroutine()
Dim Dateiauswahl As Variant
erneut:
Dateiauswahl = Application.GetOpenFilename
If Dateiauswahl False Then
Workbooks.Open Filename:=Dateiauswahl
Else
If MsgBox("Es wurde keine Datei ausgewählt. Klicken Sie 'OK' um eine Datei auszuwä _
hlen, oder 'Abbrechen' um den Vorgang abzubrechen und das Makro zu beenden.", (vbOKCancel)) = vbOK Then
GoTo erneut
Else
Exit Sub
End If
End If
Windows("Schichten.xlsx").Activate
Columns("A:BA").Select
Selection.Copy
Windows("Arbeitszeit Maik.xlsm").Activate
Range("JF1").Select
ActiveSheet.Paste
Range("JH1").Select
End Sub
1. Problem:
Der Dateiname "Schichten" ist von mir vorgegeben und soll auch so verwendet werden. Es wäre nur schön wenn eine andere (falsche) Datei geöffnet wurde nicht das Makro mit einer Fehlermeldung abbricht sondern eine Msg-Box aufpoppt die wieder zum Punkt "erneut:" oder zum Makroende springt. Also müsste der Code den Namen der geöffneten Datei mit dem Namen im Makro (hier "Schichten.xlsx") vergleichen.
2. Problem:
Aus der Datei "Arbeitszeit Maik.xlsm" wird das Makro gestartet. Nun möchte ich aber das sich dieser Eintrag je nach vergebenen Dateinamen automatisch aktualisiert, denn ich habe mehrere Kollegen welche sich diese Arbeitsmappe unter anderen Namen abspeichern.
Vielen Dank für Eure Bemühungen.
LG Maik