Private
Sub
bandbreite_Change()
Dim
wb
As
Workbook
Dim
ws
As
Worksheet
Dim
Zeile
As
Long
Set
wb = ThisWorkbook
Set
ws = wb.Sheets(
"Tabelle1"
)
letztezeile = ws.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For
Zeile = 1
To
letztezeile
If
Me
.banddicke.Value = ws.Cells(Zeile, 2)
And
_
Val(
Me
.bandbreite.Value) = ws.Cells(Zeile, 3)
Then
Me
.gewicht = ws.Cells(Zeile, 4)
End
If
Next
Zeile
Me
.dicke =
Me
.banddicke.Value
Me
.Caption =
"Gewicht auf "
&
Me
.banddicke.Value &
"/"
&
Me
.bandbreite.Value
End
Sub