Wert schon in Liste vorhanden dann unten aufführen
10.05.2004 13:07:13
koschi
ich möchte mich schon jetzt für Eure Hilfe bedanken.
Mein Problem ist folgendes.
Ich habe immer neue Gerätenummern, die ich eintragen muss. Nun möchte ich sicher sein, das in die Liste (ca 600 Einträge) keine doppelten Einträge kommen.
Habe schon ein Makro gefunden was fast für mich passt. Aber eben nur fast.
Ich trage auf der Zelle O17 die Nummer ein und die Liste ist in Spalte D.
Was ich noch möchte ist, das ich das Makro über eine Schaltfläche ausführen will und nicht wenn ich die Zelle verlasse.
Hier das gefundene Makro
ClassModule: Tabelle2
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer
If Target.Address <> "$A$1" Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If WorksheetFunction.CountIf(Columns(1), Target.Value) > 1 Then
MsgBox "Wert ist schon vorhanden!"
Else
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(iRow, 1).Value = Target.Value
End If
End Sub
Gruß Koschi