Zellen kopieren

[Andyle]

Hallo liebe Gemeinde.

Leider ist im Forum nichts zu meinem Problem zu finden.

Folgender Code:

Code:

NextRow = Sheets("neue Liste").Cells(Rows.Count, 2).End(xlUp).Row + 1

Sheets("neue Liste").Range("B" & NextRow) = Now
   
Sheets("Inventurliste").Range("B1:I1).Copy Sheets("neue Liste").Range("C" & NextRow)

NextRow funzt

Jetzt habe ich allerdings noch eine weitere Variable z1 müsste so sein: Range("B  z1  :I  z1)

Oder wie kann ich es hinbekommen?

Danke

[oee]

"Range("B  z1  :I  z1) " ?
Was genau soll das denn sein ?

[Andyle]

Ich möchte die Daten aus Spalte B bis I in der Zeile z1 (Variable) kopieren und in das neue Tabellenblatt einfügen!

z1 = Zeilennummer

[BoskoBiati]

Hi,

Code:

Range(cells( z1 ,"B"),cells(z1 ,"I"))

[Andyle]

So kommt ein Fehler!

Worksheets("Inventurliste").Range(Cells(z1, "B"), Cells(z1, "I")).Copy Sheets("neue Liste").Range("C" & NextRow)

[oee]

Aber nur, wenn z1 leer ist.
Du musst schon z1 einen Wert zuweisen.

[Crazy Tom]

moin,

auf welchem Tabellenblatt befindest du dich wenn du kopierst?

mfg Tom

[Andyle]

Ich hatte einen Denkfehler!

funzt alles!