Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Spalte mit mit mehreren Spalten Vergleich und Spalte A ( Artikelnummer ) ausgeben
#1
Hallo Leute,

ich habe in der Spalte L eine BildURL die ich mit den Spalten B-K (BildURL) ( da mehere Bilder für einen Artikel existieren ) vergleichen möchte und die passende Artikelnummer in Spalte A ausgeben will.

Zeile 1:
Spalte A: M30K
Spalte B: media/catalog/product/i/m/image_23.png
Spalte C: media/catalog/product/k/_/k_5.png
Spalte D: leer
Spalte L: media/catalog/product/i/m/image_23.png

Hier soll rauskommen: M30K

Zeile 2
Spalte A: M30L
Spalte B: media/catalog/product/i/m/image_25.png
Spalte C: media/catalog/product/l/_/l_5.png
Spalte D: leer
Spalte L: media/catalog/product/k/_/k_5.png

Hier soll rauskommen: M30K da in der ersten Zeile die URL sich in Spalte C befindet.....

MfG

Valentin


Angehängte Dateien
.xlsx   Bsp.xlsx (Größe: 11,65 KB / Downloads: 7)
Antworten Top
#2
Moinmoin

mit Formeln hab ich es nicht so, daher hier mal eine Möglichkeit mit VBA


Code:
Sub test()
    Dim c As Range
    Dim strSuche As String
    Dim i As Long
    For i = 1 To Cells(Rows.Count, 12).End(xlUp).Row
        strSuche = Cells(i, 12).Value
        Set c = Columns("B:C").Find(strSuche, LookIn:=xlValues, lookAT:=xlWhole)
        If Not c Is Nothing Then
            Cells(i, 16).Value = Cells(c.Row, 1).Value
        End If
    Next
End Sub

es wird im aktiven Tabellenblatt gesucht
die Ausgabe erfolgt in Spalte P (16)

MfG Tom
Antworten Top
#3
Hier wird auch darüber nachgedacht...
http://www.office-hilfe.com/support/show...-aus-Spalt
VG
von René und seinen 3 Gehirnzellen

Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste