Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Friedrichroda /
Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.

VBA kopieren einfügen ohne sichtbaren sprung
#1
Hallo,
ich habe per VBA mehrere Kopierfunktionen erstellt nur leider springt beim Ausführen das Fenster so komisch hoch und runter, wahrscheinlich weil ich das Makro so aufgenommen habe. Kann man diese springerei unsichtbar machen?

Hier der Code:

Sub Übertrag_Februar()
Range("M9:T14").Select
Selection.Copy
Range("E122:L127").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("M22:T28").Select
Selection.Copy
Range("E135:L141").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("M34:T40").Select
Selection.Copy
Range("E147:L153").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("M50:T61").Select
Selection.Copy
Range("E163:L174").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("M69:T77").Select
Selection.Copy
Range("E182:L190").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("M85:T89").Select
Selection.Copy
Range("E198:L202").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("M97:T112").Select
Selection.Copy
Range("E210:L225").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll UP:=76
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.SmallScroll ToLeft:=2
End Sub
to top
#2
Hi,

schreib am Anfange Deines Makros

Code:
Application.ScreenUpdating = False

und an das Ende schreibst Du

Code:
Application.ScreenUpdating = True

Gruß
Max
to top
#3
Vielen Dank 23
to top
#4
Hi,

befreie zuerst einmal den Code von den ganzen Selects. Dann zu Beginn "Application.ScreenUpdating = False" eintragen und am Ende dasselbe mit =True. Damit schaltest du die Bildschirmaktualisierung aus und wieder ein.


Code:
Sub Übertrag_Februar()

Application.ScreenUpdating = False
Range("M9:T14").Copy
Range("E122:L127").PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("M22:T28").Copy
Range("E135:L141").PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("M34:T40").Copy
Range("E147:L153").PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("M50:T61").Copy
Range("E163:L174").PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("M69:T77").Copy
Range("E182:L190").PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("M85:T89").Copy
Range("E198:L202").PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("M97:T112").Copy
Range("E210:L225").PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.ScreenUpdating = True
End Sub

Nachtrag:

Du hast bestimmt gesehen, dass ich die letzten 4 Zeilen Code gelöscht habe. Die wurden mit aufgezeichnet und sind überflüssig. Wenn du nach dem Kopieren in einer bestimmten Zelle den Cursor haben willst, fügst du die Zeile Range ("A1").Activate ein. Damit landest du immer in Zelle A1
?mage

Misserfolg ist eine Chance, es beim
nächsten Mal besser zu machen.

(Henry Ford)
http://www.sprueche-zum-nachdenken.eu
to top
#5
Vielen Dank! Super klappt!
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  fehlende Daten (Datum) in Datensatz einfügen und dabei Zellen einfügen fredo2611 4 75 14.03.2017, 10:02
Letzter Beitrag: fredo2611
Question Zellen per VBA Kopieren ohne Tabllenblatt zu wechseln o0Julia0o 5 113 13.03.2017, 17:20
Letzter Beitrag: Rabe
  Noch nicht vorhandene externe Dateien ohne "Werte aktualisieren" einfügen paul_1001 1 59 03.03.2017, 06:22
Letzter Beitrag: BoskoBiati
  Tabellenbereich kopieren, neues Dokument erstellen, einfügen und speichern DrWahnsinn 8 141 21.02.2017, 15:41
Letzter Beitrag: DrWahnsinn
  Smarte Tabelle Problem beim Kopieren/Einfügen soky001 1 84 10.02.2017, 22:06
Letzter Beitrag: soky001
  VBA Bestimmte Zeile Kopieren + Einfügen nick_001 6 210 03.02.2017, 07:46
Letzter Beitrag: Kuwer
  Kopieren und am Ende einfügen über Filter fbehrendt 1 90 23.01.2017, 15:11
Letzter Beitrag: atilla
  Zeile kopieren und einfügen, Positionierung stimmt nicht. Icepic 4 223 13.12.2016, 10:19
Letzter Beitrag: Icepic
Exclamation Problem:Zwei Spalten vergleichen wenn wahr dann bereich kopieren und einfügen CherryX 5 235 12.12.2016, 09:18
Letzter Beitrag: steve1da
  Suchen, Finden, Kopieren, Einfügen mit VBA Aynor 7 357 09.12.2016, 06:57
Letzter Beitrag: Aynor

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste