Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1368to1372
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

verschiedene Produktgrößen Länge & Breite klassizi

verschiedene Produktgrößen Länge & Breite klassizi
10.07.2014 13:03:04
Joachim
Hallo ihr lieben Excel Mechaniker :-)
habe hier eine Tabelle (14000 Zeilen) mit Teppichen die verschiedene Maße haben.
Die sollen jetzt klassizifiert werden.
z.B. Teppich 41*64 cm soll in Klasse 40*60 rein.
Ich habe mir eine extra Datei gemacht mit den Differenzmaßen.
z.B. alles mit 38 bis 45 Länge und alles mit 58 bis 66 cm Breite soll in die 40*60 Klasse rein. Dazu habe ich mir eine qm Liste mit Anfang und Ende der qm gemacht.
Alles, was sich in dem Bereich von qm Anfang und qm Ende befindet soll in die Klasse 40*60 rein.
Hoffe, ihr versteht das soweit.
Anbei die Exceldatei.
https://www.herber.de/bbs/user/91456.xls
Gruss Werner

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: verschiedene Produktgrößen Länge & Breite klassizi
10.07.2014 14:33:06
fcs
Hallo Werner,
kopiere die Texte in Spalte N nach Spalte T.
Dann kannst du mit folgender Formel in J2 die Klasse berechnen:
=SVERWEIS(I2;$R$2:$T$12;3;WAHR)

Diese Formel kannst du dann bis zum Ende der Liste kopieren.
Gruß
Franz

AW: verschiedene Produktgrößen Länge & Breite klassizi
10.07.2014 14:49:36
Joachim
Hallo Franz,
das Leben kann so einfach sein :-))
Supi, vielen Dank !!!

AW: verschiedene Produktgrößen Länge & Breite klassizi
13.07.2014 17:52:44
Adis
Hallo
anbei ein kleines Makro. Bitte prüfen ob alle Werte stimmen. (ohne Gewehr)
Ein Teppich konnte nicht zugeordnet werden, lag ausserhalb der Maximalwerte
Zeile A25 Artikel: 59180 Baktiyari Cream, Masse: 425x306
Meine Liste ist bis Zeile 200 ausgelegt. s. End-Adressen
Sub Teppiche_klassifizieren()
EndLänge = Range("E200").End(xlUp).Address
EndLängMax = Range("O30").End(xlUp).Address
'Schleife zum ausfüllen der Klassen
For Each k In Range("E2", EndLänge)
Länge = k.Value:  LängTxt = ""
For Each lä In Range("O2", EndLängMax)
If lä.Value > Länge Then
LängTxt = lä.Cells(1, 0).Value
k.Cells(1, 6) = LängTxt:  Exit For
End If
Next lä
Next k
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige