Registriert seit: 17.07.2017
Version(en): Office 2013
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!
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
(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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 17.07.2017
Version(en): Office 2013
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
__________________________________________________________________________
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
30.07.2017, 16:51
(Dieser Beitrag wurde zuletzt bearbeitet: 30.07.2017, 16:52 von RPP63.)
In welcher Zeile erscheint die Fehlermeldung?
Wie lautet sie konkret?
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 17.07.2017
Version(en): Office 2013
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.
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
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
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
30.07.2017, 18:00
(Dieser Beitrag wurde zuletzt bearbeitet: 30.07.2017, 18:01 von RPP63.)
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 17.07.2017
Version(en): Office 2013
Ahh okay. Ja das ist der Fehler mit der falschen Zuweisung des Makros. Vielen Dank!