ich brauche bitte hilfe. ich habe eine leere tabelle und möchte diese mit werten füllen. allerdings nur so, dass kein wert doppelt vorkommt. habe folgenden ausdruck, hänge jetzt aber. die kontrolle funktioniert, nur das einfügen in die nächste leere zelle der spalte A bekomme ich nicht hin.
hier der code:
Sub Schaltfläche1_KlickenSieAuf()
Dim str1 As String
Dim c As Range
With Worksheets("KONTROLLE").Range("A1:A1000")
str1 = InputBox("Artikel lesen", "Artikel")
Set c = .Find(str1, LookIn:=xlValues)
If Not c Is Nothing Then
MsgBox ("Artikel -- " & str1 & " -- bereits vorhanden"), vbExclamation, "ENDE"
Else
End If
End With
End Sub
könnt ihr mir da bitte helfen?danke!!
mike