Hallo,
ich habe ein VBA Code aus Forum bekommen, leider kann ich das nicht so anpassen, wie ich das gerne hätte. Folgendes Problem habe ich:
Aus der Tabelle "Verkaufte Artikel-Normal" soll nur der letzte Zeile nach Tabelle "Verkaufte Artikel" übertragen werden und nicht alle zeilen ab Zeile 10.
Hier der Code:
Sheets("Verkaufte Artikel-Normal").Activate
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Dim wks As Worksheet
Dim iQuell As Integer, iGetr As Integer
Dim lgZeile As Long, iZaehl As Integer
Set wks = Worksheets("Verkaufte Artikel")
'alle Zeilen in Verkaufte Artikel ab Zeile 10

'For lgZeile = 10 To Cells(65536, 1).End(xlUp).Offset(1, 0).Activate

'Ich glaube ich muss hier was machen, leider weis ich nicht wie!!!!!!
For lgZeile = 10 To Cells(65536, 1).End(xlUp).Row '(überträgt alle einzeln)


Range(Cells(lgZeile, 1), Cells(lgZeile, 6)).Copy wks.Cells(lgZeile, 1)
'alle "Getränke" in "Verkaufte Artikel Statistik"
For iGetr = 7 To 49
'alle Artikelbeschreibungen in "Verkaufte Artikel"
For iQuell = 8 To 60
If Cells(lgZeile, iQuell) = wks.Cells(9, iGetr) Then
iZaehl = iZaehl + Cells(lgZeile, iQuell - 1)
End If
Next
If iZaehl 0 Then
wks.Cells(lgZeile, iGetr) = iZaehl
Else
wks.Cells(lgZeile, iGetr) = ""
End If
iZaehl = 0
Next
Next
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic