Problem Code zusammenfassen
12.11.2003 16:55:31
Tatjana
ich will eigentlich nur bestimmte Zellen aus aus der ersten Tabelle in eine zweite tabelle hineinkopieren. Das ganze funktioniert berreits
und zwar hab ich das so gemacht:
Private Sub CommandButton8_Click()
Sheets("Tabelle1").Activate
Range("A28:G28").Copy
Sheets("Tabelle3").Activate
Range("A65536:G65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlAll
Application.CutCopyMode = False
Sheets("Tabelle1").Activate
Range("G30").Copy
Sheets("Tabelle3").Activate
Range("H65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlAll
Application.CutCopyMode = True
Sheets("Tabelle1").Activate
Range("G31").Copy
Sheets("Tabelle3").Activate
Range("I65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlAll
Application.CutCopyMode = True
End Sub
Das Problem an der Sache ist das bei Ausführen dieses Makros das Bild so flackert wegen dem ständigen hin und her springen zwischen den Tabellen.
Wie kann ich den Code so zusammenfassen das das nicht der Fall wäre?
Hat jemand einen Tipp für mich?
Danke
Gruß Tatjana