Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1780to1784
1780to1784
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

doppelte Einträge mit VBA verhindern

Forumthread: doppelte Einträge mit VBA verhindern

doppelte Einträge mit VBA verhindern
15.09.2020 15:35:55
Sonnenfreund
Hallo, ich habe schon folgendes Macro gefunden, um doppelte Eingaben in einem Bereich zu _ verhindern. 

https://www.herber.de/forum/archiv/816to820/816003_doppelte_Eintraege_mit_VBA_verhindern.html#816014

Gibt es eine Möglichkeit, dies auch für Teilübereinstimmungen zu machen?
Also bspw. ist BCD vorhanden und es sollen auch Meldungen erscheinen, wenn man
1. aBCD
2. BCDe
3. aBCDe
eingibt.
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: doppelte Einträge mit VBA verhindern
15.09.2020 16:01:37
Hajo_Zi 

If Intersect( Target"BCD")>1 then
End if


AW: doppelte Einträge mit VBA verhindern
15.09.2020 16:05:39
Nepumuk
Hallo Sonnenfreund,
in das Modul der Tabelle (Rechtsklick auf den Tabellenreiter - Code anzeigen):
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim avntValues As Variant
    Dim ialngIdex As Long
    Dim objRang As Range, objCell As Range
    Set objRang = Intersect(Target, Columns(1))
    If Not objRang Is Nothing Then
        Application.EnableEvents = False
        avntValues = Range(Cells(1, 1), Cells(Rows.Count, 1)).Value
        For Each objCell In objRang
            For ialngIdex = LBound(avntValues, 1) To UBound(avntValues, 1)
                If ialngIdex <> objCell.Row Then
                    If InStr(1, objCell.Value, avntValues(ialngIdex, 1), vbTextCompare) > 0 Or _
                        InStr(1, avntValues(ialngIdex, 1), objCell.Value, vbTextCompare) > 0 Then
                        Call MsgBox("Doppelter Wert in Zelle ''" & _
                            objCell.Address(False, False) & "''", vbExclamation, "Hinweis")
                        objCell.Value = Empty
                        Exit For
                    End If
                End If
            Next
        Next
        Application.EnableEvents = True
        Set objRang = Nothing
    End If
End Sub

Überwacht wird die komplette Spalte A!!!
Gruß
Nepumuk
Anzeige
AW: doppelte Einträge mit VBA verhindern
15.09.2020 16:17:35
Nepumuk
Ooooooooooooops,
da ist noch ein Fehler drin.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim avntValues As Variant
    Dim ialngIdex As Long
    Dim objRang As Range, objCell As Range
    Set objRang = Intersect(Target, Columns(1))
    If Not objRang Is Nothing Then
        Application.EnableEvents = False
        avntValues = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Value
        For Each objCell In objRang
            For ialngIdex = LBound(avntValues, 1) To UBound(avntValues, 1)
                If ialngIdex <> objCell.Row Then
                    If InStr(1, objCell.Value, avntValues(ialngIdex, 1), vbTextCompare) > 0 Or _
                        InStr(1, avntValues(ialngIdex, 1), objCell.Value, vbTextCompare) > 0 Then
                        Call MsgBox("Doppelter Wert in Zelle ''" & _
                            objCell.Address(False, False) & "''", vbExclamation, "Hinweis")
                        With objCell
                            .Value = Empty
                            Call .Select
                        End With
                        Exit For
                    End If
                End If
            Next
        Next
        Application.EnableEvents = True
        Set objRang = Nothing
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: doppelte Einträge mit VBA verhindern
17.09.2020 11:05:28
Sonnenfreund
Hallo Nepumuk,
sorry für die späte Reaktion, arbeit hat leider keine Zeit gelassen.
Hatte das mal in einer leeren Mappe getestet und direkt beim ersten Eintrag kam schon die Msgbox.
Um das mal besser darstellen zu können, was ich benötige, anbei die Tabelle.
https://www.herber.de/bbs/user/140281.xlsm
Pro Tag muss ein Mitarbeiter unter den Mitarbeitern 1-8 einen 16 Uhr Dienst (16) machen und auch unter den Mitarbeitern 9-16 muss einer einen 16 Uhr Dienst machen.
Zusätzlich muss einer von den Mitarbeitern 1-16 einen 18 Uhr Dienst (18) machen.
Möglich ist auch, dass der 16 Uhr Mitarbeiter gleichzeitig der 18 Uhr Mitarbeiter ist (16/18).
In den Zeilen 5 und 6 sind die regulären Eingaben.
Bei weiteren Eingaben der Dienste 16, 18 und 16/18 pro Zeile soll die Msgbox erscheinen.
Ungeachtet dessen geben die Mitarbeiter auch noch U und AZ ein, diese beiden Eingaben sollen unbeachtet bleiben.
Vielen Dank für die Unterstützung.
Anzeige
AW: doppelte Einträge mit VBA verhindern
18.09.2020 09:47:49
Herbert_Grom
Hallo,
ist dein Problem noch aktuell?
Servus
AW: doppelte Einträge mit VBA verhindern
18.09.2020 09:47:52
Herbert_Grom
Hallo,
ist dein Problem noch aktuell?
Servus
AW: doppelte Einträge mit VBA verhindern
18.09.2020 09:56:14
Sonnenfreund
Moin,
ja, ich bin noch am rumwerkeln, aber wirklich funktionieren tut es leider nicht.
Grüße
Anzeige
AW: doppelte Einträge mit VBA verhindern
18.09.2020 10:27:20
Herbert_Grom
Hallo,
ich bin auch am „rumwerkeln“ und bin auf einem guten Weg! Ich melde mich heute Nachmittag!
Servus
AW: doppelte Einträge mit VBA verhindern
18.09.2020 14:45:46
Sonnenfreund
Hallo,
da hab ich ein, zu großen Teilen, schon gut funktionierendes Makro.
Vielen Dank!
Werde noch ein paar Regeln für den DAU anlegen und dann hab ich es ;)
Anzeige
AW: doppelte Einträge mit VBA verhindern
18.09.2020 15:37:51
Herbert_Grom
Hallo,
gerne geschehen. Danke für die Rückmeldung.
Servus
;

Forumthreads zu verwandten Themen

Do Until - Schleife verlassen funktioniert nicht.
Stefan

Hallo Excelfreunde, bitte um Hilfe.
Do Until - Schleife mit Exit Do verlassen funktioniert nicht.
Abbruchbedingung: If TPFehlt = 1 Then Exit Do
Trotz längerem Suchen habe ich nicht herausgefunden, warum die Fehlermeldung kommt.
Sub Zuordnen() Dim letzteZeile As Integer, Nr As...
22.09.2008 20:53:34
Thread-ID: 1011569
3 Beiträge
Anzeige
wert aus dropdown in vba übernehmen
reich

hallo,
könnt ihr mir bitte helfen? wie schaff ich es von einer drop down liste den ausgewählten wert in vba zu übernehmen ...
dim varWert as variant
worksheets("formular").activate
'dropdown 1 liste ansteuern und aktuell ausgewählten wert in vba übernehmen
varWert = 'wert au...
23.09.2008 15:34:00
Thread-ID: 1011776
4 Beiträge
VBA: String+TAB an inaktives Windowsfenster senden
Melanie

Hallo allerseits,
ich moechte aus Excel heraus mit VBA code einen String (z.b "Hallo") + TAB (oder ENTER) an ein 'fremdes' WindowsapplicationFenster schicken (keine Officeanwendung), wobei das Fensterhandle (oder auch das entsprechende TextFeldHandle bekannt sind).
Allerdings soll die...
09.12.2008 08:37:52
Thread-ID: 1031241
9 Beiträge
Anzeige
Do loop Schleife mit hoher CPU Last
Steffen44


Hallo,
ich habe ein kleines Programm wo ich Daten von der RS232 Schnittstelle in Excel einlese.
Das einlesen geschieht per Do loop Schleife wo die Daten direkt in die Zellen von Excel geschrieben werden.
Was mir permanent negativ auffällt ist das egal welche Schleifenart man ve...
21.02.2009 17:37:29
Thread-ID: 1052648
16 Beiträge
Anzeige
Drop-Down Feld in VBA
Jens

Seit geraumer Zeit lese ich Eure Beiträge und habe es nun endlich geschafft mich zu registrieren.
Ich versuche in einer Userform in einem Drop-down-Feld einen Zellbereich einer Tabelle anzuzeigen, bisher ohne Erfolg.
Kann mir da jemand helfen.
Vielen Dank im Vorraus
Jens
28.02.2009 13:06:18
Thread-ID: 1055056
2 Beiträge
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
VBA Schleife - elimieren von doppelten Werten
doppelten

Hallo Forum,
ich möchte doppelte Werte (siehe Anhang) aus Spalte A inhaltlich löschen (sind vorher sortiert).
Leider funktioniert meine Schleife nicht.
Kann mir jemand helfen?
Vielen Dank im voraus.
https://www.herber.de/bbs/user/68477.xls
Grüße
Karen
09.03.2010 11:06:49
Thread-ID: 1144532
9 Beiträge
Mit VBA Zugriff auf ein pdf-Dokument
Gregor

Hallo zusammen
Ich möchte in einer Excel Tabelle aus einem pdf Vornamen und Namen kopieren. Dabei muss ich in einem e-Book (pdf) nach dem Begriff "Erstellerautor" suchen, und dann die jeweiligen Namen NACH diesem Suchgegriff kopieren und in einer Excel-Tabelle einfügen. Das e-Book ist alpha...
18.08.2010 16:48:01
Thread-ID: 1172920
3 Beiträge
per vba hyperlink von excel in worddokument
excel

Hallo,
ich öffne in einem makro ein word-dokument und füge dort zellinhalte in textmarken ein.
in einer der zellen steht ein hyperlink. wie bekomme ich es hin, dass ich in word dann auch einen hyperlink habe und nicht nur den text der zelle
Gruß
effha
25.10.2010 19:58:40
Thread-ID: 1183824
3 Beiträge
DOS PRINT aus VBA auf eine Liste von Dateien
Dateien

Hallo alle miteinand,
ich habe eine Excel-Liste in der ich verschiedene Word-Document Namen stehen habe, mit Verzeichnisinfo und Dateitypinfo.
A HORSE WITH NO NAME 2.3.2011 28.160 SOLOPFADE DOC 1 9.3.2011
Das sind eine ganze Menge Dateien untereinander und von sagen wir 250 in ein...
25.03.2011 09:50:05
Thread-ID: 1207404
3 Beiträge
Mit VBA eine Windowsanmeldung nachstellen
Speedpilot

Hallo Leute,
Ich zerbreche mir nun schon eine Weile den Kopf über folgendes Problem:
Prinzipiell möchte ich ein Stempelfeld auf dem Papier "digitalisieren".
Es soll also ein Feld in den Excel Arbeitsblättern geben, welches auf klick, den Benutzername und das Passwort abfragt, und b...
21.07.2011 14:49:18
Thread-ID: 1223045
3 Beiträge
Tipp schnell doppelte finden in VBA
Heiti

Moin,
ich brauche einemal eine Beratung bzw. Tipps wie ich meine Funktion verbessere.
Derzeit öffne ich mehrere Dateien und schreibe in eine Excel Liste die Eintragungen. Weil in den Dateien doppelte Einträge stehen können durchlaufe ich für jeden Beitrag die Liste und schreibe diese nu...
23.04.2012 13:04:13
Thread-ID: 1260618
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige