VBA Fehlermeldung Datei nicht vorhanden?

Hallo zusammen,

ich habe folgendes Problem in meinem VBA Code in Excel. Aktuell öffne ich eine automatisch erstelle Excel Datei und kopiere deren Inhalt in meine Hauptdatei. Nach dem die Daten fertig kopiert wurden, nutze ich die Kill Funktion um die Datei zu löschen (dies funktioniert auch). Nach dem Kill Befehl, habe ich eine Msgbox die ausgibt dass alles funktioniert hat. Sobald ich jedoch in der Msgbox auf okay klicke, kommt eine Fehlermeldung, dass Excel die gelöschte Datei nicht mehr finden kann. Ich vermute es liegt daran, dass im im VBA Studio die Datei noch in den geöffneten Dateien angezeigt wird. Weiß jemand wie man die daraus entfernt?

Danke im voraus.

1 Antwort

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

VBA

22.05.2022, 20:52

Eine "geöffnete" Datei zu löschen ist nicht zu empfehlen. Datei erst schließen, dann löschen. Ggf wird aber auch im Folge Code nach dem Msgbox OK noch auf die Datei zugegriffen. Dies dann abändern.

Ähnliche Beiträge

Mit Excel VBA bestimmte Zeilen in anderes Tabellenblatt kopieren?

Hallo zusammen!

Wie schaffe ich es in Excel mithilfe von VBA eine bestimmte Zeile, welche in der ersten Spalte mit einem Index (1.1, 1.2 ...) gekennzeichnet wurde, durch die Angabe des Indexes die genaue Zeile in mein anderes Tabellenblatt zu kopieren.

Ich gebe also zum Beispiel im Tabellenblatt 2 in die erste Spalte "1.2" ein und es kopiert automatisch die mit "1.2" gekennzeichnete Zeile aus dem Tabellenblatt 1 in das Tabellenblatt 2.

Vielen Dank schonmal

...zum Beitrag

Excel Arbeitsmappe separat speichern mit VBA?

Hallo,

habe bei meiner Exceldatei 10 Arbeitsmappen und ich möchte eine Arbeitsmappe davon separat als Datei abspeichern sodass ich unten nur mehr eine Arbeitsmappe stehen habe.

Habe mir hierfür einen einen Knopf erstellt und mit VBA den Knopf programmiert. Wenn ich ihn drücke, dann habe ich es bereits geschafft, dass die Mappe sich als PDF exportiert aber als Excel ist nicht möglich. Hier ist mein Code:

Sub EXCEL_erstellen()

Dim DateiName As String

DateiName = Range("AB3") & Range("AB2")

Range("A1:T61").ExportAsFixedFormat Type:=xlTypeXPS, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

...zum Beitrag

Excel VBA eine Datei öffnen, andere Datei auch öffnen?

Ich habe in Excel zwei Dateien. Nennen wir Sie A und B.

Wenn ich A öffne, erscheint beim öffnen eine msgbox in der ich gefragt werde, ob ich auch B öffnen will. Drücke ich Yes wird auch B geöffnet.

Private Sub Workbook_Open()

Dim a As Integer

a = MsgBox("B.xlsm auch öffnen?", vbYesNo)

If a = vbYes Then

Workbooks.Open "C:\Users\...\B.xlsm"

Workbooks("A_.xlsm").Activate

End If

End Sub

Das selbe habe ich auch für B erstellt. D. h. ich öffne B und werde gefragt ob ich A öffnen will. Gehe ich auf Yes wird auch A geöffnet.

Soweit klappt alles. Allerdings:

Öffne ich z. B. A, dann werde ich nach B öffnen gefragt, klicke ich auf Yes wird B geöffnet und A aktiviert. Allerdings erscheint mir nun, da B geöffnet wird nochmal die Msgbox mit a = MsgBox("A.xlsm auch öffnen?", vbYesNo). Dies hatte ich ja so festgelegt, falls B geöffnet wird. Allerdings ist dies unsinnig, da A ja bereits offen ist.

Wie kann ich diese zweite MSGbox unterdrücken? D.h. ich öffne A, drücke Yes, B wird geöffnet. Nun soll das Ereignis Private Sub Workbook_Open() für B nicht ausgeführt werden, damit die msgbox ob ich A auch öffnen will nicht erscheint.

MFG

...zum Beitrag

xCopy auf Netzlaufwerk Unzulässige Parameteranzahl?

Hallo,

Bei mir funktioniert der xCopy-Befehl in Verbindung mit einem Netzlaufwerk nicht.

In der Eingabeaufforderung nicht:

In einer Batch-Datei auch nicht:

______________________________________________________________________________

als Fehlermeldung kommt:

Der Befehl wurde erfolgreich ausgeführt.

Unzulässige Parameteranzahl
0 Datei(en) kopiert

Hat jemand eine Idee an was das Liegt?

Danke im voraus ; )

...zum Beitrag

Wenn ich eine Excel-Datei öffne, so soll diese IMMER als Schreibgeschützt geöffnet werden, ohne einer Nachfrage beim öffnen. Geht das?

Gerne auch eine Lösung per VBA.

...zum Beitrag

Excel: Zahl wird beim Kopieren automatisch als Text dargestellt. Fehlermeldung?

Liebe Community,

ich brauche eure Hilfe. Folgende Situation:

Excel holt sich aus einer geschlossenen Excel Datei alle Daten und kopiert diese in die offene Excel Datei in eine Tabelle. Das funktioniert soweit ganz gut, dank VBA.

Komischerweise macht er bei Zahlen die Formatierung als Text. Ergo, es kommt zum Fehler, siehe Bild unten. In der Kategorie "Fahrzeug" sind alle Einträge mit der Fehlermeldung bestückt.

Wenn ich nun die ganze Spalte markiere und oben die Formatierung ändern möchte, dann passiert leider nichts. Die Fehlermeldung bleibt. Text -> Zahl

Ich muss auf die Fehlermeldung klicken und dann dort den Befehl geben, den Wert in eine Zahl umzuwandeln. Dann funktioniert das alles einwandfrei.

Die Daten werden jedoch durch ein weiteres Makro auf Ihre nächste Reise geschickt, daher ist die Option die Spalte manuell anzuklicken und die Fehlermeldung zu beseitigen keine Option auf Dauer.

Des Weiteren arbeite ich noch mit der Funktion: „Bedingte Formatierung“ in anderen Tabellenblättern. Dort wird zwar die Zahl hineinkopiert, wenn diese jedoch nicht als "Zahl" deklariert ist, kann Excel die bedingte Formatierung wie z. B. farbliche Hervorhebung bestimmter Zahlengruppen nicht ordnungsgemäß ausführen.

Ich hoffe auf schnelle Hilfe. Danke :o)

...zum Beitrag

VBA Skript um Daten von einer Excel-Datei in eine andere zu kopieren?

Hallo,

ich habe zwei Excel Dateien. Mit Adressdaten. Das VBA-Skript soll die erste Excel-Datei Zeile für Zeile iterieren und in der zweiten Excel-Datei nach Adressen suchen die gleich sind.

Wird in der zweiten Datei die Adresse aus der ersten Datei gefunden, soll ein weiterer Wert von der zweiten Datei in die erste Datei rüber kopiert werden.

Wichtig wäre mir dabei, dass das Skript in der ersten Excel-Mappe ausgeführt wird, und dass die zweite Excel-Datei gar nicht erst geöffnet wird.

Ich habe schon sehr viel programmiert - aber bisher noch nie etwas in VBA. (und ich komme mit VBA nicht so ganz klar)

Daher wollte ich fragen, ob hier jemand ein Skript hat oder kennt, das etwas ähnliches macht, so dass ich es mir ein bisschen abgucken kann. (Prinzipiell ist das ja ein Problem, das sicherlich häufiger auftritt)

...zum Beitrag

Wie erstelle ich in VBA eine MsgBox mit Ja-Nein-Abfrage?

Benötige folgenden VBA Befehl, den ich leider nicht zusammengebastelt bekomme... Wenn in Zelle D15 der Wert "LK" auftaucht, dann MsgBox mit "beliebiger Fragestellung" -> wenn ja, dann Exit und wenn nein, dann "beliebiger Text" anschließend Exit

...zum Beitrag

Excel / VBA zur vorherigen aktiven Zelle springen?

Hallo,

folgende Logik soll umgesetzt werden:

Wenn Zelle A1 angeklickt wird, dann springe zur letzten aktiven Zelle im aktiven Tabellenblatt.

Habe im Internet "ActiveCell.Previous.Select" diesen Befehl gefunden, jedoch denke ich, dass es nicht dafür ist.

Hat jemand eine Idee wie ich dies umsetzen kann?

...zum Beitrag

Makro mit VBA in Excel zerschossen, brauche dringend Hilfe!?

Hallo zusammen,

vorab schonmal, nein ich habe hier absolut 0% Ahnung hiervon und brauche dringend Hilfe!

Ich habe auf der Arbeit bei einer wichtigen Excel Datei eine neue Spalte eingefügt, was dafür gesorgt hat, dass eine wichtige Spalte rechts davon weiter nach rechts verschoben wurde um eine Zelle.

In dieser Spalte wurden Enddatum eingetragen und diese wurden mit einem Makro über VBA Absteigend von jüngerem Datum oben, nach späteren Datum nach unten hin sortiert.

Nachdem ich die neue Spalte zugefügt habe, funktionierte eins nach dem anderen nicht mehr richtig und ich war so dumm zu versuchen das Makro minimal anzugleichen, sodass es funktioniert und habe es dann getestet.

Dadurch habe ich es nur schlimmer gemacht...

Zudem kann ich jetzt nicht mal mehr in der Tabelle scrollen, zumindest in diesem Reiter, in einem anderen Reiter unten, kann ich scrollen in der Datei.

Der Text in VBA Stand jetzt:

Sub Sortieren()

' Sortieren Makro

Rows("3:500").Select

Range("B3").Activate

ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Add Key:=Range( _

"H4:Hl34"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

With ActiveWorkbook.Worksheets("Übersicht").Sort

.SetRange Range("A3:L500")

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

ActiveWindow.SmallScroll Down:=3

ActiveSheet.Range("$A$3:$L$97").AutoFilter Field:=12, Criteria1:="="

ActiveWindow.SmallScroll Down:=-12

End Sub

...zum Beitrag

Hilfe bei Excel Makro das gefilterte Daten in eine andere Excel Datei kopieren soll?

Hallo, ich benötige ihre Hilfe bei der Erstellung eines VBA Makros für Excel. Das Makro soll folgendes leisten: Ich habe eine Excel Datei (Nr. 1) in der in einer Zelle ein Wert eingetragen wird. Nach diesem Wert soll dann in einer anderen Excel Datei (Nr. 2) gefiltert werden und anschließend sollen die gefilterten Daten aus Excel Datei Nr. 2 in die Excel Datei 1 kopiert werden. Ist das möglich?

Vielen Dank vorab für ihre Antworten.

...zum Beitrag

Excel VBA: Wie Inhalt einer Zelle in einer Msgbox anzeigen?

Meine ersten Schritte nach 20 Jahren Pause. Ich will etwas tun, wenn eine Zelle den Text "crash" enthält. Welche Eigenschaft der Zelle ist der Text (VBA)?

...zum Beitrag

Wie kopiert Excel in VBA eine Zeile in ein anderes Tabellenblatt in die NÄCHSTE LEERE ZEILE?

Hi,

ich habe eine Frage zu Excel VBA!

Da ich mich nicht besonders gut auskenne, werde ich ein Makro erstellen welches die ganze Zeile einfach in ein anderes Tabellenblatt kopiert. Dieses Makro möchte ich dann so ändern, dass die kopierte Zeile im anderen Tabellenblatt, in dem sie eingefügt werden soll, in die nächste LEERE Zeile eingefügt wird. Könnt ihr mir bitte schreiben, wie dieser Befehl heißt, bzw. was ich machen muss?

Und noch eine Frage:

Kann man Makros via Wenn-Funktion ansprechen, wenn ja, wie?

Danke für die Antworten schon im Voraus!

...zum Beitrag

Wie erreiche ich, dass eine VBA-MsgBox nur einmal aufpoppt?

Ich habe schon mehrere Beiträge gelesen, bekomme es aber nicht hin. Kann mir einer diesen Befehl korrigieren. Die Msg Box soll nur einmal aufpoppen, wenn dieser bestimmte Wert auftaucht. Der Befehl funktioniert, aber poppt bei jeder weiteren Zelleingabe auf.

Private Sub Worksheet_Change(ByVal Target As Range)
 x = Range("D15").Value
 If x = "LK" Then MsgBox "Dieses Produkt benötigt eine  Lebensmittelkühlung!", vbInformation, "Hinweis" 
End Sub

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen