Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1244to1248
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
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro soll prüfen ob bestimmte Datei geöffnet ist

Makro soll prüfen ob bestimmte Datei geöffnet ist
Leif
Hallo und frohes neues Jahr!
Ich möchte gerne in einem Makro, was eine neue Excel-Datei mit dem Namen "Preisliste" generiert, vorab prüfen, ob diese Datei bereits geöffnet ist.
Ist dies der Fall, so soll eine MsgBox geöffnet werden, in der steht das die Datei "Preisliste" vor der Generierung geschlossen werden muss.
Ist die Datei nicht geöffnet so soll das Makro einfach die Datei "Preisliste" generieren.
Kann mir jemand bei dem Code helfen?
Beste Grüße
Leif

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

Betreff
Benutzer
Anzeige
AW: Makro soll prüfen ob bestimmte Datei geöffnet ist
02.01.2012 13:21:43
Rudi
Hallo,
eine Möglichkeit: 
Sub xxx()
If WBOpen("Preisliste.xls") Then
MsgBox "Preisliste erst schließen!", , "Hinweis"
Exit Sub
Else
'Liste generieren
End If
End Sub


Function WBOpen(strWB) As Boolean
Dim wb As Workbook
On Error GoTo ErrHandler
Set wb = Workbooks(strWB)
WBOpen = True
ErrHandler:
End Function

Gruß
Rudi
AW: Makro soll prüfen ob bestimmte Datei geöffnet ist
02.01.2012 13:58:49
Leif
Hallo Rudi,
Ich bekomm das noch nicht hin. Ich hab dir mal den Quelltext hinzugefügt. Kannst du mir bitte nochmal helfen.
Gruß Leif
Sub Preisliste()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Dim objWbNew As Workbook
Set objWbNew = Workbooks.Add
'Neue Mappe erstellen
With objWbNew
With .Sheets(1)
.Range("A1") = "Position"
.Range("B1") = "NB Nr."
.Range("C1") = "Stück"
End With
'Formatieren Querformat und Skalierung 65%
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = ""
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.Draft = False
.Zoom = 65
End With
Application.PrintCommunication = True
'kopieren der erforderlichen Werte
'Kopieren der NB-Nummer
ThisWorkbook.Activate
Sheets("Bearbeitung Pos.").Range("A15").Select
Range(Selection, Selection.End(xlDown)).Copy
.Sheets(1).Range("B2").PasteSpecial xlValues
'Kopieren von Stückzahl
ThisWorkbook.Activate
Sheets("Bearbeitung Pos.").Range("C15").Select
Range(Selection, Selection.End(xlDown)).Copy
.Sheets(1).Range("C2").PasteSpecial xlValues
'Einige Formatierungen
With .Sheets(1)
.Range("A2").Value = "1"
.Range("A3:A" & .Cells(Rows.Count, 4).End(xlUp).Row).Formula = "=1+R[-1]C"
.Columns("A:A").HorizontalAlignment = xlLeft
.Columns("C:C").HorizontalAlignment = xlLeft
.Range("A1:C1").Font.Bold = True
.Range("A1").AutoFilter
Application.ScreenUpdating = True
End With
Range("A2").Select
'Fenster fixieren und 80% Zoom.
.Sheets(1).Activate
With ActiveWindow
.SplitRow = 1
.FreezePanes = True
End With
ActiveWindow.Zoom = 80
'speichern
'.SaveAs Filename:="C:\Dokumente und Einstellungen\" & Environ("Username") & "\Desktop\ _
Preisliste.xlsm"
Application.DisplayAlerts = False 'Warnungen ausschalten
.SaveAs Filename:="C:\Dokumente und Einstellungen\" & Environ("Username") & "\Desktop\ _
Preisliste.xlsx"
Application.DisplayAlerts = True  'Warnungen einschalten
.Close
MsgBox ("Die Datei ""Preisliste"" wurde auf ihrem Desktop gespeichert!")
End With
'Schützt das Tabellenblatt wieder.
ThisWorkbook.Activate
ActiveSheet.Protect
End Sub

Anzeige
AW: Makro soll prüfen ob bestimmte Datei geöffnet ist
02.01.2012 14:24:00
Rudi
Hallo, 
Sub PL_erstellen()
If WBOpen("Preisliste.xls") Then
MsgBox "Preisliste erst schließen!", , "Hinweis"
Exit Sub
Else
Preisliste
End If
End Sub

Function WBOpen(strWB) As Boolean
Dim wb As Workbook
On Error GoTo ErrHandler
Set wb = Workbooks(strWB)
WBOpen = True
ErrHandler:
End Function

Gruß
Rudi

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
7
4
4
4