Microsoft Excel

Herbers Excel/VBA-Archiv

Kopieren



Thema: Kopieren
  • Kopieren von Joachim S vom 26.09.2002 - 15:41:30

Betrifft: Kopieren
von: Joachim S
Geschrieben am: 26.09.2002 - 15:41:30

Warum klappt hier das kopieren nicht was mach ich falsch

Sub tagesspiele()
Dim As Worksheet
Dim As Worksheet
Set p = Worksheets("a")
Set q = Worksheets("b")
ende_zeile = q.Range("a1").End(xlDown).Row
ende_zeile1 = ende_zeile + 1
p.Range("I7:o16").Copy q.Cells(ende_zeile1, 1)
Call Wirklich_leer
End Sub

Schöne Grüsse
Josi

  

Re: Kopieren
von: Rainer
Geschrieben am: 26.09.2002 - 15:45:56

Hallo Josi

EXCEL weiss nicht wohin kopieren.
"Destination" lautet das Zauberwort


Sub tagesspiele()
Dim As Worksheet
Dim As Worksheet
Set p = Worksheets("a")
Set q = Worksheets("b")
ende_zeile = q.Range("a1").End(xlDown).Row + 1
'Die nächste Zeile ist nicht nötig wenn du obern 1 addierst
'ende_zeile1 = ende_zeile + 1
p.Range("I7:o16").Copy Destination:=q.Cells(ende_zeile1, 1)
Call Wirklich_leer
End Sub