ok kommen wir gleich mal zur Sache:
1: Wie kann ich diesen Code optimieren, dass das kopierte immer ab A1 eingefügt wird und nicht dort wo eine Zelle makiert ist?
Hab es so probiert
Sheets("a_2.xls").Range("A1:AD65500").paste
aber geht irgendwie nicht :(
Hier der ganze Code:
Private Sub CommandButton5_Click()
Windows("a_2.xls").Activate
Sheets("Data").Activate
Range("A1:AD65500").Delete Shift:=xlUp
Windows("Purchase Order Analysis_V1.5.xls").Activate
Sheets("Result").Range("A2:AD65500").Copy
Windows("a_2.xls").Activate
Sheets("Data").Paste
Application.CutCopyMode = False
End Sub
2. Ich möche fast alle (64) Sheets gleich formatieren. Wie kann ich es machen, dass zwei Sheets ausgelassen werden?
Die, die ausgelassen werden sollen heißen "Makro" und "Data" falls dies hilft.
Der Code für die Formatierung:
Private Sub CommandButton4_Click()
Columns("B:B").NumberFormat = "m/d/yyyy"
Columns("E:E").NumberFormat = "#,##0"
Columns("H:H").NumberFormat = "m/d/yyyy"
Columns("J:J").NumberFormat = "#,##0_ ;[Red]-#,##0 "
Columns("K:K").NumberFormat = "#,##0"
Columns("L:L").NumberFormat = "#,##0_ ;[Red]-#,##0 "
Columns("K:K").NumberFormat = "#,##0_ ;[Red]-#,##0 "
End Sub
Alle guten Dinge sind 3. ;)
ähm ok, hat sich grade erledigt :)
hehe
mfg ecki