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?
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?