Daten aus einem anderen Workbook
20.05.2004 13:23:12
Roland
Beigefügter Code funktioniert bereits perfekt!
Jetz hab ich aber doch noch ein Problem. Der Code greift ja auf alle Workbooks in der genannten Datei zu. Jetzt brauche ich für eine Erweiterung den an sich gleichen Code, nur das diesmal (auch wieder ein bestimmter
Bereich) jedes Workbooks in eine eigene Tabelle innerhalb eines Workbooks eingefügt werden soll.
Geht das?
Mein Code:
Sub ButtonInA()
Dim lstrDateiName As String, liZeile As Integer
Application.ScreenUpdating = False
lstrDateiName = Dir("C:\Erfolgsanalyse\Mitarbeiter\*.xls")
Range("A9:U10000").ClearContents
Do Until lstrDateiName = ""
Workbooks.Open "C:\Erfolgsanalyse\Mitarbeiter\" & lstrDateiName
liZeile = 9
Do Until Sheets(1).Range("A" & liZeile).Value = ""
liZeile = liZeile + 1
Loop
Range("A9:U" & liZeile).Copy
Workbooks(1).Activate
If Range("A9").Value = "" Then
Range("A9").Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks(2).Close SaveChanges:=False
liZeile = 9
Do Until Workbooks(1).Sheets("Daten").Range("F" & liZeile).Value = ""
liZeile = liZeile + 1
Loop
Range("A" & liZeile).Select
lstrDateiName = Dir
Loop
Application.ScreenUpdating = True
Range("P1") = Date & ", " & Time
Range("E1").Select
End Sub
Bitte um Unterstützung, danke!
Grüße
Roland