|
Hallo, ich habe folgenden Quellcode
For Each rngErgebnis In Range("B:B")
If Left(rngErgebnis, 3) = "BO_" Then
With .Cells(rngErgebnis.Row, 1).Resize(, 1)
.FormulaR1C1 = _
"=CONCATENATE(RC[1],RC[4],RC[5] ,RC[6],RC[3])"
'Formel in Wert
.Value = .Value
End With
'Next i
End If
Next rngErgebnis
Als Ergebnis werden die Werte in jeder benötigen Spalte in eine Zelle geschrieben und als String verpackt.
Hier kommt mein Einwand. Kann ich zwischen den Werten auch sonderzeichen oder Leerzeichen ergänzen?
Angenommen der Wert der Zelle RC[3] ist ABC, dann hätte ich gerne dass dort [ABC] steht.
wenn ich es aber wie folgt schreibe
.FormulaR1C1 = _
"=CONCATENATE(RC[1],RC[4],RC[5] ,RC[6],"[",RC[3],"]")"
dann kommt die Fehlermeldung: Fehler beim kompilieren.
Gruß Guest007
|