Hallo zusammen,
ich bin in Makros erstellen ein anfänger. Ich habe folgendes Problem.
Ich möchte ein digitales bestellbuch erstellen. im Tab1 möchte ich alle bestellungen eintragen die gemacht worden sind. Wenn die bestellungen angekommen ist gebe ich das Datum der Lieferung an und über den Klick auf den Button wird alles in das Tab 2 kopiert.
Mein Problem ist das dass Makro die Dateien in Tab 2 ersetzt und nicht unten anheftet. Könnt ihr mir da weiterhelfen.
Vielen dank für eure Hilfe ein schönes Wocheende euch.
Option Explicit
Sub werteuebertragen()
Dim i As Integer, j As Integer, lMaxZeilen As Integer
lMaxZeilen = 79
j = 2
For i = 2 To lMaxZeilen
If Sheets("offene_Bestellungen").Cells(i, 7).Value <> "" Then
Sheets("abg._Bestellungen").Cells(j, 1).Value = Sheets("offene_Bestellungen").Cells(i, 1).Value
Sheets("abg._Bestellungen").Cells(j, 2).Value = Sheets("offene_Bestellungen").Cells(i, 2).Value
Sheets("abg._Bestellungen").Cells(j, 3).Value = Sheets("offene_Bestellungen").Cells(i, 3).Value
Sheets("abg._Bestellungen").Cells(j, 4).Value = Sheets("offene_Bestellungen").Cells(i, 4).Value
Sheets("abg._Bestellungen").Cells(j, 5).Value = Sheets("offene_Bestellungen").Cells(i, 5).Value
Sheets("abg._Bestellungen").Cells(j, 6).Value = Sheets("offene_Bestellungen").Cells(i, 6).Value
Sheets("abg._Bestellungen").Cells(j, 7).Value = Sheets("offene_Bestellungen").Cells(i, 7).Value
Sheets("abg._Bestellungen").Cells(j, 8).Value = Sheets("offene_Bestellungen").Cells(i, 8).Value
j = j + 1
End If
Next i
'Zeilen Löschen
For i = 2 To lMaxZeilen
If Sheets("offene_Bestellungen").Cells(i, 7).Value <> "" Then
Sheets("offene_Bestellungen").Rows(i).Delete
End If
Next i
End Sub
BG M.B
|