Herbers Excel-Forum - das Archiv
Fehler 13, Typen unverträglich?
- Fehler 13, Typen unverträglich? von Heinz Nolle vom 11.11.2003 10:17:26
- AW: Fehler 13, Typen unverträglich? - von GerdW am 11.11.2003 12:39:34
- AW: Fehler 13, Typen unverträglich? - von Heinz Nolle am 11.11.2003 13:33:43
- AW: Fehler 13, Typen unverträglich? - von Heinz Nolle am 11.11.2003 13:33:43
- AW: Fehler 13, Typen unverträglich? - von GerdW am 11.11.2003 12:39:34
 |
Betrifft: Fehler 13, Typen unverträglich?
von: Heinz Nolle
Geschrieben am: 11.11.2003 10:17:26
Hallo,
ich habe eine Tabelle vorliegen bei der in Spalte A eine IP-Nummer steht und in M die zu zählenden Werte, siehe: https://www.herber.de/bbs/user/1869.xls
Deshalb habe ich ein Programm geschrieben welches die Werte links und rechts der Zeichen zusammenzählen soll (diese müssen getrennt gezählt werden), in Abhängigkeit von der IP-Nr.
Das Programm bleibt aber bei '##' stehen wegen Fehler 13, Typen unverträglich, aber ich weiß nicht was daran unverträglich ist.
----------------------------------------
BisZeile = ActiveSheet.UsedRange.Rows.Count
For Each Zelle In Range(Cells(1, 1), Cells(BisZeile, 1))
lZeile = lZeile + 1
'Medizin
If (Zelle = "170.193.15") Then
zMedizin = zMedizin + Right((Cells(lZeile, 3).Value), 2)
End If
If (Zelle = "180.75.162") Then
zMedizin = zMedizin + Right((Cells(lZeile, 3).Value), 2)
End If
If (Left(Zelle, 9) = "190.55.57") Then
## zMedizin = zMedizin + Right((Cells(lZeile, 3).Value), 2)
End If
-------------------------------------------------
Dann habe ich ein kleines Programm als Beispiel erstellt, und das funktioniert:
Private Sub CommandButton1_Click()
Dim zMedizin As Integer
Dim lZeile As Integer
Dim Zelle As Range
Dim BisZeile As Long
zMedizin = 0: lZeile = 0
BisZeile = ActiveSheet.UsedRange.Rows.Count
For Each Zelle In Range(Cells(1, 1), Cells(BisZeile, 1))
lZeile = lZeile + 1
If (Left(Zelle, 9) = "170.193.15") Then
zMedizin = zMedizin + Right((Cells(lZeile, 3).Value), 2)
End If
Next Zelle
MsgBox zMedizin
End Sub
------------------------------------------------
Weiß vielleicht jemand worin im obrigen Programm die Unverträglichkeit bestehen soll? Ich finde einfach keinen Fehler. Danke.
Heinz
 |
Betrifft: AW: Fehler 13, Typen unverträglich?
von: GerdW
Geschrieben am: 11.11.2003 12:39:34
Variable dürfen nicht mit derartigen # Zeichen beginnen. Hättest du die
deklariert, hatte das der Compiler schon angemeckert.
Gerd
|
Betrifft: AW: Fehler 13, Typen unverträglich?
von: Heinz Nolle
Geschrieben am: 11.11.2003 13:33:43
Das '##' soll nur die Stelle markieren an der die Fehlermeldung kommt.
Heinz
| |