Ich wünsche einen schönen Tag,
und hätte mal wieder ein Problem.
In einem vorhandenen Makro einer Exceltabelle möchte ich eine andere Funktion einbauen. Zum besseren Verständnis anschließend den Code:
Sub Prüfen1()
Dim Letzte_Zeile As Long, Wiederholungen As Long
Letzte_Zeile = Range("A65536").End(xlUp).Row
Application.ScreenUpdating = False
For Wiederholungen = Letzte_Zeile To 1 Step -1
If WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(Wiederholungen, 1)), _
Cells(Wiederholungen, 1)) > 1 Then
MsgBox "Gearbeitet"
MsgBox "Gelöscht"
Range("A" & Range("A65536").End(xlUp).Row).ClearContents
End If
Next
End Sub
Es wird also in D1 ein Wert eingegeben der mit einem Speicherbutton (Makro) fortlaufend in Spalte A abgespeichert wird.
Mit dem oben zu sehendem Makro überprüfe ich dann ob der Eintrag schon vorhanden ist. Über die Messageboxen lässt sich dieser dann löschen.
Ich möchte aber erreichen, das nach der Eingabe in D1 und dem anschließenden Abspeichern nach Spalte A mir sofort bei einem schon vorhandenen Duplikat , diese Zeile mit dem Duplikat angezeigt und nach oben (z.B. ab Zeile 2) gescrollt wird um diesen weiter zu bearbeiten. Es sollen also keine doppelten Einträge vorkommen ! Wenn der Eintrag noch nicht vorhanden ist, soll er wie bisher weiter in Spalte A geschrieben werden. Die Msg. Boxen würden dann natürlich entfallen.
Habe bisher im
Forum leider nichts annäherndes gefunden.
Ich hoffe auf Eure Hilfe
Danke
flori006