title image


Smiley Re: Zelleninhalt die 2
Sub Test()

'Bereich 1

Sheets("Tabelle1").Select

Range("D5:I5").Select

Selection.Copy

Sheets("Tabelle2").Select

Range("B2").Select

ActiveSheet.Paste

Application.CutCopyMode = False

'Bereich 2

Sheets("Tabelle1").Select

Range("D6:J6").Select

Selection.Copy

Sheets("Tabelle2").Select

Range("M2").Select

ActiveSheet.Paste

Application.CutCopyMode = False

'Bereich 3

Sheets("Tabelle1").Select

Range("E7:J7").Select

Selection.Copy

Sheets("Tabelle2").Select

Range("U2").Select

ActiveSheet.Paste

Application.CutCopyMode = False

'Wert 1

Sheets("Tabelle1").Select

Range("A1").Select

Selection.Copy

Sheets("Tabelle2").Select

Range("A2").Select

ActiveSheet.Paste

Application.CutCopyMode = False

'Wert 2

Sheets("Tabelle1").Select

Range("K5").Select

Selection.Copy

Sheets("Tabelle2").Select

Range("J2").Select

ActiveSheet.Paste

Application.CutCopyMode = False

'Wert 3

Sheets("Tabelle1").Select

Range("L5").Select

Selection.Copy

Sheets("Tabelle2").Select

Range("K2").Select

ActiveSheet.Paste

Application.CutCopyMode = False

End Sub
evtl. Schreibfehler sind gewollt. Ein Hoch auf die künstlerische Freiheit!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: