Tach schön,
hätte ein kleines Problem.
Sheets("Variablen").Range("e16").Value = 13
Sheets("Variablen").Select
Range("e15").Select
Dim a As Single
a = 21
Do Until a &gt 42
ActiveCell = a
a = a + 1
If ActiveCell = ("21") And Sheets("Variablen").Range("e16") = 13 Then
Länge21a = ActiveCell.Offset(0, 0)
Breite21a = ActiveCell.Offset(1, 0)
Bedarf21a = Sheets("EnEV").Range("i82")
.....
End If
Loop
Mit jedem Durchlauf soll auch der Wert auf dem anderen Tabellenblatt, also die 13 um eins wachsen?!
Wär über jede Hilfe dankbar.
Stefan