Phrasen je nach Umfang ihres Inhalts ergänzen

Hallo,

ich habe eine Tabelle mit verschiedenen Phrasen, z.B. „Bayer“ oder „Infineon Nokia“ oder „Dt.Bank EPCOS MLP“. Wie man sieht, bestehen sie aus vielfach aus mehreren Bestandteilen, sprich Firmennamen. Ich möchte nun, daß zu Beginn der Phrase für jeden Firmennamen ein I davorgesetzt wird, so daß das Ergebnis für die oben angegebenen Beispiele so aussieht:
„I Bayer“ bzw. „II Infineon Nokia“ bzw. „III Dt.Bank EPCOS MLP“.

Grundsätzlich gibt es keine Beschränkung für die Anzahl der in einer Phrase enthaltenen Firmennamen, empirisch (wenn das die Arbeit vereinfacht) dagegen schon.

Gruß
Jörg

So geht´s.
Na Jörg, als Du mit dieser Frage hier nicht weitergekommen bist, hast Du wohl die andere oben formuliert, oder? Das Ergebnis von oben nehme ich hier einfach mal und ergänze die folgende Funktion:

Function Vervielfaeltige(String\_ As String, Anzahl\_ As Integer) As String
Dim i As Integer
 Vervielfaeltige = ""
 For i = 1 To Anzahl\_
 Vervielfaeltige = Vervielfaeltige & String\_
 Next i
End Function 'Vervielfaeltige

Die kommt einfach mit in das Modul.

Im Excel-Blatt steht dann „=Vervielfaeltige(„I“;ZaehleVorkommen(E15;E16)) & " " & E15“ (siehe Artikel oben).

Kristian

So geht´s auch:
Jörg,

ich hatte schon im Excel-Blatt darauf hingewiesen, daß es auch die Excel-Funktion „Wiederhole()“ gibt, womit mein identisch funktionierendes Makro natürlich überflüssig wird.

Kristian