Office: Zelle mit Dropdown vergleichen und Löschen

Hallo,

ich habe eine Dropdown-Liste erstellt, mit einem Makro wird der gewählte Namen in einen unteren Zellbereich kopiert.

Ich bräuchte aber auch noch ein Makro um einen Namen wieder aus dem unteren Zellbereich zu löschen, für den Fall, dass hier eine falscher Name gewählt und kopiert wurde.

Ich hoffe, es ist verständlich und es kann mir wer helfen.

Gruß
Herbie

 

Hallo Herbie,

schau mit Find nach ob im Unteren Bereich die Auswahl schon vorhanden ist dan löschen.

Code:

Sub Find_Einmal()
    '   erstellt von [email]HajoZiplies@web.de[/email] 02.06.03
    Dim RaFound As Range
    Dim LoLetzte As Long
    Dim sSearch As String
    sSearch = Worksheets("Tabelle2").Range("A1")
    With Worksheets("Tabelle1")
        LoLetzte = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row, 65536)
        ' xlByRows  Suche zuerst in Zeilen
        ' xlByColumns Suche zuerst in Spalten
        Set RaFound = .Range("A1:A" & LoLetzte).Find(sSearch, .Range("A" & LoLetzte), , xlWhole, xlByRows, xlNext)
        If RaFound Is Nothing Then Exit Sub  'falls nicht gefunden wird Sub verlassen
        MsgBox RaFound.Row
    End With
    Set RaFound = Nothing
End Sub

Gruß Hajo

 

Hallo Hajo,

danke für die schnelle Antwort. Ich habe versucht es anzupassen, funtkionierte aber nicht so wie es soll.

Das Dropdownfeld liegt auf A5, von dort wird der Wert nach A10 kopiert. Gleichzeitig wird eine neue Zeile eingefügt, so dass die Namen weiter nach unten rutschen. Für mein gesuchtes Makro soll A5 mit dem Bereich A10:A50 verglichen werden und bei Gleichheit den gewünschten Namen aus dem unteren Zellbereich löschen.

 

Nochmal hallo,

ich habe das Problem gelöst, sicher nicht so schön, aber es funktioniert, schließlich bin ich Anfänger.

Ich habe den Wert direkt über die Liste kopiert und anschließend mittels Duplikate entfernen gelöscht.

Auf alle Fälle danke für die schnelle Antwort!!

Gruß
Herbie