Office: (Office 2016) Inhalte in einer einzigen Zelle verbinden, wenn die Kunden-Nr. identisch ist

Helfe beim Thema Inhalte in einer einzigen Zelle verbinden, wenn die Kunden-Nr. identisch ist in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo alle zusammen, irgendwie stehe ich auf dem Schlauch! Ich habe eine Liste, die Artikelnummern beinhaltet und die Kunden-Nr. dazu. Heißt,... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von markusrh, 31. Oktober 2019.

  1. markusrh Neuer User

    Inhalte in einer einzigen Zelle verbinden, wenn die Kunden-Nr. identisch ist


    Hallo alle zusammen,

    irgendwie stehe ich auf dem Schlauch!

    Ich habe eine Liste, die Artikelnummern beinhaltet und die Kunden-Nr. dazu. Heißt, dass manche Kunden nur 1 Artikel bestellt haben, andere wiederum ganz viele.

    Was ich nun brauche: In einer einzelnen Zelle sollen alle Artikel-Nr. (S-Verweis) verkettet werden, die die gleiche Kunden-Nr. haben. Das hier ggf. mehrere Steps notwendig sind, ist mir klar!

    Inhalte in einer einzigen Zelle verbinden, wenn die Kunden-Nr. identisch ist Verkettung_Artikelnummern pro Kunde.JPG

    Könnt ihr mir auf die Sprünge helfen?

    Vielen Dank für Eure Hilfe,
    Markus
     
    markusrh, 31. Oktober 2019
    #1
  2. Beverly
    Beverly Erfahrener User
    Hi Markus,

    wenn die Daten so wie in deinem Beispiel nach Spalte B sortiert vorliegen, dann kannst du folgendes Makro dazu verwenden:

    Code:
    Sub Zusammen()
        Dim lngZeile As Long
        Dim strZusammen As String
        Dim lngZiel As Long
        Dim lngAnzahl As Long
        Dim lngSchleife As Long
        lngZiel = 2
        For lngZeile = 2 To Columns(2).Find(What:="*", SearchOrder:=xlByRows, _
            SearchDirection:=xlPrevious).Row
            Cells(lngZiel, 11) = Cells(lngZeile, 2)
            lngAnzahl = Application.CountIf(Columns(2), Cells(lngZeile, 2))
            If lngAnzahl > 1 Then
                For lngSchleife = lngZeile To lngZeile + lngAnzahl - 1
                    strZusammen = strZusammen & Cells(lngSchleife, 8) & " / "
                Next lngSchleife
                strZusammen = Left(strZusammen, InStrRev(strZusammen, " / "))
                lngZeile = lngZeile + lngAnzahl - 1
            Else
                strZusammen = Cells(lngZeile, 8)
            End If
            Cells(lngZiel, 12) = strZusammen
            lngZiel = lngZiel + 1
            strZusammen = ""
        Next lngZeile
    End Sub
    
    
    Bis später,
    Karin
     
    Beverly, 31. Oktober 2019
    #2
Thema:

Inhalte in einer einzigen Zelle verbinden, wenn die Kunden-Nr. identisch ist

Die Seite wird geladen...
  1. Inhalte in einer einzigen Zelle verbinden, wenn die Kunden-Nr. identisch ist - Similar Threads - Inhalte einzigen Zelle

  2. Tabellen Inhalt an Dropdown Inhalt anpassen

    in Microsoft Excel Hilfe
    Tabellen Inhalt an Dropdown Inhalt anpassen: Hallo zusammen, ich bin neu hier im Forum und auch Anfänger was Excel betrifft. Aber ich denke ihr könnt mir bei meinem Problem helfen. Ich bin Dozent und habe eine Liste für meine einzelnen...
  3. Prüfen und Verketten von Zellen mit Formeln als Inhalt

    in Microsoft Excel Hilfe
    Prüfen und Verketten von Zellen mit Formeln als Inhalt: Sehr geehrte Damen und Herren, ich möchte in einer Excel Tabelle ca. 72 Zellen miteinander verketten und prüfen, ob diese gefüllt sind, falls manche dieser Zellen leer sind sollen diese aus der...
  4. Inhalt Textfeld fixieren

    in Microsoft Word Hilfe
    Inhalt Textfeld fixieren: Hallo zusammen, gibt es eigentlich die Möglichkeit, den Inhalt eines Textfeldes zu fixieren? Im Textfeld ist Schrift und gezeichnete Linien. Jedes mal wenn ich das Textfeld verschiebe, sollten die...
  5. Komischer Zahlen in der GUI + VBA bestimmte Zellen mit gewissen Inhalt nicht löschen

    in Microsoft Excel Hilfe
    Komischer Zahlen in der GUI + VBA bestimmte Zellen mit gewissen Inhalt nicht löschen: Hallo, ich bin neu hier im Forum, also bitte ich um Verständnis, wenn dies hier nicht der richtige Platz für dieses Thema ist. Ich habe 2 Anliegen. Auf dem ersten Bild könnt ihr die besagten...
  6. Excel wenn dann Inhalte übertragen

    in Microsoft Excel Hilfe
    Excel wenn dann Inhalte übertragen: Hallo, ich würde gern, wenn in einer Spalte ein Datum erfasst ist, weitere Daten in einen anderen Kartenreiter übertragen lassen. Bei erfasstem Eintrittsdatum, sollen die Daten in die nächste...
  7. Excel VBA Datei durchsuchen, Datentyp prüfen und bestimmten Inhalt auslesen

    in Microsoft Excel Hilfe
    Excel VBA Datei durchsuchen, Datentyp prüfen und bestimmten Inhalt auslesen: Hallo liebe Community, ich muss mit einem VBA-Code bei einer Nessus-Datei prüfen, ob bei einer Stelle wo normalerweise eine IP-Adresse stehen sollte ein Hostname steht(z.B. HSTSERV02) (müsste...
  8. Nur Zeilen mit Inhalten in ein neues Blatt übernehmen

    in Microsoft Excel Hilfe
    Nur Zeilen mit Inhalten in ein neues Blatt übernehmen: Hallo, ich möchte den eingefügten Inhalt eines Tabellenblattes zu Weiterverarbeiten automatsch in einem neuen Blatt ausgeben. Dabei möchte ich leere Zeilen bzw. alle Zeilen mit dem Wert 0...
  1. Froschkoenig84
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden