Clever-Excel-Forum

Hallo zusammen,

ich habe folgenden Code, der mir die Einträge aus meiner Eingabemaske in den Bestand überträgt. Soweit so gut.

In meiner Eingabemaske habe ich jedoch 11 Zeilen, in die man Eintragungen machen kann & ich möchte, dass die Daten mithilfe von VBA im Bestand nacheinander jeweils in eine separate Zeile geschrieben werden. Mit meinem Code anbei, wird aber immer nur die erste Zeile im Bestand befüllt..

Könnt ihr mir sagen, wie ich den Code anpassen muss?

Nachfolgend der Code, Beispiel anbei.

Danke Euch & VG
SteBen

Code:
'Ref.

Worksheets("Lagerbestand").Cells(last, 3).Value = Worksheets("Lagereingang").Range("B27:B37").Value

'ord. Dox

Worksheets("Lagerbestand").Cells(last, 4).Value = Worksheets("Lagereingang").Range("C27:C37").Value

'Packstückanz.

Worksheets("Lagerbestand").Cells(last, 5).Value = Worksheets("Lagereingang").Range("D27:D37").Value

'Gewicht

Worksheets("Lagerbestand").Cells(last, 6).Value = Worksheets("Lagereingang").Range("E27:E37").Value

'Lithium

Worksheets("Lagerbestand").Cells(last, 7).Value = Worksheets("Lagereingang").Range("F27:F37").Value

'Empfangsland

Worksheets("Lagerbestand").Cells(last, 8).Value = Worksheets("Lagereingang").Range("G27:G37").Value

'Beschädigung

Worksheets("Lagerbestand").Cells(last, 9).Value = Worksheets("Lagereingang").Range("H27:H37").Value

Hallöchen,

so?

Worksheets("Lagerbestand").Cells(last, 1).Resize(11, 1).Value = ...

... oder in einer Schleife:

PHP-Code:
Private Sub CommandButton1_Click()

'Application.Dialogs(xlDialogSendMail).Show

'save & open
'ActiveWorkbook.Save

'Lagerbestand
'Erste freie Zeile finden
Dim last As Long
Dim lng_zeile As Long
last = Worksheets("Lagerbestand").Cells(Rows.Count, 1).End(xlUp).Row + 1
lng_zeile = 27
Do Until Worksheets("Lagereingang").Cells(lng_zeile, 2) = ""
    'Datum
    Worksheets("Lagerbestand").Cells(last, 1).Value = Worksheets("Lagereingang").Range("F10").Value
    'Absender. übertragen
    Worksheets("Lagerbestand").Cells(last, 2).Value = Worksheets("Lagereingang").Range("B21").Value
    'Ref.
    Worksheets("Lagerbestand").Cells(last, 3).Value = Worksheets("Lagereingang").Cells(lng_zeile, 2).Value
    'ord. Dox
    Worksheets("Lagerbestand").Cells(last, 4).Value = Worksheets("Lagereingang").Cells(lng_zeile, 3).Value
    'Packstückanz.
    Worksheets("Lagerbestand").Cells(last, 5).Value = Worksheets("Lagereingang").Cells(lng_zeile, 4).Value
    'Gewicht
    Worksheets("Lagerbestand").Cells(last, 6).Value = Worksheets("Lagereingang").Cells(lng_zeile, 5).Value
    'Lithium
    Worksheets("Lagerbestand").Cells(last, 7).Value = Worksheets("Lagereingang").Cells(lng_zeile, 6).Value
    'Empfangsland
    Worksheets("Lagerbestand").Cells(last, 8).Value = Worksheets("Lagereingang").Cells(lng_zeile, 7).Value
    'Beschädigung
    Worksheets("Lagerbestand").Cells(last, 9).Value = Worksheets("Lagereingang").Cells(lng_zeile, 8).Value
      'LF secured?
    Worksheets("Lagerbestand").Cells(last, 10).Value = Worksheets("Lagereingang").Range("D53").Value
    last = last + 1
    lng_zeile = lng_zeile + 1
Loop
   
End Sub

Gruß Regina 

Moin,

vielen Dank, dass ist genau, was ich gebraucht habe :)

SteBen

schauan

ReginaR

SteBen