Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1456to1460
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
1456to1460
1456to1460
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 (asugeblendet) ist

Prüfen, ob Datei geöffnet (asugeblendet) ist
15.11.2015 09:09:11
Dieter(Drummer)
Guten Morgen, VBA Spezialisten,
ich möchte prüfen, ob Datei "RechnerMx.xlsm" bereits geöffnet (ausgeblendet) ist.Wenn ja, dann weiter im Makro mit "Call Appliction …"., wenn nein Datei "RechnerMx.xlsm" öffnen und ausblenden und dann weiter im Makro:
Mein Makro:
  • 
Sub MxReStart()
Workbooks.Open Filename:="C:\General\MxDivers\RechnerMx.xlsm"
Call Application.Run("RechnerMax.xlsm!Modul1.ShowForm") 'ShowForm ruft Makro ShowForm, in  _
ausgeblendeter Datei RechnerMx.xlsm auf
End If
End Sub

    • Mit der Bitte um Hilfe.
    Gruß, Dieter(Drummer)

    13
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Prüfen, ob Datei geöffnet (asugeblendet) ist
    15.11.2015 09:44:51
    Sepp
    Hallo Dieter,
    so?
    Sub MxReStart()
    Dim objWB As Workbook, objHiddenWB As Workbook
    Dim strFile As String

    strFile = "C:\General\MxDivers\RechnerMx.xlsm"

    For Each objWB In Application.Workbooks
      If objWB.FullName = strFile Then
        Set objHiddenWB = objWB
        Exit For
      End If
    Next

    If objHiddenWB Is Nothing Then
      Set objHiddenWB = Workbooks.Open(Filename:=strFile)
      ActiveWindow.Visible = False
    End If

    Call Application.Run(objHiddenWB.Name & "!Modul1.ShowForm")  'ShowForm ruft Makro ShowForm, in _
      ausgeblendeter Datei RechnerMx.xlsm auf

    End Sub

    Gruß Sepp

    Anzeige
    AW: Kommt leider Fehler
    15.11.2015 09:59:23
    Dieter(Drummer)
    Danke Sepp für deine Rückmeldung und Code.
    Der Code bricht aber ab mit der Fehlermeldung:
    "Fehler beim kompilieren", "Syntaxfehler", in Zeile  "if objWB.FullName = strFile Then" (gelb unterlegt).
    Wo liegt der Fehler?
    Gruß, Dieter(Drummer)

    AW: Kommt leider Fehler
    15.11.2015 10:02:55
    Sepp
    Hallo Dieter,
    kann ich mir nicht vorstellen! Hast du meinen Code 1:1 übernommen?
    Sonst zeig deinen gesamten Code.
    Gruß Sepp

    AW: Jetziger Code
    15.11.2015 10:05:52
    Dieter(Drummer)
    Hi Sepp,
    hier mein jetziger Code:
  • 
Sub MxRechnerStart()
'Herber: von Sepp am 15.11.2015
Dim objWB As Workbook, objHiddenWB As Workbook
Dim strFile As String
strFile = "C:\General\MxDivers\RechnerMx.xlsm"
For Each objWB In Application.Workbooks
  If objWB.FullName = strFile Then
    Set objHiddenWB = objWB
    Exit For
  End If
Next
If objHiddenWB Is Nothing Then
  Set objHiddenWB = Workbooks.Open(Filename:=strFile)
  ActiveWindow.Visible = False
End If
Call Application.Run(objHiddenWB.Name & "!Modul1.ShowForm") 'ShowForm ruft Makro ShowForm, in _
  ausgeblendeter Datei RechnerMx.xlsm auf
End Sub

    • Gruß, Dieter(Drummer)

    Anzeige
    AW: Jetziger Code
    15.11.2015 10:09:24
    Sepp
    Hallo Dieter,
    wie lautet die Fehlermeldung?
    Gruß Sepp

    AW: Ergänzung Angabe ...
    15.11.2015 10:08:02
    Dieter(Drummer)
    ... der Code ist in PersonL.xlsb.
    Gru, Dieter(Drummer)

    AW: Fehlermeldung
    15.11.2015 10:14:30
    Dieter(Drummer)
    Hi Sepp,
    Fehlermeldung:
    "Fehler beim kompilieren", "Syntaxfehler", in Zeile "if objWB.FullName = strFile Then"
    Gruß, Dieter(Drummer)

    AW: Fehlermeldung
    15.11.2015 10:24:33
    Sepp
    Hallo Dieter,
    kann ich mir nicht erklären, hab sogar eigens eine personl.xlsm angelegt, obwohl ich nicht damit arbeite und es klappt ohne Probleme.
    Und bleib bitte mit den Antworten im Thread-Verlauf, sonst weiß man nicht, welche Antwort zu welchem Post gehört.
    Gruß Sepp

    Anzeige
    AW: Hatte einen Fehler in Dateinamen, aber
    15.11.2015 10:33:16
    Dieter(Drummer)
    Hi Sepp,
    richtiger Code und Dateiname, aber der Fehler taucht dennoch auf:
  • 
Sub MxRechnerStart()
'Herber: von Sepp am 15.11.2015
Dim objWB As Workbook, objHiddenWB As Workbook
Dim strFile As String
strFile = "C:\General\MxDivers\RechnerMax.xlsm"
For Each objWB In Application.Workbooks
If objWB.FullName = strFile Then
Set objHiddenWB = objWB
Exit For
End If
Next
If objHiddenWB Is Nothing Then
Set objHiddenWB = Workbooks.Open(Filename:=strFile)
ActiveWindow.Visible = False
End If
Call Application.Run(objHiddenWB.Name & "!Modul1.ShowForm") 'ShowForm ruft Makro ShowForm, in _
ausgeblendeter Datei RechnerMx.xlsm auf
End Sub


    • Das Makro wird über einen Button im eigenen Menüband aufgerufen.
    Gruß, Dieter(Drummer)

    Anzeige
    AW: Hatte einen Fehler in Dateinamen, aber
    15.11.2015 10:36:35
    Sepp
    Hallo Dieter,
    check im VBE unter > Extras > Verweise, ob da bei einem "Nicht vorhanden" oder so steht und wenn ja, dann mach den Haken dort raus.
    Gruß Sepp

    AW: Werde ich prüfen, muss ...
    15.11.2015 10:44:22
    Dieter(Drummer)
    ... jetzt leider weg , Sepp, und melde mich heute Nachmittag wieder.
    Erstmal Danke für deine bisherige Hilfe.
    Gruß, Dieter(Drummer)

    AW: Hier mal Haken bei ...
    15.11.2015 14:01:25
    Dieter(Drummer)
    Hi Sepp,
    hier meine Einstellungen (Haken) in VBE, Verweise. Sonst sind keine weiteren Haken gesetzt:
    Visual Basic for Applications,
    Microsoft Excel 14.0 Objekt Library,
    OLE Automation,
    Microsoft Office 14.0 Objekt Library.
    Nur diese 4 haben einen Haken.
    Gruß, Dieter(Drummer)

    Anzeige
    AW: Sepp, habe deinen Code ...
    15.11.2015 14:26:20
    Dieter(Drummer)
    ... nochmal NEU einkopiert und siehe da, jetzt klappt es prima!
    Danke dir für deine unermüdliche Hilfe und den Code.
    Gruß und einen erfreulichen Sonntag,
    Dieter(Drummer)

    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