Clever-Excel-Forum

Hallo zusammen,

ich habe folgendes Problem: Ich kann ein Makro nicht ausführen, da dann die Fehlermeldung kommt, dass eine Datei B nicht gefunden werden kann. Bedeutet für mich also, dass sich dieses Makro auf die Datei B bezieht und diese Datei B verschoben worden ist. Wenn ich die Datei B wieder an die richtige Stelle ablege, funktioniert das Makro in der Datei A. Ich möchte aber, dass das Makro auch ohne die Datei B ausgeführt werden kann.
Folgender Hintergrund: Die Datei A ist dieselbe Datei wie Datei B. In Datei B wurde das Makro erstellt. Irgendwann habe ich eine Kopie der Datei erstellt und den Dateinamen geändert ("Speichern unter"), dies ist dann die Datei A. Liegt darin das Problem? Die Datei B möchte ich aber eigentlich löschen und nur noch mit Datei A weiterarbeiten.
Im Makro kann ich eigentlich keinen Verweis auf eine andere Datei erkennen (kenne mich aber auch nicht gut mit Makros aus). Im Editor steht aber immer nur "ActiveSheet" bzw. "ActiveWorkbook". Heißt für mich, dass nur die geöffnete Datei arbeitet.

Vielen Dank im Voraus!

(30.07.2017, 14:51)halihalöle schrieb: [ -> ]da dann die Fehlermeldung kommt, dass eine Datei B nicht gefunden werden kann. Bedeutet für mich also, …

Moin!
Für mich bedeutet das zunächst, dass Dir ohne Datei oder zumindest den Code kaum geholfen werden kann.

Irgendwo Windows("BlaBlubb.xlsm") im Code?

Gruß Ralf

Ne, kein Windows("..") im Code. Hier ist der Code:


Sub MM_einfuegen()

Application.ScreenUpdating = False

' Neues Arbeitsblatt erstellen
    Worksheets("Master_M_M").Copy after:=Worksheets(1)
    ActiveSheet.Name = Worksheets.Count - 5 & ")"
    ActiveWorkbook.Worksheets(2).Cells(4, 7) = "CR_" & Year(Date) & "_0" & Worksheets.Count - 5
    ActiveWorkbook.Worksheets(2).Cells(4, 15) = Date

' Zeile einfügen
    Sheets("Übersicht CRs").Select
    Rows("8:8").Select
    Selection.Insert Shift:=xlUp
    Range("A9:AU9").Select
    Selection.Copy
    Range("A8").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

' Werte eintragen
ActiveWorkbook.Worksheets(1).Cells(8, 2) = ActiveWorkbook.Worksheets(2).Cells(1, 4)
ActiveWorkbook.Worksheets(1).Cells(8, 4) = ActiveWorkbook.Worksheets(2).Cells(4, 7)
ActiveWorkbook.Worksheets(1).Cells(8, 15) = ActiveWorkbook.Worksheets(2).Cells(4, 15)
ActiveWorkbook.Worksheets(1).Cells(8, 18) = ActiveWorkbook.Worksheets(2).Cells(5, 6)
ActiveWorkbook.Worksheets(1).Cells(8, 19) = ActiveWorkbook.Worksheets(2).Cells(5, 9)


Call Dropdown_einfügen

End Sub
______________________________________________________________________________________

Private Sub Dropdown_einfügen()

    Range("N8").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=Status!$C$3:$C$5"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub
__________________________________________________________________________

In welcher Zeile erscheint die Fehlermeldung?
Wie lautet sie konkret?

Die erscheint in keiner Zeile, die Fehlermeldung kommt, wenn ich auf den Button drücke, der das Makro ausführt.

Dann kommt: "Wir konnten 'DATEIPFAD VON DATEI B"  nicht finden. Wurde das Objekt vielleicht verschoben,, umbenannt oder gelöscht?"


Alllerdings kann ich das Makro ausführen, wenn ich unter dem Reiter Ansicht, dann Makros, Makros anzeigen und dann das entsprechende Makro ausführen klicke.

Hallo,

(30.07.2017, 17:53)halihalöle schrieb: [ -> ]Die erscheint in keiner Zeile, die Fehlermeldung kommt, wenn ich auf den Button drücke, der das Makro ausführt.

ändere das zugewiesene Makro des Buttons mit Rechtsklick auf den Button, Makro zuweisen.

Gruß Uwe

Ich lasse es mal durchstrichen stehen.
Nun, dann werden in Formeln wohl Verknüpfungen auf andere Dateien sein, die durch das Umbenennen gecrasht sind.
Ohne Datei bleibt es aber beim Raten.

Gruß Ralf

Ahh okay. Ja das ist der Fehler mit der falschen Zuweisung des Makros. Vielen Dank!