ich habe ein Problem das ich gerne mit eurer Hilfe angehen möchte.
Sub aktuelle_Kosten_kopieren_ZAG()
tmp = InputBox("Aus welcher Datei sollen die Daten bezogen werden?", "Eingabe")
tmp2 = tmp + ".xls"
Windows(tmp2).Activate
Sheets("ZAG").Select
Range("F10:F57").Select
Selection.Copy
Windows("Berlin.xls").Activate
Sheets("ZAG").Select
Range("$D10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Das Makro funktioniert soweit wie gewünscht. Einzig wenn man bei der auftauchenden Inputbox auf Abbrechen klickt, zeigt er mir immer die Fehlermeldung Debbugen an und öffnet VBA. Markiert wird dann folgende Zeile: Windows(tmp2).ActivateGenauso verhält es sich wenn man den Dateinamen falsch schreibt. Wie kann ich das abstellen?
Vielen Dank schon mal im Voraus!
Gruß
Christopher