Clever-Excel-Forum

Seiten: 1 2 3

(07.09.2019, 15:43)Tibor schrieb: [ -> ]Der code läuft zwar bei mir durch aber nicht wie gewünscht. Der text verlängert sich nach fast jeder zeile.....

Hallo, :19:

das war mein Fehler bzw. ohne Beispieldatei habe ich einfach die gleichen Werte zig mal kopiert und dann getestet. Das knallt natürlich in deiner (später nachgelieferten) Datei. Da muss aber nur noch eine Codezeile rein "objDic.RemoveAll", dann brummt das: :21:

Code:
ArrayA(j, 1) = Join(objDic.Keys, " ")

objDic.RemoveAll

Bei Uwes Code müsstest du hier...

Code:
Set rg = ActiveSheet.Range("A1:A1000").Value

noch das ".Value" weglöschen.

(08.09.2019, 13:19)Case schrieb: [ -> ]Bei Uwes Code müsstest du hier...

Code:
Set rg = ActiveSheet.Range("A1:A1000").Value

noch das ".Value" weglöschen.

autsch.

Das sollte eigentlich so aussehen:

  Set rg = ActiveSheet.Range("A1:A1000")

  vDat = rg.Value

Danke Ralf. :100:

Gruß Uwe

Danke an Ralf und Uwe, das hat gepasst! :)

Seiten: 1 2 3

Case

Kuwer

Tibor