title image


Smiley Re: Zelleninhalt die 2
Vieleicht habe ich es falsch formuliert.

in Tabelle1 stehet in den der zelle A1 das Datum,in den zellen D5:Id stehen zahlen,

in den Zellen K5,L5 Stehen zahlen,in den Zellen D6:J6 stehen zahlen, in den Zellen D7:J7 stehen zahlen.

Diese Zahlen sollen in Tabelle 2 eingefügt werden.

Tabelle1 A1 in Tabelle2 A2

Tabelle1 D5:I5 In Tabelle2 B2:G2

Tabelle1 K5,L5 In Tabelle2 J2,K2

Tabelle1 D5:I5 In Tabelle2 B2:G2

Tabelle1 D6:J6 In Tabelle2 M2:S2

Tabelle1 E7:J7 In Tabelle2 U2:Z2

der erste code macht daß richtig



Sub Test()

Dim wks1 As Worksheet, wks2 As Worksheet

Set wks1 = Worksheets("Tabelle1")

Set wks2 = Worksheets("Tabelle2")

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

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

wks1.Range("a1:I1").ClearContents

End Sub

Das Problem ist, ich habe unterschiedliche Zellen.

da Excel keine Zellen Kopieren kann, die nicht zusammenhängend sind.liegt hier das problem.Ich weis nich wie ich weiter machen kann,vieleich kannst du den Code

kommplettieren.





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: