Sheetnamen
21.09.2005 11:10:24
Happy
Ich will über folgenden Code ein Sheet in eine andere Exceldatei kopieren. aber leider geht es nur, wenn ich ihm den genauen Namen des Sheets gebe, welches ich kopieren möchte. Wie kann ich ihm sagen das der Name immer unterschiedlich ist. In der Exceldatei, wo ich es rauskopiere gibt es immer nur das eine Sheet.
Workbooks.Open Filename:= _
"C:\Documents and Settings\Administrator\Desktop\csvbearbeitet.xls"
Sheets("CAPSACC1").Select ( dieser Name ändert sich immer (CAPSACC1) )
Sheets("CAPSACC1").Copy Before:=Workbooks("Auswertung.xls").Sheets(2)
Windows("csvbearbeitet.xls").Activate
ActiveWindow.Close