Ergebniss in die untere Zeile setzen
29.06.2015 08:10:53
Larissa
habe eine Tabelle, in der das Paket-Gewicht mit Hilfe eines Makros am Anfang des Paketes gesetzt wird:
Stück Länge Paket-Nr. Gewicht Paket-Gewicht
1_____18360____101____183______343
2_____12360____101____150______
1_____1000_____101____10_______
2_____12360____102____150______160
3_____1000_____102____10_______
15____1500_____103____225______265
2_____2000_____103____40_______
würde aber die Paket-Gewichte am Ende des Paketes gesetzt haben:
1_____18360____101____183______
2_____12360____101____150______
1_____1000_____101____10_______343
2_____12360____102____150______
3_____1000_____102____10_______160
15____1500_____103____225______
2_____2000_____103____40_______265
hier mein Makro:
________________________________________________________________________________ Public Sub Zusammen_alle() Dim Mldg, Stil, Titel, Antwort Mldg = "Alle Paletten zusammenfassen ?" ' Meldung definieren. Stil = vbYesNo + vbQuestion + vbDefaultButton2 ' Schaltflächen definieren. Titel = "Palettierung" ' Titel definieren. Antwort = MsgBox(Mldg, Stil, Titel) ' Meldung anzeigen. If Antwort = vbYes Then ActiveSheet.Unprotect ("PE") Dim r As Integer, i As Integer r = 22 While Cells(r, 1).Value ____________________________________________________________________________
hat jemand eine Idee, was ich ändern muss