Sub CompareWith(ServerNumber As String)
Dim shSrc As Worksheet
Dim rngSrc As Range, rngSrcFound As Range
Dim shDest As Worksheet
Dim rngDest As Range, rngDestFound As Range
Set shSrc = ActiveWorkbook.Worksheets("Tabelle1")
Set shDest = ActiveWorkbook.Worksheets("Tabelle2")
Set rngSrc = Intersect(shSrc.UsedRange, shSrc.Columns(4))
Set rngDest = Intersect(shDest.UsedRange, shDest.Columns(3))
Set rngSrcFound = rngSrc.Find(what:=ServerNumber)
If Not rngSrcFound Is Nothing Then
Set rngDestFound = rngDest.Find(what:=ServerNumber)
If rngDestFound Is Nothing Then
shDest.Activate
shDest.Cells(rngDest.Rows.Count + 1, rngDest.Column).Value = "Private Pinur Machi (Pripi" & ServerNumber & ".ab.cd.efg / 3344)"
End If
End If
End Sub