Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
352to356
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
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wert aus geschlossener Mappe auslesen

Wert aus geschlossener Mappe auslesen
20.12.2003 18:25:51
Jens
guten Abend zusammen

ich habe von der Herber-CD nachfolgenden Code eingesetzt. Funktioniert auch wunderbar. Nun habe ich folgende Frage: Kann man auch mehrere Werte aus der TB auslesen z.B. A1,B3 und C2 ?


Private Sub ListBox1_Click()
Dim sPath As String, sFile As String, sWks As String
Dim sRange As String
sPath = ThisWorkbook.Path
sFile = ListBox1.Value
sWks = "Tabelle1"
sRange = "A1"
'If Dir(sPath & "\" & sFile) = "" Then
'Beep
'MsgBox "Datei " & sFile & " nicht gefunden!"
'Exit Sub
'End If
On Error Resume Next
Range("A1").Formula = "='" & sPath & _
"\[" & sFile & "]" & sWks & "'!" & sRange
TextBox1.Text = Range("A1").Value
Range("A1").ClearContents
End Sub


Danke für eure Hilfe Jens

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert aus geschlossener Mappe auslesen
20.12.2003 21:15:50
Nepumuk
Hallo Jens,
so z.B.:

Option Explicit
Option Base 1
Public Sub lesen()
Dim varAdresse As Variant, intIndex As Integer
varAdresse = Array("A1", "B3", "C2")
For intIndex = 1 To UBound(varAdresse)
MsgBox ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\" & "[" & "Bela Lugosi.xls" & "]" _
& "Tabelle1" & "'!" & Range(varAdresse(intIndex)).Range("A1").Address(, , xlR1C1))
Next
End Sub



Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige