doppelte Werte nicht neu eintragen!
21.10.2013 11:16:31
Snewi
ich hab mehrere Textfelder, von diesen der Inhalt bei Übernahme einfach immer untereinander in die nächste freie Zeile eingetragen wird!
Wenn jetzt in den Textfeldern das gleiche drin stehen würde wie in der Tabelle schon vorhanden, würde trotzdem eingetragen!
Wie kann ich es machen das bei gleichem Inhalt der schon vorhanden ist nichts eingetragen wird?
Private Sub cmd_eintragen_Click()
Dim x As Integer
x = Range("D13").End(xlDown).Row + 1
Cells(x, 4).Value = lbl_von.Caption
Cells(x, 5).Value = lbl_bis.Caption
Cells(x, 7).Value = t_1021kg.Value
Cells(x, 8).Value = t_1021wa.Value
Cells(x, 9).Value = t_1022kg.Value
Cells(x, 10).Value = t_1022wa.Value
Cells(x, 11).Value = t_1023kg.Value
Cells(x, 12).Value = t_1023wa.Value
Cells(x, 13).Value = t_1024kg.Value
Cells(x, 14).Value = t_1024wa.Value
Cells(x, 15).Value = t_1026kg.Value
Cells(x, 16).Value = t_1026wa.Value
Cells(x, 17).Value = t_1028kg.Value
Cells(x, 18).Value = t_1028wa.Value
Cells(x, 19).Value = t_1031kg.Value
Cells(x, 20).Value = t_1031wa.Value
Cells(x, 21).Value = t_1047kg.Value
Cells(x, 22).Value = t_1047wa.Value
Cells(x, 23).Value = t_1053kg.Value
Cells(x, 24).Value = t_1053wa.Value
Range("D13:X1267").Select
Selection.Sort Key1:=Range("D13"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("D13").Select
End Sub
Anzeige