Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
23.04.2024 14:47:39
23.04.2024 14:23:45
Anzeige
Archiv - Navigation
1620to1624
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
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige