Thema Datum  Von Nutzer Rating
Antwort
Rot Typen unverträglich
13.11.2020 11:49:22 Andi
NotSolved
13.11.2020 12:05:36 Gast27803
NotSolved
13.11.2020 12:08:39 Gast91865
*****
Solved
13.11.2020 13:20:46 RPP63
NotSolved
13.11.2020 13:23:43 Gast3210
NotSolved

Ansicht des Beitrags:
Von:
Andi
Datum:
13.11.2020 11:49:22
Views:
83
Rating: Antwort:
  Ja
Thema:
Typen unverträglich
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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Typen unverträglich
13.11.2020 11:49:22 Andi
NotSolved
13.11.2020 12:05:36 Gast27803
NotSolved
13.11.2020 12:08:39 Gast91865
*****
Solved
13.11.2020 13:20:46 RPP63
NotSolved
13.11.2020 13:23:43 Gast3210
NotSolved