Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1716to1720
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
1716to1720
1716to1720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel - VBA: Wenn TXT (etc.) - Datei vorhanden zeige Popup / Hinweis-Feld

Excel - VBA: Wenn TXT (etc.) - Datei vorhanden zeige Popup / Hinweis-Feld
25.10.2019 16:14:20
Jens
Hallo Ihr!
Evtl. kann mir jemand von euch bei der Umsetzung meiner Idee helfen.
Ich verwende mit meinen Kollege eine Excel-Datei mit Makros, welche ich regelmäßig aktualisiere.
Ich würde jetzt gerne als Grundgedanke ein Hinweisfeld beim öffnen der Datei einblenden lassen wenn entweder eine bestimmte Datei auf dem Server wo alle Zugriff haben vorhanden ist und den Inhalt einer TXT-Datei welchen ich angezeigt haben will mit im Popup angezeigt wird.
zB:
- ich erstelle eine Datei auf dem Server mit dem Namen popup.txt mit den Inhalt "Hallo Kollegen bitte ab dem 1.1.20 die neue Version verwenden"
- der Nutzer ruft die Excel mit den Makros auf und diese Datei prüft ob die Datei vorhanden ist und zeigt wenn diese vorhanden ist den beinhaltenden Textinhalt an
- lösche ich die Datei wird kein Hinweisfeld mehr angezeigt
- evtl. mit OK-Schaltfläche dass diese Anzeige für eine bestimmt Zeit nicht mehr angezeigt wird.
Ist dies via Excel und VBA realisierbar?
Danke jedenfalls für die evtl. Hilfe!
Bye Jens
AW: Excel - VBA: Wenn TXT (etc.) - Datei vorhanden zeige Popup / Hinweis-Feld
25.10.2019 16:54:44
volti
Hallo Jens,
hier mal eine Idee. Natürlich gibt es noch viele andere Einlesemöglichkeiten.
Private Sub Workbook_Open()
 Dim Dateipfad As String, Data As String
 Dateipfad = ThisWorkbook.Path & "\popup.txt"           'Pfad anpassen!!!
 If Dir(Dateipfad) <> "" Then
  Close #1: Open Dateipfad For Binary As #1             'Datei öffnen
  Data = Space(LOF(1)): Get #1, , Data                  'Daten einlesen
  MsgBox Data, vbOKOnly Or vbInformation, "Information" 'Daten anzeigen
  Close #1
 End If
End Sub

viele Grüße
Karl-Heinz
Anzeige
AW: Excel - VBA: Wenn TXT (etc.) - Datei vorhanden zeige Popup / Hinweis-Feld
25.10.2019 17:04:14
Jens
Danke Karl-Heinz!
versuche gerade den Code aufzuschlüsseln was da genau passiert um das nachvollziehen und verstehen zu können.
also erfragt ab ob die Datei im Dateipfad vorhanden ist. Wenn nicht schließt er die Befehlskette. Was bedeutet das #1 ?
Werde es nachher wenn ich wieder am Rechner bin und Zeit finde mal prüfen.
Bye Jens
AW: Excel - VBA: Wenn TXT (etc.) - Datei vorhanden zeige Popup / Hinweis-Feld
25.10.2019 17:12:05
volti
Hallo Jens,
#1 ist eine interne Dateinummer. Für jede zu geöffnete Datei wird eine Nummer #1, #2, #3 usw. verwendet.
viele Grüße
Karl-Heinz
AW: Excel - VBA: Wenn TXT (etc.) - Datei vorhanden zeige Popup / Hinweis-Feld
25.10.2019 17:39:19
Jens
Hi nochmal,
habe den Code einmal mit angepassten Pfad (Pfad-Kontrolle im Explorer geprüft) im VBA in die zuständige Arbeitsmappe eingefügt, aber leider ohne Funktion.
Habe Testweise ein Makro erstellt und versucht damit das Info-Fenster zu öffnen, aber leider auch ohne Erfolg.
Wo ist dort mein Denkfehler.
Bye Jens
Anzeige
AW: Excel - VBA: Wenn TXT (etc.) - Datei vorhanden zeige Popup / Hinweis-Feld
25.10.2019 17:47:38
volti
Hi Jens,
da der Code bei mir läuft, kann ich Deinen "Denkfehler" leider nicht auflösen. Ggf. mal mit F8 den Code durchlaufen, dann siehst Du schon, wo es hakt.
VG KH
AW: Excel - VBA: Wenn TXT (etc.) - Datei vorhanden zeige Popup / Hinweis-Feld
25.10.2019 17:08:17
Nepumuk
Hallo Jens,
würde ich so machen:
Option Explicit

Private Sub Workbook_Open()
    
    Const TEXT_FILE As String = "H:\popup.txt" 'Anpassen !!!
    Const FOR_READING As Long = 1
    Const TRISTATE_FALSE As Long = 0
    
    Dim objFileSystemObject As Object, objFile As Object
    Dim objTextStream As Object
    
    If Dir$(TEXT_FILE) <> vbNullString Then
        
        Set objFileSystemObject = CreateObject(Class:="Scripting.FileSystemObject")
        Set objFile = objFileSystemObject.GetFile(TEXT_FILE)
        Set objTextStream = objFile.OpenAsTextStream(FOR_READING, TRISTATE_FALSE)
        
        Call MsgBox(objTextStream.ReadAll, vbExclamation, "Hinweis")
        
        Set objTextStream = Nothing
        Set objFile = Nothing
        Set objFileSystemObject = Nothing
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: Excel - VBA: Wenn TXT (etc.) - Datei vorhanden zeige Popup / Hinweis-Feld
25.10.2019 17:45:39
Jens
Danke Nepumuk es funktioniert!

316 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