ich habe ein Range Objekt Range("A2:H2,A8:H12") für ein Diagramm und würde gerne mittels vba per Button die Spaltenzahl um 1 erhöhen sprich auf Range("A2:I2,A8:I12")
Kann man das irgendwie dynamisch machen?
Viele Grüße Chris
Sub a()
Dim MaxSpalte As Long
MaxSpalte = 8
Union(Range(Cells(2, 1), Cells(2, MaxSpalte)), Range(Cells(8, 1), Cells(12, MaxSpalte))).Select
MaxSpalte = MaxSpalte + 1
Union(Range(Cells(2, 1), Cells(2, MaxSpalte)), Range(Cells(8, 1), Cells(12, MaxSpalte))).Select
End Sub
Gruß Ralf