Sub Beispiel()
'Public Variable für alle Prozeduren im Projekt
'Deklaration Variablen
Dim Druckfestigkeit As String, Biegezugfestigkeit As String
Dim Druckfestigkeit_gegeben_min As String, Druckfestigkeit_gegeben_max As String
Druckfestigkeit_gegeben_min = 45
Druckfestigkeit_gegeben_max = 65
Druckfestigkeit = Application.InputBox( _
prompt:="Bitte Druckfestigkeit angeben", Type:=1)
If ((Druckfestigkeit > Druckfestigkeit_gegeben_min) & (Druckfestigkeit < Druckfestigkeit_gegeben_max)) Then
MsgBox ("zulässig")
Else: MsgBox ("unzulässig")
End If
End Sub
Guten Morgen,
ich steh etwas auf dem Schlauch.
An welcher Stelle sind den die Typen unverträglich?
Kann mir jemand auf die Sprünge helfen?
Viele Grüße
Daniel Fröhlich
|