Typen unverträglich
15.08.2013 10:26:04
JACKD
ich steh mal wieder aufm Schlauch und benötige Hilfe.
Und zwar möchte ich in verschiedenen Zellen einen Bindestrich suchen.
Das versuch ich damit
Sub opszerlegen()
With Worksheets("Tabelle1")
For i = 1 To 20
If InStr(.Cells(i, 1), "-", -1) = 0 Then
MsgBox "nich" & .Cells(i, 1)
Else
MsgBox "jo" & .Cells(i, 1)
End If
Next i
End With
End Sub
Und so sehen die Daten dazu aus
Tabelle1
| A | |
| 1 | 582211 |
| 2 | 8915 |
| 3 | 6-003.9 |
| 4 | 57860 |
| 5 | 58542b |
| 6 | 582261 |
| 7 | 5829d |
| 8 | 5829e |
| 9 | 58006h |
| 10 | 5829g |
| 11 | 8-120 |
| 12 | 6-004.09 |
| 13 | 6-003.9 |
| 14 | 6-002.p0 |
| 15 | 5-916.a3 |
| 16 | 5-916.a3 |
| 17 | 5-893.xb |
| 18 | 5-537.4 |
| 19 | 5-537.4 |
| 20 | 5-500.0 |
XHTML Tabelle für Darstellung in Foren,
einschl. Bedingter Formatierung ab Version 2007
XHTML-Version 11.26
Jetzt passiert folgendes
bei den ersten beiden sagt er, er hat keinen Bindestrich .. soweit richtig
beim 3. kommt dann allerdings "Typen unverträglich"
Ich glaube es hat was mit der Art der Zellinhalte (Zahlen buchstaben punkte und Bindestriche gemischt) zu tun. Weiß aber leider nicht damit umzugehen
Vielleicht hat ja jemand eine Idee?
Thanks in advance