AW: USerform und MSGBox
03.04.2008 17:36:00
Gabi
Private Sub CommandButton1_Click()
If Me.TextBox4.Value = "" Or TextBox4.Value 180 Then 'Obergrenze der _
Temperatur
MsgBox "Mittlere Fluidtemperatur muß zwischen 0° und 180° liegen!" & vbCrLf & "Bitte richtigen _
Wert eingeben."
Else
X = Me.TextBox4.Value
IP = True
For i = 4 To 39
If X = Worksheets("Wasser (ideal)").Cells(i, 1).Value Then
Me.TextBox7.Value = Worksheets("Wasser (ideal)").Cells(i, 2).Value
Me.TextBox8.Value = Worksheets("Wasser (ideal)").Cells(i, 14).Value
Me.TextBox9.Value = Worksheets("Wasser (ideal)").Cells(i, 4).Value
Me.TextBox10.Value = Worksheets("Wasser (ideal)").Cells(i, 12).Value
IP = False
End If
Next i
If IP = True Then
For j = 4 To 39 ' die 39 steht für die max zeilenanzahl
If X Worksheets("Wasser ( _
ideal)").Cells(j - 1, 1).Value Then
t1 = Worksheets("Wasser (ideal)").Cells(j, 1).Value
t2 = Worksheets("Wasser (ideal)").Cells(j - 1, 1).Value
t11 = Worksheets("Wasser (ideal)").Cells(j, 1).Value
t22 = Worksheets("Wasser (ideal)").Cells(j - 1, 1).Value
t111 = Worksheets("Wasser (ideal)").Cells(j, 1).Value
t222 = Worksheets("Wasser (ideal)").Cells(j - 1, 1).Value
t1111 = Worksheets("Wasser (ideal)").Cells(j, 1).Value
t2222 = Worksheets("Wasser (ideal)").Cells(j - 1, 1).Value
d1 = Worksheets("Wasser (ideal)").Cells(j, 2).Value
d2 = Worksheets("Wasser (ideal)").Cells(j - 1, 2).Value
d11 = Worksheets("Wasser (ideal)").Cells(j, 14).Value
d22 = Worksheets("Wasser (ideal)").Cells(j - 1, 14).Value
d111 = Worksheets("Wasser (ideal)").Cells(j, 4).Value
d222 = Worksheets("Wasser (ideal)").Cells(j - 1, 4).Value
d1111 = Worksheets("Wasser (ideal)").Cells(j, 12).Value
d2222 = Worksheets("Wasser (ideal)").Cells(j - 1, 12).Value
interpolieren
End If
Next j
End If
End If
Me.Hide
End Sub