Re: Zusammenfassen von mehreren Tagesaktuellen Tabelle
16.09.2002 13:48:56
Chris
Sollte eigentlich funktionieren. Gruss ChrisDim eingabe, eingabe1, eingabe2, eingabe3, eingabe4
On Error GoTo ErrorHandler
For i = 1 To 4
Dim rngTarget As Range
Set rngTarget = Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0)
eingabe = eingabe & i
eingabe = Application.GetOpenFilename("Excel Dateien (*.xls),*.xls")
Workbooks.OpenText eingabe
ActiveSheet.UsedRange.Copy rngTarget
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
Range("A1").Select
Next i
Exit Sub
ErrorHandler:
MsgBox ("Unvorhergesehener Fehler. Vermutlich haben Sie die Routine vorzeitig abgebrochen oder einen ungültigen Dateinamen eingegeben.")