copy and paste

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: copy and paste
von: Gerdi
Geschrieben am: 28.10.2003 20:06:44

Hallo zusammen,
bei eingefügten Makro flackert der Bildschirm laufend, wenn der cursor zwischen den beiden sheets hin und herspringt. Wie lässt sich das vermeiden? Ich komm nicht drauf!!
Außerdem, wenn ich Tabelle1 ausblende, bekomme ich einen Fehler beim kopieren und beim löschen.
Bitte um Eure Hilfe!!


Sub laufendeNummer()
Dim Start As Long
Dim Ende As Long
Dim lfdNr As Long
Start = ActiveSheet.[b13]
Ende = ActiveSheet.[c13]
For lfdNr = Start To Ende Step 1
    
'    Das funktioniert nicht...Worksheets("Auswahl").Range("B2:D8").Copy Destination:=Worksheets("Tabelle1").Range("A1")
   
 Range("B2:D8").Select
    Selection.Copy
    Sheets("Tabelle1").Select
    ActiveSheet.Paste
    Range("A9").Select
     
Cells.Select
    Selection.Clear
    Range("A1").Select
    Sheets("Auswahl").Select
    Range("D6").Select
    
    ActiveSheet.[D6] = lfdNr
Next lfdNr
 MsgBox ("Ihre Gebindezettel werden gedruckt ;-)")
    
 
End Sub

Bild


Betrifft: AW: copy and paste
von: Wolfgang
Geschrieben am: 28.10.2003 20:28:57

Hallo Gerdi

probiers mal mit ( am Anfang )

application.screenupdating = false

nicht vergessen !!

am Ende mit

application.screenupdating = true

wieder einschalten


Gruß Wolfgang


Bild


Betrifft: AW: copy and paste
von: Gerdi
Geschrieben am: 29.10.2003 18:20:41

Vielen Dank, hat mir sehr geholfen, super :-)


Bild


Betrifft: AW: copy and paste
von: PeterW
Geschrieben am: 28.10.2003 20:50:04

Hallo Gerdi,

mal ne dumme Frage, was soll der Code leisten? In der Schleife wird immer wieder Auswahl!D6 mit der lfdNr bestückt, so dass die zunächst dort hineingeschriebenen Werte immer wieder überschrieben werden.

Zur Problematik des Flackerns schau dir in den Excel-FAG unter xlBasics mal den Beitrag zu Aktivieren und Selektieren an. Das Ausschalten dert Bildschirmanzeige sorgt nur dafür, dass das unnötige Selektieren nicht angezeigt wird.

Gruß
Peter


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Leerzeile nach zwei gleichen Zeilen"