Hilfeeeee
Ralph
habe folgenden Code, der auch so ganz gut funktioniert. Wenn das was ich suche nicht da ist, dann bringt er mir einen Fehler.
Gruß Ralph
Private Sub Helleskl_Click()
Zei = Worksheets("Tabelle1").Range("A" & Rows.Count).End(xlUp).Row + 1
Dim Artikel As String
Range("U1") = "2"
Artikel = Range("AA1")
With Worksheets("Tabelle1").Range("j1:j500")
Set c = .Find(What:=Artikel, LookIn:=xlValues)
c.Activate
Cells(ActiveCell.Row, 6).Select
If Not c Is Nothing Then
Cells(ActiveCell.Row, 6) = Cells(ActiveCell.Row, 6) + 1
Cells(ActiveCell.Row, 7) = Cells(ActiveCell.Row, 5) * Cells(ActiveCell.Row, 6)
Else
Range("X1") = "1"
Range("s1:aa1").Copy
Worksheets("Tabelle1").Range("A" & Zei).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End If
End With
End Sub