Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1732to1736
1732to1736
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

In einer Datei eine Datei schliessen und löschen

Forumthread: In einer Datei eine Datei schliessen und löschen

In einer Datei eine Datei schliessen und löschen
12.01.2020 17:34:10
speednetz
Hallo,
Ich brauche mal eure Hilfe
Ich möchte in einem Makro eine Datei schließen, und diese dann löschen.
Es soll vorher geprüft werden ob die Datei offen ist, wenn ja soll sie geschlossen werden.
Mit folgender Zeile wird die Datei geschlossen. Aber läuft so nicht weiter wenn Datei schon geschlossen ist
Workbooks("Kopie.xlsm").Close SaveChanges:=False
Als nächstes soll die geschlossene Datei gelöscht werden, wenn die Datei vorhanden ist. Wenn nicht vorhanden dann soll das Makro weiterlaufen.
Die Datei hat den Namen Kopie.xlsm
Ich habe diesen Code gefunden, der alleine auch läuft und die Datei löscht aber nicht in meinem Makro.
Sub Test()
Dim sDatei As String
sDatei = "C:\Users\speed\Desktop\Rechnungen\Kopie.xlsm"
If Dir(sDatei)  "" Then
Kill sDatei
End If
End Sub
Hier sollte der Pfad mit ThisWorkbook.Path & "\Kopie.xlsm noch geändert werden.
In nachfolgendem Code sollte es dann laufen
Sub Makro1()
' Makro1 Makro
Pfad = ThisWorkbook.Path
Workbooks.Open Pfad & "\Rechnungsprogramm.xlsm"
ActiveSheet.Unprotect
Workbooks("Kopie.xlsm").Close SaveChanges:=False
Range("B41:F57").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=30
Range("C23").Select
Selection.ClearContents
Range("C24").Select
Selection.ClearContents
Range("C25").Select
Selection.ClearContents
Range("C26").Select
Selection.ClearContents
Range("F28").Select
Selection.ClearContents
Range("G28").Select
Selection.ClearContents
Range("C30").Select
Selection.ClearContents
Range("C59").Select
Selection.ClearContents
Range("C67").Select
Selection.ClearContents
Range("C70").Select
Selection.ClearContents
Range("B23").Value = "Anrede:"
Range("B24").Value = "Name:"
Range("B25").Value = "Straße:"
Range("B26").Value = "PLZ-Stadt:"
Range("B30").Value = "mail:"
Range("A59").Value = "Erklärung:"
Range("A67").Value = "Rechn. = Lieferd."
Range("A70").Value = "Zahlbar:"
ActiveSheet.Range("C23").Interior.ColorIndex = 6
ActiveSheet.Range("C24").Interior.ColorIndex = 6
ActiveSheet.Range("C25").Interior.ColorIndex = 6
ActiveSheet.Range("C26").Interior.ColorIndex = 6
ActiveSheet.Range("C30").Interior.ColorIndex = 6
ActiveSheet.Range("F28").Interior.ColorIndex = 6
ActiveSheet.Range("G28").Interior.ColorIndex = 6
ActiveSheet.Range("F30").Interior.ColorIndex = 6
ActiveSheet.Range("G30").Interior.ColorIndex = 6
ActiveSheet.Range("C60").Interior.ColorIndex = 6
ActiveSheet.Range("C60").Interior.ColorIndex = 6
ActiveSheet.Range("F64").Interior.ColorIndex = 6
ActiveSheet.Range("C70").Interior.ColorIndex = 6
Sheets("Rechnungsformular").Range("F64").Value = "19%"
ActiveSheet.Protect
Range("C23").Select
End Sub
Danke schon mal für eure Hilfe
Gruß speednetz
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In einer Datei eine Datei schliessen und löschen
12.01.2020 17:39:55
Hajo_Zi
prüfen ob offen. 
Prüfen ob Datei schon offen
Private Sub Workbook_Open()
Dim BoOffen As Boolean
Dim WoDatei As Workbook
For Each WoDatei In Workbooks
If WoDatei.Name = "test.xls" Then
MsgBox "Datei ist schon geöffnet!"
BoOffen = True
Exit For
End If
Next
If BoOffen = False Then
MsgBox "Test wird automatisch geöffnet!"
Workbooks.Open Filename:="C:\Eigene Dateien\Test.xls"
End If
End Sub

Anzeige
AW: In einer Datei eine Datei schliessen und löschen
13.01.2020 11:18:12
speednetz
Hallo Hajo
Danke erst mal für deine Hilfe.
Ich glaube ich habe mein Problem nicht richtig formuliert.
Ich versuche es mal anders zu beschreiben.
Mit der folgenden Zeile kann ich die Datei Kopie.xlsm wenn sie geöffnet ist schließen.
Workbooks("Kopie.xlsm").Close SaveChanges:=False
Dieses läuft auch so lange in meinem Makro wie diese Datei offen ist.
Wenn aber die Datei nicht geöffnet ist, dann bleibt das Makro stehen.
Und er schreibt mir Laufzeitfehler 9
Index außerhalb des gültigen Bereiches
Das Problem:
Das Makro muss auch weiterlaufen, wenn die Datei Kopie. Xlsm geschlossen ist.
Ich habe noch mal ein verkürztes Makro ein gestellt.
Ich hoffe das Ich es ein bisschen verständlicher erklären konnte.
Sub Makro1()
' Makro1 Makro
Pfad = ThisWorkbook.Path
Workbooks.Open Pfad & "\Rechnungsprogramm.xlsm"
ActiveSheet.Unprotect
Workbooks("Kopie.xlsm").Close SaveChanges:=False
Range("B41:F57").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=30
Range("C23").Select
Selection.ClearContents
Range("C24").Select
Selection.ClearContents
Range("C25").Select
Sheets("Rechnungsformular").Range("F64").Value = "19%"
ActiveSheet.Protect
Range("C23").Select
End Sub
Wäre schön, wenn man mir helfen könnte.
Gruß
speednetz
Anzeige
AW: In einer Datei eine Datei schliessen und löschen
13.01.2020 16:53:52
Hajo_Zi
Gut meine Lösung prüfen ob Offen gefällt Dir also nicht.
Viel Erfolg noch.
Gruß Hajo
;

Forumthreads zu verwandten Themen

Umwandlung einer Excel-Datei in eine Textdatei.
Peter

Sehr geehrte Damen und Herren,
Sie haben mir bereits schon einmal mit der Umwandlung einer Excel- in eine Textdatei geholfen. Leider gibt es sehr "pingelige" Programme, die Textdateien mit einer sehr genauen Formatierung erfordern. Ich habe Ihnen eine Datei hochgeladen, in welcher die Anspr...
13.07.2009 21:08:12
Thread-ID: 1088323
4 Beiträge
Fenster zum öffnen einer Datei
Patrick

Hallo zusammen,
ich habe per Rekorder eine Datei geöffnet. Leider schreibt der Rekorder genau diesen Dateinamen in das VBA-Programm.
1. Frage: Wie kann ich es hinbekommen, dass nur das Fenster geöffnet wird, der User dann die richtige Datei flexibel auswählt und dann das Programm fortge...
30.07.2009 07:57:35
Thread-ID: 1092399
12 Beiträge
Fehler beim öffnen einer erstellen Datei
k

Hallo,
wenn ich per Makro einen Auszug aus einer Mappe (einzelne Blätter werden in eine Neue Kopiert) mache und dieser dann einen Namen gebe wie folgt:
ActiveWorkbook.SaveAs SavePath & ADM & "_Daten_" & Date & "_" & Format(Time, "hh_mm_ss") & ".xls" 'Speichert d...
03.08.2009 10:17:53
Thread-ID: 1093141
4 Beiträge
makro - datei mit variabler Datum öffnen
meixner

Hallo zusammen,
brauche ein Makro, daß eine Datei automatisch öffnet, deren Datum sich quartalsweise ändert!
Datei = "I:\99\8801\FM\IA files \Fondsbestand_20090907"
Datei heißt im Dez. aber Fondsbestand_20091207. Kann ich das Datum irgendwie variabel anlegen?
mit Datei = "I:\99\...
03.10.2009 21:02:11
Thread-ID: 1107038
2 Beiträge
WORD-Datei in EXCEL-Datei umwandeln
Werner

Excel-Level: befriedigend
Hallo Freunde,
habe mal ein Frage, die sich auf Excel und Word zugleich bezieht: Was muss man tun, um ein mit WORD
erstelltes Manuskript, also eine Word-Datei, in eine Excel-Datei umzuwandeln. Die hier zur Debatte stehende WORD-Datei ist wie
folgt auf...
22.10.2009 14:24:46
Thread-ID: 1111301
7 Beiträge
Makro zum öffnen von Dateien
Dateien

Hallo zusammen,
ich habe ein kleines Problem das sich aber sicherlich mit euerer Hilfe lösen lässt. Bitte nehmt bei euren Antworten aber Rücksicht darauf, daß ich von Makros bisher überhaupt keine Ahnung habe. - Also bitte erklärt es für dumme (damit auch ich es verstehe ;-) ).
Ich habe...
22.11.2009 12:05:42
Thread-ID: 1119129
2 Beiträge
vor Einfügen einer csv-Datei Dateidatum prüfen | Herbers Excel-Forum
Jürgen
Hallo Excel - Forum,
habe ein Problem - schätzungsweise ein kleines - was ich durch Recherche nicht lösen konnte. Vielleicht könnt Ihr mir hier helfen:
Ich habe eine offene Arbeitsmappe in die ich eine csv-Datei einlesen möchte. Das ist soweit kein Problem. Ich möchte aber gerne, dass vor d...
14.01.2010 13:51:17
Thread-ID: 1129903
3 Beiträge
Makro Frage beim Öffnen von pdf Dateien verhindern
pdf

Hallo Herber Fans,
ich baue gerade an einem Code, der den Wert der ActiveCell als Dateinamen annimmt und aus einem vorgegebenen Pfad die Datei öffnen soll. Wenn keine Dateiendung angegeben ist, werden alle gängigen Endungen durchgeloopt. Bei .pdf Dateien habe ich nun das Problem, daß die Fr...
15.01.2010 17:42:31
Thread-ID: 1130350
3 Beiträge
Wenn Datei offen keine weitere Datei öffnen
Thomas

Hallo,
ich habe aufgrund einem sehr eigenartigen Problems und aus Performance Gründen die Idee ob es wohl möglich ist per VBA Excel anzuweisen das wenn diese Datei geöffnet ist, keine weiteren Dateien zu öffnen, also das es irgendwie gesperrt ist.
Mein Problem siehe: https://www.herber....
30.04.2010 11:41:22
Thread-ID: 1154543
3 Beiträge
Excel - Datei von Website öffnen
Website

Hallo zusammen,
möchte eine Excel - Datei von einer Website aus aufrufen per Makro.
Das untere klappt leider nicht.
Sub iShares_allinOne_equities()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim mappe5...
28.07.2010 12:04:57
Thread-ID: 1169280
2 Beiträge
Beim Öffnen der Datei Daten löschen
Sophie

Hallo Leute,
und zwar habe ich ein Makro geschrieben, dass alle Zeilen löschen soll. Wenn ich dieses ausführe dann löscht es mir auch alle Zeilen. Ich möchte aber das dies beim Öffnen der Datei geschieht, da passiert jedoch nichts. Hat jemand einen Tipp?
Sub ZeilenLöschen()
lastRowA...
19.08.2010 15:40:58
Thread-ID: 1173140
6 Beiträge
Anzeige
Öffnen von Excel Dateien von anderer Sprachversion
Excel

Hallo liebes Forum,
wenn ich versuche eine Excel Datei, welche mit einer anderen Sprachversion von Excel erstellt wurde zu öffnen, bekomme ich folgende Fehlermeldung:
"Excel ist auf einen Fehler gestoßen und musste einige Formatierungen entfernen, um eine Beschädigung der Arbeitsmappe...
03.10.2010 09:27:53
Thread-ID: 1179885
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige