Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1836to1840
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1836to1840
1836to1840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen ob Datei geöffnet und schließen

Prüfen ob Datei geöffnet und schließen
14.07.2021 18:12:00
Martin
Hallo liebes Forum =)
gibt es eine Funktion, wie ich prüfen kann, ob ich eine Datei Filename ="test.xlsb" offen habe und diese dann ggf. ohne zu speichern schließen kann?
Ich versuche mir gerade dadurch zu helfen, dass ich die Strings Filename, Tabname und ControlFile (datei mit Makro) fülle,
und dann die Datei versuche zu aktivieren; Nachteil, wenn die Datei nicht bereits offen ist, gibt es einen Fehler.
Selbst wenn die Datei offen ist schreibt es irgendwie in die Datei mit dem Makro im Vordergrund, statt in der Datei filename in den tab tabname (andere Datei).
Bin ratlos... vielleicht erstmal Zeit Pasta zu machen *lach*
Vielen vielen lieben Dank für eure Tipps, was schief gegangen ist und wie ich das Ursprungsproblem lösen kann.
lg Martin
QuelleNameLaden
Windows(Filename).Activate
Worksheets(Tabname).Activate
MsgBox Tabname & " " & Filename
Worksheets(Tabname).Cells(1, 1).Value = Now

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

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob Datei geöffnet und schließen
14.07.2021 18:30:31
Martin
Mit Google konnte ich eine Lösung zusammenkopieren.
Bleibt die Frage, wieso ich nicht in der Lage war in die Datei zu schreiben und sie sichtbar in den Vordergrund zu ziehen?!
Dankeschön =) =) =)
QuelleNameLaden
Dim Offen As Boolean
Dim WoDatei As Workbook
For Each WoDatei In Workbooks
If WoDatei.Name = Filename Then
MsgBox "Datei ist schon geöffnet!"
Offen = True
Windows(Filename).Activate
ActiveWorkbook.Close SaveChanges:=False
Exit For
End If
Next
If Offen = False Then
MsgBox Filename & " ist geöffnet!"
End If
AW: Prüfen ob Datei geöffnet und schließen
14.07.2021 18:46:29
Martin
p.s. ist Filename minimiert, kann schreibt es nicht rein (Code siehe unten). Ist nur eine andere Datei im Vordergrund geht es....
Wieso es trotzdem auch mal in die Datei mit dem Makro (ControlFile) geschrieben hat, bin ich ratlos.
Wie sollte ich stattdessen die Datei aktivieren und mit ihr interagieren?
Dankeschön und einen schönen Abend euch allen noch.
Windows(Filename).Activate
Worksheets(Tabname).Cells(2, 5).Value = "nun aber Essen"
Habe ich diese Zeile noch dabei, schließt es trotz des Minimierens, obwohl es nicht den Text reinschreibt, also nicht aktiv ist?!....
Hoffe ich nutze nur einen falschen Befehl....
ActiveWorkbook.Close SaveChanges:=False
Anzeige
AW: Prüfen ob Datei geöffnet und schließen
14.07.2021 19:08:20
Yal
Hallo Martin,
lege die Prüfung in einer separate Function, um deren Ergebnis abrufen zu können:

Private Function IstWorkbook_offen(Dateiname As String) As sboolean
Dim W As Workbook
For Each W In Workbooks
If StrComp(W.Name, Dateiname, vbTextCompare) Then
IstWorkbook_offen = True
Exit Function 'weiter Prüfung unnötig
End If
Next
End Function
Dann kannst Du die Prüfungsfunktion aufrufen:

Sub Daten_reinschreiben()
Const cDatei = "testdatei.xlsx"
If IstWorkbook_offen(cDatei) Then
Workbooks(cDatei).Worksheets(Tabname).Cells(2, 5).Value = "nun aber Essen"
End If
End Sub
Da "IstWorkbook_offen" True oder False liefert, musst Du nicht IstWorkbook_offen(cDatei) = True auswerten.
Workbooks werden nicht mit Windows() angesprochen, sondern als Workbooks(NameDesWB). Es gibt einen Workbook-Objekt zurück, worauf man die Aktion machen oder machenlassen kann.
Deutsche Bezeichnung für Sub/Function oder Variablen helfen schneller zwischen VBA-native Ausdrücke und eigene zu unterscheiden (ok: es ist nur meine Meinung ;-)
VG
Yal
Anzeige

306 Forumthreads zu ähnlichen Themen

Makro prüft ob Datei vorhanden ist.
Peter

Hallo!
Ich bin wirklich ratlos: in meinem Sheet wird eine spezielle Schriftart verwendet. Das Sheet wird leider nur dann leserlich angezeigt, wenn die Schriftart installiert ist. Deshalb soll ein Makro prüfen, ob die Datei "Grafikfonds.TTF im folgenden Ordner vorhanden ist C:\WINDOWS\Fonts\...
28.12.2008 01:46:00
Thread-ID: 1035513
3 Beiträge
Anzeige
Prüfen ob Zelle vorhanden...
pervenches

Guten Tag
Diese Formel sollte überprüfen, ob die Zelle "Erfolg" mit Inhalt "2" vorhanden ist und falls ja den entsprechenden Wert ausgeben. Falls diese Zelle nicht vorhanden ist sollte Sie den Wert von "G1" ausgeben. Die Zelle ist nicht immer vorhanden, da es sich um eine Pivot-Tabelle han...
09.09.2009 09:02:19
Thread-ID: 1101377
5 Beiträge
Prüfen ob Datei vorhanden
Marcus

Hallo,
kann mir jemand sagen, wie folgender Code aussehen muss:
Prüfen ob eine Datei, die ich als Bild in Excel mit VBA einfügen möchte, vorhanden ist.
If Dir(K:\Modelle Zeichnungen\Sal\Bilder TIF\...001.TIF) "" Then
Allerdings steht die Pfadangabe in der Zelle H2, da es verschi...
15.10.2009 07:05:26
Thread-ID: 1109751
2 Beiträge
Anzeige
Prüfen ob Schaltfläche vorhanden
walli

Guten Tag,
ALLEN ein frohes Weihnachtsfest !
Ich habe mal gestöbert und dies gefunden.
Ich möchte nur prüfen ob ein Schaltfläche mit der Nummer 10 vorhanden ist, das klappt so nicht.
Dim shShape As Shape
For Each shShape In Worksheets("Test").Shapes
If shShape.Name = "Sc...
25.12.2009 15:52:15
Thread-ID: 1125912
7 Beiträge
Prüfen ob Tabellen vorhanden
Kurt

Guten Morgen,
wünsche allen ein gesundes neues Jahr !
Danke für die bisherige Unterstützung !
Frage:
Ich habe eine Datei mit Tabellen die mit Monatsnamen hinterlegt
sind. (MMM)
Ich möchte prüfen ob ein Monat fehlt.
mfg Kurt P
05.01.2010 09:31:14
Thread-ID: 1127179
7 Beiträge
ControlPopup prüfen ob 2 mal vorhanden
marco

Hallo Kollegen,
Habe momentan ein problem mit der abfrage ob das popup vorhanden ist. Obwohl in der Menueleiste das Popup mit dem Namen "PT-Tool" vorhanden ist.
Popup wird ertellt.
Public Sub prcCreateButton() Dim myCommandBar As CommandBar Dim myCommandBarPopup As CommandBarContro...
28.01.2010 17:44:30
Thread-ID: 1133863
3 Beiträge
prüfen ob versch. Ziffern in Zellen vorhanden sind
Heinz

Hallo Excellenten,
viele Grüße an Alle an an diesem (im Süden) sonnigen Tag.
Mein Problem: Ich habe eine Spalte mit folgenden Zellen:
A1: 1;0000000 9; 10;000 14;00000000 23;0 25;0 27; 28; 29;0
A2: 00000000 9;00000000000000 24; 25;00000
A3: 00 3;0000000000000000 27;000
A...
08.04.2010 21:26:15
Thread-ID: 1150683
4 Beiträge
Überprüfen ob Tabellenblatt vorhanden ist
Ingo

Hallo zusammen,
hab folgendes Problem. Ich öffne nacheinander verschiedene Dateien um bestimmte Zellen auszulesen.
Wenn in der geöffneten Datei das Tabellenblatt mit dem Namen "Motor" nicht vorhanden ist sollen die nachfolgenden Schritte nicht bearbeitet werden. Irgendwie klappt das bei...
20.04.2010 11:44:29
Thread-ID: 1152802
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
4
1
5
6
6
2
3
2
3
3
2
4
6
6
3
3
2
3
3
3
7
4
4