Probleme mit Text und Zahlen...
20.04.2007 21:31:40
Timo
ich hab schon wieder was... ist ja auch schon spät :-)
die geprüfte Zelle enthält Zahlen (1234), Zahlen als string ("1234") oder Text ("abc")
es müssen alle Zahlen (1234 und "1234") geprüft werden, daher Umwandlung mit CInt
wenn nun Text ("abc") in der Zelle steht kommts zu Fehlern...
gibt es so was wie "on error resume next" für mehrere Codezeilen?
Die Ausgangsdaten kann ich leider nicht beeinflussen.
Sub Prüfung1()
For PVCounter = ErsterArt To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For KPCounter = 2 To Sheets("Artikel").Cells(Rows.Count, 1).End(xlUp).Row
If CInt(ActiveSheet.Cells(PVCounter, 1).Value) = _
CInt(Sheets("Artikel").Cells(KPCounter, 1).Value) Then
' Fehler abfangen, wenn Umwandlung fehlschlägt / PVCounter hochzählen
msgtmp = MsgBox(" Artikel " & ActiveSheet.Cells(PVCounter, 1).Value & " _
_
gefunden! ", vbOKOnly + vbExclamation, "")
PVStatus = True
Exit For
End If
Next
Next
End Sub
Anzeige