Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Daten in Excel Tabelle ersetzen





Frage

Hallo, schreibe über Textfelder Namen, Adresse und Geburtsdatum in eine Liste. Wie kann ich es machen, das wenn ich zwei Mal die gleiche Eingaben mache die erste geloescht wird? D.h. das es z.B. keine zwei Müller gibt!? Vielen Dank im Voraus

Antwort 1 von Jocker55

habe eine Loesung mit folgendem Code gefunden,

Sub CommandButton1_Click()

Sheets("Sheet1").Activate

´zuerst sortieren
Columns("A:B").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom

´jetzt doppelte Sätze rausschmeißen
Range("A1").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value _
Then ActiveCell.EntireRow.Delete _
Else ActiveCell.Offset(1, 0).Select
Loop
End Sub

wei muss ich aber den Befehl veraendern wenn sich die Texteingabe Felder in einer anderen Tabelle befinden wie auch der Button zum sortieren der Liste?