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

aus geschlossenen Dateien per Schleife

aus geschlossenen Dateien per Schleife
08.02.2008 00:22:21
Lorenz
Hallo Excelianer!
Wie kann man das ewige " z= z+1 in eine Schleife packen?
Mit "For 6 To 89" & "Next z" ist es mir leider nicht gelungen (Da schreibt´s die Werte 84mal nur in Zelle ("B2"))
HIER der CODE:

Sub HoleWerte()
Dim fn As String, z As Long
Const pfad As String = "D:\Lohnliste\"
Range("B6:B89").ClearContents
fn = Dir(pfad & "\LL_11_2007.xls")
Do While fn  ""
z = 6
Cells(z, 2) = GetValue(pfad, fn, "Tabelle1", "V6")
z = z + 1
Cells(z, 2) = GetValue(pfad, fn, "Tabelle1", "V7")
z = z + 1
Cells(z, 2) = GetValue(pfad, fn, "Tabelle1", "V8")
z = z + 1
Cells(z, 2) = GetValue(pfad, fn, "Tabelle1", "V9")
z = z + 1
Cells(z, 2) = GetValue(pfad, fn, "Tabelle1", "V10")
z = z + 1
Cells(z, 2) = GetValue(pfad, fn, "Tabelle1", "V11")
z = z + 1
Cells(z, 2) = GetValue(pfad, fn, "Tabelle1", "V12")
.....  z geht bis 89
fn = Dir()
Loop
End Sub



Function GetValue(path, file, sheet, ref)
Dim arg As String
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function


Hat vielleicht jemand nen Tipp?
Danke Lorenz

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aus geschlossenen Dateien per Schleife
08.02.2008 00:55:00
ChrisL
Hallo Lorenz
Dim i as byte
For i = 6 to 89
Cells(i, 2) = GetValue(pfad, fn, "Tabelle1", "V"&i)
next i
cu
Chris

AW: aus geschlossenen Dateien per Schleife
08.02.2008 02:11:52
Lorenz
Hallo Chris!
Das war´s!!!!!
Funktioniert einwandfrei!!
Danke herzlichst
Lorenz
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige