Teil/Gesamtlieferschein

Bild

Betrifft: Teil/Gesamtlieferschein
von: johfri
Geschrieben am: 02.03.2005 13:39:29
Hallo,
in meiner arbeitsmappe kann ich zu meinem schon vorhandenen lieferschein mit der Taste "F12" weitere lieferscheine einfügen. ich möchte die artikelnummern und die mengen in einen gesamtlieferschein übertragen. wenn gleiche artikelnummern auftreten, sollen die dazugehörigen mengen addiert werden, um doppelte einträge im gesamtlieferschein zu vermeiden.
Leider kenne ich mich mit vba zu wenig aus um dieses problem zu bewältigen.
ich habe eine beispiel-datei beigefügt um das problem besser darzustellen.
https://www.herber.de/bbs/user/19084.xls

Bild

Betrifft: AW: Teil/Gesamtlieferschein
von: Herbert H.
Geschrieben am: 02.03.2005 17:57:17
hallo jofri,
übersteigt normal den Forumsrahmen...


Public Sub Übersicht_erstellen()
Dim shA As Worksheet, shG As Worksheet
Dim As Byte, s As Byte, z As Byte
Dim lz As Byte, lzsh As Byte, sumG%
Set shA = Sheets("Artikel")
Set shG = Sheets("Gesamtlieferschein")
Application.ScreenUpdating = False
shG.[d7:d15].Value = shA.[b2:b10].Value
shG.[b7:b15].Value = shA.[a2:a10].Value
For z = 7 To 15
  For s = 1 To Worksheets.Count - 2
    lzsh = Sheets(s).Cells(Rows.Count, 4).End(xlUp).Row
       For i = 8 To lzsh
         If shG.Cells(z, 4) = Sheets(s).Cells(i, 4) Then
          sumG = sumG + Sheets(s).Cells(i, 3)
        End If
      Next
   Next
 shG.Cells(z, 3) = sumG
   If sumG = 0 Then
    Range(shG.Cells(z, 2), shG.Cells(z, 4)).ClearContents
   End If
 sumG = 0
Next
Range("B7:I30").Sort Key1:=Range("D7"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("G27").Select
    
Application.ScreenUpdating = True
End Sub

     gruß Herbert
Bild

Betrifft: AW: Teil/Gesamtlieferschein
von: johfri
Geschrieben am: 02.03.2005 19:46:40
hallo herbert!
vielen dank, das hat mir unglaublich viel geholfen!!!!!!
mfg johfri
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Fortlaufende Nummerierung"