??????Falsch.xls?????
22.08.2003 08:38:00
Daniel G
ich glaub mein Schwein pfeift!!!
Wenn ich unten aufgefährtes Makro ausführe, dann sagt mir mein Debuger, dass Falsch.xls nicht gefunden wird...na so was , die gibt's nämlich gar nicht und danach fragt auch niemand....
Bitte helft mir!!!
Private Sub CommandButton1_Click()
Dim wks1 As Worksheet
Dim wks2 As Worksheet
'Fehlerzeile mit Pfeil markiert'
'Die Dateien heißen wirklich so....'
==> Workbooks.Open FileName = "\\s...\h...\d...\q\p...\g...\testmappeentw~1.xls"
Set wks1 = ThisWorkbook.Sheets(1)
Sheets("Tabelle1").Range("A1:Q30").Select
Selection.Copy
Workbooks.Open FileName = "\\s...\h...\d...\q\p...\g...\testmappeentw~2.xls"
Set wks1 = ThisWorkbook.Sheets(1)
Sheets("Tabelle1").Range("A1:Q30").Select
Selection.PasteSpecial Paste:=xlValues
Selection.PasteSpecial Paste:=xlFormats
End Sub
Thx Daniel