Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Liste ohne doppelte Werte

Liste ohne doppelte Werte
ing.grohn
Hallo Forum,
mit Daten Gültigkeit kann ich verhindern, daß doppelte Eintragungen vorkommen:
Einstellungen Benutzerdefiniert und dann z.B
=UND(ISTZAHL(H1);ZÄHLENWENN($H$1:$H$30;H1)

ich habe hierzu ein Makro aufgezeichnet:
With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween,  _
Formula1:="=UND(ISTZAHL(H14);ZÄHLENWENN($H$1:$H$30;H14)

Wie kann ich dies als Funktion in VBA umsetzen um dort fortlaufende eineindeutige Einträge vornehmen zu können? Mir fällt so nichts dazu ein
Eine Antwort wäre sehr nett
Mit freundlichen Grüßen
Albrecht

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
vlt so?
18.10.2010 19:34:20
CitizenX
Hallo Albrecht,
Bereich bitte noch anpassen:
[CODE]

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target  _
As Range)
Dim Bereich As Range, Wert!
If Target.Column = 8 Then
Application.EnableEvents = False
Set Bereich = Range(Cells(1, 8), Cells(30, 8))
Wert = WorksheetFunction.CountIf(Bereich, Target.Value)
If Wert > 1 Or Not IsNumeric(Target.Value) Then
Target = ""
End If
Application.EnableEvents = True
Set Bereich = Nothing
End If
End Sub

Grüße
Steffen
Anzeige
AW: vlt so?
18.10.2010 19:47:51
ing.grohn
Hallo Steffen,
ich denke, damit komme ich weiter
(ich meinte zwar das direkt im VBA Code abzuhandeln und nicht in der Tabelle)
recht herzlichen Dank
Mit freundlichen Grüßen
Albrecht
AW: vlt so?
18.10.2010 19:53:14
ing.grohn
Hallo Steffen,
ist genau richtig!
MfG
Albrecht

321 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige