title image


Smiley Re: Zelleninhalt die 2
Morgen,



ich denke mal du meinst wenn in Zeile 1 bereits Werte drinstehen, dann in Zeile 2 schreiben, wenn da schon was drin steht, dann in Zeile 3 ....



Spaltenmäßig laufen kann ja nicht ganz passen, oder?





Sub Test()

Dim zaehler As Integer

'Bereich 1

Sheets("Tabelle1").Select

Range("D5:I5").Select

Selection.Copy

Sheets("Tabelle2").Select

Range("B2").Select

zaehler = 2

Do While ActiveCell.Value ""

zaehler = zaehler + 1

Cells(zaehler, 2).Select

Loop

ActiveSheet.Paste

Application.CutCopyMode = False

'Bereich 2

Sheets("Tabelle1").Select

Range("D6:J6").Select

Selection.Copy

Sheets("Tabelle2").Select

Range("M2").Select

zaehler = 2

Do While ActiveCell.Value ""

zaehler = zaehler + 1

Cells(zaehler, 13).Select

Loop

ActiveSheet.Paste

Application.CutCopyMode = False

'Bereich 3

Sheets("Tabelle1").Select

Range("E7:J7").Select

Selection.Copy

Sheets("Tabelle2").Select

Range("U2").Select

zaehler = 2

Do While ActiveCell.Value ""

zaehler = zaehler + 1

Cells(zaehler, 21).Select

Loop

ActiveSheet.Paste

Application.CutCopyMode = False

'Wert 1

Sheets("Tabelle1").Select

Range("A1").Select

Selection.Copy

Sheets("Tabelle2").Select

Range("A2").Select

zaehler = 2

Do While ActiveCell.Value ""

zaehler = zaehler + 1

Cells(zaehler, 1).Select

Loop

ActiveSheet.Paste

Application.CutCopyMode = False

'Wert 2

Sheets("Tabelle1").Select

Range("K5").Select

Selection.Copy

Sheets("Tabelle2").Select

Range("J2").Select

zaehler = 2

Do While ActiveCell.Value ""

zaehler = zaehler + 1

Cells(zaehler, 10).Select

Loop

ActiveSheet.Paste

Application.CutCopyMode = False

'Wert 3

Sheets("Tabelle1").Select

Range("L5").Select

Selection.Copy

Sheets("Tabelle2").Select

Range("K2").Select

zaehler = 2

Do While ActiveCell.Value ""

zaehler = zaehler + 1

Cells(zaehler, 11).Select

Loop

ActiveSheet.Paste

Application.CutCopyMode = False

End Sub



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

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: