AW: Testen und nochmal melden
16.10.2003 14:57:56
junny
Hai Willie,
habe jetzt eine Ergebnis!!
Habe nun noch DisplayAlerts eingefügt.
Allerdings koiert es mir Sheet 1 (der ausgewählten Liste) 2mal rein sowie 2 leere Tabellen
Die Sheets sind dann folgendermaßen drin:
Sheet1 leer, Sheet2 O.K., Sheet3 wie 1, Sheet4 wie 2, Sheet5 in diesem steht das makro
Der Code
Sub junny()
wert = 1
Dim datei As String
Application.DisplayAlerts = False
ChDir "C:\Dokumente und Einstellungen\vw\Eigene Dateien\Test\Zeitenliste"
ZuÖffnendeDatei = Application.GetOpenFilename("Textdateien (*.xls), *.xls")
If ZuÖffnendeDatei <> False Then
Workbooks.Open Filename:=ZuÖffnendeDatei
datei = Mid(ZuÖffnendeDatei, 67) 'hier abzählen vonlinks Pfad:
'Bei mir C:\test\ das sind 8 plus 1 = 9
End If
Application.Wait (Now + TimeValue("0:00:01"))
For i = 1 To 2
ThisWorkbook.Sheets(1).Activate
Sheets.Add
Workbooks(datei).Activate
ActiveWorkbook.Sheets(wert).Activate
Cells.Select
Selection.Copy
ThisWorkbook.Sheets(i).Activate
Cells.Select
ActiveSheet.Paste
Sheets(wert).Name = datei & i
Next
Workbooks(datei).Close SaveChanges:=False
Application.DisplayAlerts = True
End Sub
Hoffe Du hast noch Lust und LAune, Gruss volker