title image


Smiley Re: (einfaches) Makro funktioniert nicht!?
Hi,

warum so kompliziert?

Wenn du bis zur letzten Zelle in Spalte A, Tabelle1 kopieren willst, reicht



Sub Kopieren()



Dim Ende As Long



Ende = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row

Worksheets("Tabelle1").Range("A1:D" & Ende).Copy Destination:=Worksheets("Tabelle2").Range("A1")



End Sub



Wenn es nur bis zur ersten leeren Zellen in Spalte A gehen soll, muß du die Variable Ende halt entsprechend bestimmen.

Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: