title image


Smiley Zelleninhalt die 2
Habe folgenden Code für das Kopieren von Werten in 2 Tabellenblätter.



Dim wks1 As Worksheet, wks2 As Worksheet

Set wks1 = Worksheets("Auswertung")

Set wks2 = Worksheets("Gezogene Zahlen")

wks1.Range("A1:II").Copy _

Destination:=wks2.Range("A" & wks2.Cells(65536, 1).End(xlUp).Row + 1)



Ich möchte haber Jetzt unterschiedliche Zellen nehmem z.b Zelle A1, Zelle D5:I5

Zelle K5:L5 Zelle D6:J6 und Zellen E7:J7.



Bitte den Code vervollstädigen.

mfg Molle







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: