habe ein Problem mit einer Comboliste.
Wollte durch die Auswahl von "Other" in einer Comboliste, eine neue Spalte
erzeugen lassen, damit man dort dann das andere, hier Segment, eingeben kann.
hatte schon etwas probiert, hat aber leider nicht funktionert:
Private Sub ComboBox1_Change()
If ComboBox1.Value = "Select..." Then
Sheets("A").Select
ElseIf ComboBox1.Value = "Other" Then
Range("E9:E38").Select
Selection.Insert Shift:=xlToRight
Range("E11").Select
ActiveCell.FormulaR1C1 = "Which other Sub-Segment?"
Range("E11").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
End If
End Sub
Er hat ein Problem mit folgender Zeile:
Selection.Insert Shift:=xlToRight
Wisst ihr woran das liegt?
Gruß
Reno