Hilfe bei Zahlenabgleich
05.05.2022 14:44:34
Pascal
ich habe ein vba skript zusammengeschustert mit welchem ich Rechnungsnummern abgleichen kann (können sollte)
https://www.herber.de/bbs/user/152891.xlsm
Problem: Es zeigt mit alle bereits bestehenden Ziffern als schon existierend an...
z.Bsp wenn ich die neue Rechnungsnummer "8" eingebe zeigt es an das bereits existent...
Wie kann idas gelöst werden..?
Vielen Danke für Eure Hilfe!
lg, pascal
makro:
Sub suche()
Dim c As Range
Dim LastRow As Long, ws As Worksheet
Nummer = InputBox("Rechnungsnummer eingeben")
With Sheets("Tabelle1").Range("a2:a5000")
Set c = .Find(Nummer, LookIn:=xlValues)
If Not c Is Nothing Then
MsgBox "Gefunden in Zeile: " & c.Row
Else
MsgBox "Nichts gefunden"
Set ws = Sheets("Tabelle1")
LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1
ws.Range("A" & LastRow).Value = Nummer
ws.Range("A" & LastRow).Offset(0, 1).Value = Format(Now, "dd/mm/yyyy")
End If
End With
End Sub