Keine Zellaktualisierung wenn Datei geschlossen

Forumthread: Keine Zellaktualisierung wenn Datei geschlossen
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Keine Zellaktualisierung wenn Datei geschlossen

12.05.2018 01: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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Keine Zellaktualisierung wenn Datei geschlossen

12.05.2018 01:51:21

onur
AW: Keine Zellaktualisierung wenn Datei geschlossen

12.05.2018 14:25:31

Winfried
AW: Keine Zellaktualisierung wenn Datei geschlossen

12.05.2018 02:59:13

fcs
AW: Keine Zellaktualisierung wenn Datei geschlossen

12.05.2018 14:28:50

Winfried

AW: Keine Zellaktualisierung wenn Datei geschlossen

12.05.2018 01: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 14:25:31

Winfried

Vielen Dank Onur!
mit Deiner Formel läuft es perfekt ohne grosse Änderung!
Bin glücklich
Schoene Gruesse
Winfried

AW: Keine Zellaktualisierung wenn Datei geschlossen

12.05.2018 02: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

AW: Keine Zellaktualisierung wenn Datei geschlossen

12.05.2018 14: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