Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
1612to1616
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
Inhaltsverzeichnis

Etiketten Anzahl

Etiketten Anzahl
05.03.2018 14:16:12
Hans
Hallo Liebe Excel Gemeinde
Wie kriege ich es hin das wenn mir in der Artikelnummer HP oder RA drinsteht
dass mir Excel bei bis 1200 Stk 1 Etikette füllt und sonst 2 Etiketten bei z.b 1500 Stk
wenn kein HP oder RA drinsteht dann nur eine Etikette wenn Liefermenge kleiner als 6000 Stk
Hier der Auschnitt aus meinem Code zum Etiketten füllen:
If InStr(ArtNr, "HP") Or InStr(ArtNr, "RA") Then
If L_Menge > 1200 Then
L_MengeZ = L_Menge / 1200 + 0.5 '
A_Etik = Round(L_MengeZ, 0.91) ' Benötigte Etiketten Vorlagen werden ermittelt und abgerundet
Else
A_Etik = 1
End If
Else
A_Etik = 1
End If
If IsEmpty(ActiveCell.Offset(0, 5).Value) Then
LagerPlatz = " /"
Else
LagerPlatz = ActiveCell.Offset(0, 5).Range("A1").Value 'Lagerplatz
End If
' Vorlage ausfüllen
Vielen Dank im Voraus fürs Helfen
MFG Hans

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Etiketten Anzahl
05.03.2018 14:50:50
UweD
Hallo
das mit deinem Runden hast du nicht beschrieben.
Die Antwort auf die Kernfrage sähe so aus
Sub dgdgd()
    'Test 
    ArtNr = "aa HP 33"
    L_Menge = 1230
    
    If InStr(ArtNr, "HP") > 0 Or InStr(ArtNr, "RA") > 0 Then
        If L_Menge <= 1200 Then
            L_MengeZ = 1
        Else
            L_MengeZ = 2
        
        End If
    Else
        If L_Menge <= 6000 Then
            L_MengeZ = 1
        Else
            'wenn nicht HP / RA und größer 6000...Das hast du nicht geschrieben 
            L_MengeZ = 0

        End If
    End If
    
    MsgBox L_MengeZ
    
End Sub

LG UweD
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige