Hallo,
die eckigen Klammern sind eine Kurzform für Evaluate. Alles was in den Klammern steht wird mittels Evaluate ausgewertet. [B2] wäre dann die Range B2. Das ganze geht bei der Kurzform nicht mit Variablen. Es gehen zB folgende Dinge:
Sub Makro1()
'
Dim Zelleeins As Variant
Zelleeins = "A2"
Dim Zellezwei As Variant
Zellezwei = "A3"
Zelleeins = InputBox(" Zelle 1 die formatiert werden soll ")
Debug.Print Application.Evaluate(Zelleeins)
Debug.Print Range(Zelleeins).Value
With Tabelle1.Range(Zelleeins, Zellezwei).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65735
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
Auf "Select" sollte man am besten verzichten ... es ist in 99,9% der Fälle nicht notwendig mit Select zu arbeiten:
https://www.denisreis.com/excel-vba-bessere-performance-ohne-select/
https://dasdev.de/wie-man-die-verwendung-von-select-in-excel-vba-vermeidet/
Gruß
Michael
|