Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 20:49:40
Listbox - ausgewählte Zeile aus Tabellenblatt markieren
04.05.2024 16:03:54
Problem mit einer Regel bei bedingter Formatierung
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1900to1904
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
1900to1904
1900to1904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Evaluate

Evaluate
18.10.2022 21:36:41
Pepi
Hallo zusammen
Cells(8, 23).Formula = "='C:\Users\Peter\Google Drive\=Excel\[Kas-Kassa.xlsm]2021'!$AB$2"
schreibt den Zellwert von AB2, der Datei Kas-Kassa.xlsm in die Zelle (8,23), auch wenn Kas-Kassa.xlsm geschlossen ist
sTmp = Evaluate("='C:\Users\Peter\Google Drive\=Excel\[Kas-Kassa.xlsm]2021'!$AB$2") gibt den Zellwert an die sTmp, doch leider nur wenn Kas-Kassa.xlsm geöffnet ist.
gibt es ein Möglichkeit, den Zellwert bei geschlossener Datei an eine Variable zu übergeben, ohne dass ich den Wert in ein Zelle schreibe und dann wieder auslese.
vielen Dank für Eure Hilfe
mfg
Pepi

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Evaluate
18.10.2022 22:09:44
Alwin
Hallo Pepi,
du kannst nur über die Formel den Wert in eine Variable schreiben, wenn du die Datei nicht öffnen willst. Wenn du den Wert aus einer Zelle einer anderen Datei in eine Variable schreiben willst ohne den Weg über eine Formel, muss diese Datei geöffnet sein.
Gruß Uwe
AW: Evaluate
18.10.2022 22:19:02
GerdL
Hallo Pepi,
ungetestet.

'C:\Users\Peter\Google Drive\=Excel\[Kas-Kassa.xlsm]2021'!$AB$2")
Sub test()
sTmp = getvalue("C:\Users\Peter\Google Drive\=Excel\", "[Kas-Kassa.xlsm]", "2021", "AB2")
End Sub


Public Function getvalue(path As String, File As String, sheet As String, ref As String)
'retrieves a value from a closed workbook
Dim arg As String
'make sure the file exists
If Right(path, 1)  "\" Then path = path & "\"
If Dir(path & File) = "" Then
getvalue = "File not found"
Exit Function
End If
'create the argument
arg = "'" & path & "[" & File & "]" & sheet & "'!" & _
Range(ref).Address(, , xlR1C1)
'execute an xlm macro
getvalue = ExecuteExcel4Macro(arg)
End Function
Gruß Gerd
Anzeige
AW: Evaluate
19.10.2022 16:26:21
Pepi
Supper Gerd
Hast mir einen grossen Dienst erwiesen!!!
lg Pepi

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige