ich habe ein Problem bzgl. meines Makros, welches eine neue Spalte einfügen soll. Nämlich soll das so geschehen, dass das Programm erstmal die Spalte finden soll, in der sich in der 6.Zeile der Eintrag "Budget befindet" (Die Position dieser Spalte ändert sich stetig). Danach soll links von dieser gefundenen einen neue leere Spalte eingefügt werden und anschließend noch ein bestimmter Eintrag in dieser neuen Spalte erfolgen. Ich habe bereits mehrere Ansätze gefunden, jedoch wird bei meinem Makro ein Laufzeitfehler angezeigt. Wo liegt genau mein Fehler?
Sub NeueSpalte()
Dim spBudget As Long 'SpaltenNr der Budget-Spalte
spBudget = ActiveSheet.Rows(6).Find(What:="Budget", Lookat:=x1whole).Column 'Suchen der Spalte _
mit dem Eintrag "Budget"
Columns("spBudget:spBudget").Select 'Einfügen einer neuen Spalte links von der gefundenen _
Spalte
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Dim vers As String 'Eintragen der Versionsnummer
vers = InputBox("Geben sie bitte die neue Versionsnummer ein:")
Cells(6, ActiveCell.Column).Select
ActiveCell = vers
End Sub
Viele GrüßeAnito