VBA: Verkettete Strings in neues Excel File
Balu
Für jeden der a bisserl VBA kann ist das wohl ne einfache Sache aber ich bin einfach zu blöd für.
Folgendes.
In Spalte A stehen Strings die ich mit einem , verkette
In Spalte B stehen Strings die ich mit einem ; verkette
In Spalte B stehen Strings die ich mit einem --) verkette
usw.. bis Spalte O
Fragt nicht warum die Trennzeichen so unterschiedlich sind, das Nachfolgesystem kann die halt nur so verarbeiten - ansonsten würde ich über eine Schleife gehen
Ich habe also folgende Formel von A bis O (hier Beispiel A)
Dim c As Range, tmp As String
For Each c In Range("A2:A100")
If c "" Then
tmp = tmp & c & ","
End If
Next
tmp = Left(tmp, Len(tmp) - 1)
[A101] = tmp
tmp = ""
(2) Gibt es eine intelligente Lösung all diese Werte in ein Array zu schreiben? Denn eigentlich will ich die verketteten Werte inkl. Überschriftenzeile (A1, B1, C1,..) in eine neues Excelfile mit dem Originalnamen + Zusatz "merged" schreiben lassen.
Meine Versuche waren - mal wieder - fürn Hintern.
Workbook.Add
filesavename = Left(ActiveWorkbook.FullName, _
InStrRev(ActiveWorkbook.FullName, ("."), -1) - 1)
filesavename = filesavename & "merged" & _
Mid(ActiveWorkbook.FullName, InStrRev(ActiveWorkbook.FullName, (".")))
ActiveWorkbook.SaveAs (filesavename)