Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Teil/Gesamtlieferschein

Teil/Gesamtlieferschein
02.03.2005 13:39:29
johfri
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teil/Gesamtlieferschein
02.03.2005 17:57:17
Herbert
hallo jofri,
übersteigt normal den Forumsrahmen...


Public Sub Übersicht_erstellen()
Dim shA As Worksheet, shG As Worksheet
Dim i 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
Anzeige
AW: Teil/Gesamtlieferschein
02.03.2005 19:46:40
johfri
hallo herbert!
vielen dank, das hat mir unglaublich viel geholfen!!!!!!
mfg johfri

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige