Variable var in FormulaLocal verwenden
04.06.2020 11:01:57
Daniel
ich erzeuge über ein Makro eine zusätzliche Spalte in meiner Tabelle und möchte die Daten aus einer Spalte in eine andere übertragen und dabei einen Zusatz hinzufügen.
Per Formel wäre das
= "Zusatz-" & "B2"
Bei meinem Makro funktioniert das allerdings nicht wie gewünscht.
Ich habe nun alles mögliche probiert mit Klammern, ohne, Klammern an verschiedenen Stellen;
aber irgend etwas übersehe ich.
Vielleicht findet euch jemand den Fehler und kann mir helfen
Bei dieser Variante erhalte ich als Ergebnis: Zusatz-B2:B38 ( habe 38 Zeilen in meinem Testordner )
Ich schaffe es aber nicht, dass in C2 dann Zusatz und die Daten von B2 stehen, in C3 das aus B3 _
usw.
Sub spalteneu()
Columns("C").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C1").Select
ActiveCell.FormulaR1C1 = "Bestellnummer"
Dim var As Long
var = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To var
Sheets("Orders").Range("C2:C" & var).FormulaLocal = "Zusatz-" & "B2:B" & var
Next i
Application.CutCopyMode = False
End Sub