Live-Forum - Die aktuellen Beiträge
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

Unterscheidung Produkt A und B

Unterscheidung Produkt A und B
15.03.2018 10:24:23
Nele
Hallo,
ich habe letzte Woche danach gefragt:
''ich habe 2 Produkte und möchte über die Produktionsnummer, welche immer 7 Stellig ist, automatisch in meiner Excel Tabelle ausfüllen lassen um welches Produkt es sich handelt. Produkt A beginnt mit 1XXXXXX Produkt B mit 2XXXXXX ''
das habe ich jetzt mit eurer Hilfe so umgesetzt:
'Ausfüllen Unterscheidung der Baureihe A / B
If Target.Row > 7 And Target.Column If Left(Cells(Target.Row, 1), 1) = 1 Then
Cells(Target.Row, 27).Value = A
ElseIf Left(Cells(Target.Row, 1), 1) = 2 Then
Cells(Target.Row, 27).Value = B
End If
End Sub
Jetzt meine Frage,
Das Produkt A lässt sich nochmal unterscheiden in A1 und A2 dies ist an den letzten 3 Ziffern ihrer Produktionsnummer zu erkennen die immer gleich sind je Produkt
Beispiel:
Produkt A1= 1XXX 123
Produkt A2= 1XXX 456
wie kann ich das im oberen Code noch berücksichtigen ?
Grüße Nele

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Unterscheidung Produkt A und B
15.03.2018 10:29:26
Nele
Verbessere mich :
sind die vorderen 3 Nummern
Produkt A1: = 183XXXX und 124XXXX
Produkt A2: = 134XXXX und 153XXXX
AW: Unterscheidung Produkt A und B
15.03.2018 10:37:43
Rainer
Hallo Nele,

If Left(Cells(Target.Row, 1), 3) = "183" _
Or Left(Cells(Target.Row, 1), 3) = "124" _
Then Cells(Target.Row, 27)= "A1"
If Left(Cells(Target.Row, 1), 3) = "134" _
Or Left(Cells(Target.Row, 1), 3) = "153" _
Then Cells(Target.Row, 27)= "A2"
Anmerkung: Es braucht in diesem Falle kein "End If".
Gruß, Rainer
AW: Unterscheidung Produkt A und B
15.03.2018 10:43:11
UweD
'Ausfüllen Unterscheidung der Baureihe A / B 
    If Target.Row > 7 And Target.Column < 27 Then
        Select Case Left(Cells(Target.Row, 1), 3)
            Case 183, 124
                Cells(Target.Row, 27).Value = a1
            Case 134, 153
                Cells(Target.Row, 27).Value = a2
            Case Else
                If Left(Cells(Target.Row, 1), 1) = 2 Then
                    Cells(Target.Row, 27).Value = b
                End If
        End Select
    End If

Anzeige
AW: Unterscheidung Produkt A und B
15.03.2018 10:35:44
UweD
Hallo
so?
    If Target.Row > 7 And Target.Column < 27 Then
        If Left(Cells(Target.Row, 1), 1) = 1 Then
            If Right(Cells(Target.Row, 1), 3) = 123 Then
                Cells(Target.Row, 27).Value = A1
            ElseIf Right(Cells(Target.Row, 1), 3) = 456 Then
                Cells(Target.Row, 27).Value = A2
            End If
        ElseIf Left(Cells(Target.Row, 1), 1) = 2 Then
            Cells(Target.Row, 27).Value = B
            
        End If
    End If

LG UweD
Anzeige
AW: Unterscheidung Produkt A und B
15.03.2018 11:17:59
Nele
Hallo
Super,genau wie ich es wollte
Vielen Dank
Grüße Nele
Prima! Danke für die Rückmeldung. owT
15.03.2018 16:35:34
UweD

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige