kamm man folgendes auch kürzer fassen?
'Bestimmen der Zellen
y2_hilf = 17 + 1
Text = "B" & y2_hilf 'Zelle B18
y1_hilf = 17 - 1
Text1 = "B" & y1_hilf 'Zelle B16
x2_hilf = 17 + 1
Text2 = "A" & x2_hilf 'Zelle A18
x1_hilf = 17 - 1
Text3 = "A" & x1_hilf 'Zelle A16
'Auslesen der Zellwerte
y2 = Range(Text).Value
y1 = Range(Text1).Value
x2 = Range(Text2).Value
x1 = Range(Text3).Value
Danke