Office: Inhalte vertikal kopieren

Hallo,

ich sollte für jede Zahl die in der Spalte A steht, Zellen mit Text einfügen. Als Beispiel siehe Bild.
Stehe auf dem Schlauch.

Würde mich über Hilfe freuen.

Vielen Dank.

 

Hallo,

wo kommen die Texte denn her? Aus einer anderen Liste? Dann ginge das mit dem SVerweis.

 

Die Texte sind leider in keiner anderen Datei. Ich muss eine csv Datei für einen Import erstellen und diese Texte muß ich den Zahlen aus der Spalte A hinzufügen.

 

Hi,

dann mach es halt. Mehr kann man bei der dürftigen Beschreibung leider nicht sagen.

Du solltest zumindest mal verraten, wie dein aktuelle Ausgangssituation aussieht. Am besten, indem du eine Excel-Beispieldatei (Achtung! Eine Excel-Datei ist nicht dasselbe wie ein Bild!) hier hochlädst, in der deine jetzige Situation dargestellt ist. Also Zahlen und Texte sollten vorhanden sein, und zwar so, wie du sie aktuell hast. Und es sollte auch ein händisch erzeugtes Wunschergebnis vorhanden sein.

 

In der Anlage die Excel-Datei. Gegeben ist die Spalte A mit den 5-stelligen Kundennummern.

Zu jeder Kundennummer in der Spalte A sollen in der Spalte B die Begriffe: Buchhaltung, Einkauf, Lager, Newsletter, Bestellbestätigung hinzugefügt werden.

 

Hallo,

sollte für jede Kundennummer der gleiche Text stehen?

 

Hi,

das kannst du z.B. mit folgendem Makro machen:

Code:

Sub Ergaenzen()
    Dim lngZeile As Long
    For lngZeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) To 8 Step -1
        Range(Cells(lngZeile + 1, 1), Cells(lngZeile + 5, 1)).EntireRow.Insert
        Range("B2:B7").Copy Cells(lngZeile, 2)
    Next lngZeile
End Sub

Lege dir zur Sicherheit eine Kopie des Originaltabellenblattes an, denn die Änderung durch das Makro kannst du nicht rückgängig machen.

---

 

Ja, für jede Kundennummer soll der gleiche Text stehen.

 

Hallo,

als Formel.

 

Herzlichen Dank Kalk.