Hallo zusammen,
ich habe da ein kleines Problem mit mein VBA. Ich habe zwei Arbeitsmappen:
Mappenname 1. Verkaufte Artikel-Normal
Mappenname 2. Verkaufte Artikel
Kurz z. Erläuterung, es werden Daten von Arbeitsmappe Rechnung nach Verkaufte Artikel-Normal übermittelt, anschließend werden "alle Datensätze ab Zeile 10" nach Verkaufte Artikel ab Zeile 10 kopiert und sortiert.
Mein Ziel ist es, der letzte Datensatz in Arbeitsmappe: Verkaufte Artikel-Normal soll kopiert und sortiert werden und nicht alle Datensätze. Ich habe zwar mit mein Code experementiert, leider ohne Erfolg. Anbei mein 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 (funktioniert leider nicht!
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"
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