Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1516to1520
1516to1520
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateienliste als variablen Text

Forumthread: Dateienliste als variablen Text

Dateienliste als variablen Text
30.09.2016 10:14:54
Frank
Hallo zusammen,
ich habe mich etwas schwer getan, eine sinnvolle Betreffzeile zu formulieren. Ich suche eine Formel für folgendes Beispiel:
A= Artikelnummer
C= bilder zum Artikel ( Artikelnummer und Bilder unterschieden sich nur am Ende...)
G= Ergebnis
Userbild
Also eine Formel soll nach anhand von A die entsprechenden Werte unter C finden und entsprechend unter G eintragen.
Hatt jemand eine Idee für mich?
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Warum hängst du Bilder an..
30.09.2016 10:28:49
UweD
und keine Datei?
als VBA
30.09.2016 11:27:01
UweD
Hallo
Sub sdsds()
    Dim TB, LRa%, LRc%, i%, j%, AA$, BB$, CC$
    Set TB = Sheets("Tabelle1")
    With TB
        LRa = .Cells(.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte 
        LRc = .Cells(.Rows.Count, "C").End(xlUp).Row
        For i = 1 To LRa
            AA = .Cells(i, 1)
            For j = 1 To LRc
                BB = .Cells(j, 3)
                CC = Left(BB, InStr(BB, "_") - 1)
                If AA = CC Then
                    .Cells(i, 7) = .Cells(i, 7) + BB & ";"
                End If
            Next j
            If Len(.Cells(i, 7)) > 0 Then
                .Cells(i, 7) = Left(.Cells(i, 7), Len(.Cells(i, 7)) - 1)
            End If
        Next i
    End With
End Sub
LG UweD
Anzeige
AW: Dateienliste als variablen Text
30.09.2016 14:49:36
Frank
funktioniert wunderbar - vielen Dank !
Danke für die Rückmeldung owT
30.09.2016 15:18:10
UweD
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige