Zahlenformat "0000"
06.08.2006 18:45:55
Wolfgang
mir hat der Kay dieses Makro geschrieben.
Mit diesem Makro suche ich in der Liste Tabelle: DATA; Spalte: A2:A1000 ob die Zahl schon vorhanden ist.
Das Problem ist das die Zahlen haben das Format "0000" .
Darum werden die Zahl 1, 11 usw. nicht gefunden korrekt gefunden.
Irgend wo muß "Str" für Zahlenformate eingesetzt werden.
Ich probiere es schon die ganze Zeit - bekomme aber immer nur eine Fehlermeldung oder die Zahlen werden nicht richtig gefunden.
Private Sub CommandButton18_Click()
Dim rngZahl As Range
With Sheets("DATA")
Set rngZahl = .Range("A2:A1000").Find(what:=Val(UserForm.TextBox1.Value))
If Not rngZahl Is Nothing Then
MsgBox "Objekt Nr. vorhanden in Datenbankliste DATA" & Chr(13) & _
"in Zeile " & rngZahl.Address, , "Objekt - Nr. suche"
Else
MsgBox "Objekt - Nr. ist laut Datenbankliste DATA noch nicht vergeben!", , "Objekt - Nr. suche"
End If
End With
Set rngZahl = Nothing
End Sub
Vielen Dank für die Hilfe
Gruß Wolfgang