copy and paste
28.10.2003 20:06:44
Gerdi
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
Anzeige