Zellen mehrmals aus geschlossener Datei kopieren

Guten Morgen,
ich habe versucht, mit meinen bescheidenen Excel-VBA-Kenntnissen und diversen Forumposts, ein Problem zu lösen, bin aber kläglich gescheitert. Könnt ihr mir dabei evtl. weiterhelfen?
Problem:
Ich würde gerne aus einer (am besten) geschlossenen Datei (x) Daten rausholen und diese in eine andere Datei (y) schreiben.
Schwierigkeit dabei folgendes:
Datei x hat Spalten von e:cy und Zeilen von 4:534.
Nun soll in die neue Datei (y) in eine Zeile die Spaltenüberschrift von E und der Wert von A4(Zeilenname) und E4(Zeilenwert) eingetragen werden.
In die nächste Zeile wieder E A5 E5, das ganze x-mal(Zeilenanzahl).
Danach F A4 E4 , F A5 E5 , x-mal;
solange bis alle beschriebenen Spalten durchlaufen wurden.
Insgesamt soll Y dann 50350 Zeilen haben mit 3 Spalten (Spaltenüberschrift, Zeilenname, Zeilenwert)
Ich hatte mir überlegt, die Zeilen/Spaltenanzahl über eine Zählschleife weiterzugeben, aber da scheitere ich dann daran, dass in das Auslesen/Befüllen einzubauen.
Hätte da jemand evtl eine Idee dazu?
vg Daniel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender


Option Explicit
Public Function GetDataClosedWB(SourcePath As String, _
SourceFile As String, sourceSheet As String, _
SourceRange As String, TargetRange As Range) As Boolean
'Holt einen Bereich aus einer _geschlossenen_ Arbeitsmappe
'Nur in VBA zu verwenden; nicht aus einer Tabellenzelle heraus
'? t.ramel@mvps.org
' wird durch die HoleDaten aufgerufen
Dim strQuelle       As String
Dim Zeilen          As Long
Dim Spalten         As Byte
On Error GoTo InvalidInput
strQuelle = "'" & SourcePath & "[" & SourceFile & "]" & sourceSheet & "'!" & Range( _
SourceRange).Cells(1, 1).Address(0, 0)
Zeilen = Range(SourceRange).Rows.Count
Spalten = Range(SourceRange).Columns.Count
With TargetRange.Cells(1, 1).Resize(Zeilen, Spalten)
.Formula = "=IF(" & strQuelle & "="""",""""," & strQuelle & ")"
.Value = .Value
End With
GetDataClosedWB = True
Exit Function
InvalidInput:
MsgBox "Die Quelldatei oder der Quellbereich ist ung?ltig!", vbExclamation, "Get data from  _
closed Workbook"
GetDataClosedWB = False
End Function
Public Sub HoleDaten()
' Die Funktion arbeitet mit der obrigen GetDataClosedWB zusammen
Dim Pfad            As String
Dim Dateiname       As String
Dim Blatt           As String
Dim Bereich         As String
Dim Ziel            As Range
Pfad = "L:\Eigene Dateien\Hajo\Internet\Test\2009\"
Dateiname = "Beispiel Forum 30.xlsm" ' aus welcher Datei soll er holen?
Blatt = "Tabelle1"  ' von welcher Tabelle soll er holen?
Bereich = "A1:B9"   ' aus welchem Bereich soll er holen?
Set Ziel = ActiveSheet.Range("A1")  ' in welchen Bereich soll er kopieren? Genauer gesagt:  _
Bei welcher Zelle soll er anfangen, Datein reinzukopieren? Bsp: ActiveCell geht auch
If GetDataClosedWB(Pfad, Dateiname, Blatt, Bereich, Ziel) Then
MsgBox "Daten importiert"
End If
End Sub

Gruß Hajo

Beliebteste Forumthreads (12 Monate)

Zellen mehrmals aus geschlossener Datei kopieren

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen mehrmals aus geschlossener Datei kopieren

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread