Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
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
1620to1624
1620to1624
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Keine Zellaktualisierung wenn Datei geschlossen

Forumthread: Keine Zellaktualisierung wenn Datei geschlossen

Keine Zellaktualisierung wenn Datei geschlossen
11.05.2018 23:03:21
Winfried
Gruess Gott miteinander,
seit 2 Stunden hänge ich an einem Problem. In die Userform habe ich eine TextBox welche einen Zellwert einer nicht immer geöffneten Datei zeigt:
Me.TextBoxGewicht.Text = Workbooks("99191.xls").Worksheets("Mengentabelle").Range("Gewicht").Value
Nun ahnt es der VBA-Kenner bereits. Die Zellaktualisierung/Verknüpfung funktioniert wunderbar bei geöffneter Datei 99191.xls, nicht jedoch wenn die Datei nicht geöffnet ist. Dann erfolgt die Fehlermeldung "Index ausserhalb des gültigen Bereichs".
Wie müsste die Funktion lauten damit
a) Die TextBoxGewicht einfach nur leer bleibt wenn die Datei 99191.xls nicht geöffnet wurde.
oder
b) Dann ein Text in der TextBoxGewicht erscheint wie z.B. "Datei geschlossen!"
Vorab vielen Dank für jedwede Unterstützung!
Schoene Gruesse
Winfried
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Keine Zellaktualisierung wenn Datei geschlossen
11.05.2018 23:51:21
onur
Versuch das: 
Me.TextBoxGewicht.Text = "Datei geschlossen!"
On Error Resume Next
Me.TextBoxGewicht.Text = Workbooks("99191.xls").Worksheets("Mengentabelle").Range("Gewicht").Value

AW: Keine Zellaktualisierung wenn Datei geschlossen
12.05.2018 12:25:31
Winfried
Vielen Dank Onur!
mit Deiner Formel läuft es perfekt ohne grosse Änderung!
Bin glücklich
Schoene Gruesse
Winfried
Anzeige
AW: Keine Zellaktualisierung wenn Datei geschlossen
12.05.2018 00:59:13
fcs
Hallo Winfried,
    Dim wkb As Workbook
Me.TextBoxGewicht.Text = "Datei geschlossen!"
For Each wkb In Application.Workbooks
If LCase(wkb.Name) = LCase("99191.xls") Then
Me.TextBoxGewicht.Text = _
Workbooks("99191.xls").Worksheets("Mengentabelle").Range("Gewicht").Value
Exit For
End If
Next
Gruß
Franz
Anzeige
AW: Keine Zellaktualisierung wenn Datei geschlossen
12.05.2018 12:28:50
Winfried
Vielen Dank Franz!
Deine Formel funktioniert gut. Onur's Ansatz scheint ein wenig "knackiger" und einfacher zu sein.
Aber beides läuft!
Schoene Gruesse
Winfried
;

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