|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
19.10.2010 13:38:27 |
Helpless |
|
|
|
19.10.2010 13:42:46 |
helpless |
|
|
|
19.10.2010 17:19:42 |
Holger |
|
|
 Aw:Aw:Aw:Syntax Fehler....Typen unverträglich |
22.10.2010 14:17:49 |
helpless |
|
|
Von:
helpless |
Datum:
22.10.2010 14:17:49 |
Views:
912 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Syntax Fehler....Typen unverträglich |
Super Holger,
vielen Dank.....jetzt funktionierts:-)
Holger schrieb am 19.10.2010 17:19:42:
Hallo helpless,
du hast z.B. Kv als double (also als Zahl) dimensioniert, willst es aber mit einem Leerstring vergleichen.
Abhilfe: Dim kv as variant
oder
if ... Kv <> 0 ...
Gruß
Holger
helpless schrieb am 19.10.2010 13:42:46:
Helpless schrieb am 19.10.2010 13:38:27:
Hallo ich habe folgende anweisung unten eingegeben und jetzt bringt er mir ein Syntax Fehler....Warum??
Ganz unten hab ich die Komplette Programmierung angehangen. Sorry es heisst nicht syntax sonder Typen unverträglich!!!!
1.
If ((Volstrom = "") And (Kv <> "") And (dp <> "")) Then
Volstrom = ((dp / Dichte) ^ 0.5 * 31.6 * Kv)
End If
2.
Private Sub cbn_Calculate_Click()
Dim Stoff As String
Dim Name As String
Dim Bank As Integer
Dim Comp As Integer
Dim Dichte As Double
Dim Volstrom As Double
Dim Kv As Double
Dim dp As Double
Dim V As Double
'---Eingabefelder----'
Stoff = Range("Stoff").Value
Bank = Range("Bank").Value
Comp = Range("Comp").Value
Temp = Range("Temp").Value
Druck1 = Range("Druck1").Value
Druck2 = Range("Druck2").Value
Kv = Range("Kv").Value
dp = Range("dp").Value
Volstrom = Range("Volstrom").Value
'-------------------------------------------------------
Windows("Stoffdaten.xls").Activate
Sheets(Stoff).Select
ActiveSheet.Range("t").Value = Temp
If (Stoff = "PPDS") Then
ActiveSheet.Range("Bank") = Bank
ActiveSheet.Range("Comp") = Comp
End If
Dichte = ActiveSheet.Range("ROL").Value
Name = ActiveSheet.Range("Name").Value
Range("Dichte").Value = Dichte
Range("Name").Value = Name
If ((Volstrom = "") And (Kv <> "") And (dp <> "")) Then
Volstrom = ((dp / Dichte) ^ 0.5 * 31.6 * Kv)
End If
Range("Volstrom").Value = Volstrom
End Sub |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- 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 geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- 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
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
19.10.2010 13:38:27 |
Helpless |
|
|
|
19.10.2010 13:42:46 |
helpless |
|
|
|
19.10.2010 17:19:42 |
Holger |
|
|
Aw:Aw:Aw:Syntax Fehler....Typen unverträglich |
22.10.2010 14:17:49 |
helpless |
|
|