AW: Prima! Danke für die Rückmeldung. owT
18.12.2018 14:26:03
UweD
Hallo
so?
Sub Seriennummer()
Dim Zelle As Range, firstAddress As String
'Automatisierung per Button
ser_num = Sheets("GUI").Range("B20").Value
Debug.Print "ser_num = " & ser_num
ser_num_no = ohne_sonder(ser_num)
Debug.Print "ser_num_no = " & ser_num_no
ser_num_regex = sernum_regex(ser_num_no)
Debug.Print "ser_num_regex = " & ser_num_regex
With Sheets("Serialnr. List")
Set Zelle = .Cells.Find(What:=ser_num_regex, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not Zelle Is Nothing Then
firstAddress = Zelle.Address
Do
Zelle.Select
MsgBox "weiter"
'mach was damit
Set Zelle = .Cells.FindNext(Zelle)
Loop While Not Zelle Is Nothing And Zelle.Address <> firstAddress
Else
MsgBox ser_num & " nicht vorhanden."
End If
Debug.Print "Ende"
End With
'Cells.Find(What:=ser_num_regex, After:=ActiveCell, LookIn:=xlValues, _
' LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
' MatchCase:=False, SearchFormat:=False).Activate
End Sub
LG UweD