Hilfe bei Code optimierung!
23.07.2008 22:42:00
Tom
VBA neuling steckt im Stau :-)
Wie bringe Ich diesen Code dazu nicht immer Mappe1 zu öffnen sondern variabel zu sein,z.B. namen vergeben? Das Problem: Wenn ich ein zweites mal copy_click benutze macht er aus mappe1 mappe2
aber der Code verweist auf Mappe1.
Und wie sag ich ihm das die Spaltenbreite der neuen Mappe = 20 sein soll oder AutoFit?
Wenn ich Columns.AutoFit hinzufüge ändert sich die Ursprungsdatei, das sollte aber nur in der neuen passieren.
Der Code:
Private Sub Copy_Click()
Woorkbooks.Add
ActiveWindow.WindowState = x1Minimized
Windows("MeineMappe.xls").Activate
Selection.Copy
Windows("Mappe1").Activate
ActiveSheet.Paste
ActiveWindow.WindowState = x1Maximized
End Sub