VBA Neue Spalte erstellen, Zellen verketten.
18.09.2024 12:57:40
Ener83
ich benötige für ein kleines Excel Projekt Hilfe.
Ich möchte mit Hilfe VBA vor einer bestimmten Spalte eine leere Spalte einfügen, die 2 Spalten rechts daneben in der neuen verketten
Ich Habe versucht dies aufzuzeichnen.
Funktioniert!
Jedoch möchte ich das noch etwas abändern, wenn ich versuche den code zu verändern, bekomme ich es nicht wie gewünscht hin.
-Ich möchte das Makro später aus der Symbolleiste starten ,aktuell müsste ich Spalte B markieren.
-Aktuell habe ich eine Range angegeben bis wohin Spalten verkettet werden sollen. Ich möchte aber das Excel erkennt bis zu welcher Spalte es Werte gibt und automatisch bis dort hin verkettet.( denke mit bestimmter Range wäre auch okay aber so fände ich es interessanter).
Ich danke euch im voraus
Sub verketten()
'
' verketten Makro
'
'
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[1],"" "",RC[2])"
Range("B1").Select
Columns("B:B").EntireColumn.AutoFit
Selection.AutoFill Destination:=Range("B1:B264"), Type:=xlFillDefault
Range("B1:B264").Select
Range("B2").Select
ActiveWindow.SmallScroll Down:=-15
Range("B1").Select
End Sub
Anzeige