Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Doppelte Einträge in Ausgabe

• Doppelte Einträge in Ausgabe von Alifa vom 06.09.2014 06:48:36
• lösch doch die Duplikate - von Matthias L am 06.09.2014 07:29:30
• AW: Doppelte Einträge in Ausgabe - von Hajo_Zi am 06.09.2014 10:08:46
• AW: Doppelte Einträge in Ausgabe - von Beverly am 06.09.2014 11:38:13

Betrifft: Doppelte Einträge in Ausgabe von: Alifa
Geschrieben am: 06.09.2014 06:48:36

Hallo,
wie kann man vermeiden, dass in Spalte A keine doppelten(mehrfachen) Einträge ausgegeben werden? Mein Makro fügt Buchstaben zu Worten Zusammen. Diese Worte sollen im Duden sein. Das mit dem Duden habe ich hingekriegt, doch werden viele Worte mehrfach ausgegeben. Danke im Voraus für Hilfe
Gruß, Alifa

Betrifft: lösch doch die Duplikate von: Matthias L
Geschrieben am: 06.09.2014 07:29:30

Hallo

Bsp.
Die Daten stehen in Spalte(A)

Am Ende Deines Makros einfach folgende Zeile einfügen:

Columns(1).RemoveDuplicates Columns:=1, Header:=xlYes

Je nachdem ob eine Überschrift in der Spalte vorhanden ist setzt Du


• Header:=xlYes

oder


• Header:=xlNo

Gruß Matthias

Betrifft: AW: Doppelte Einträge in Ausgabe von: Hajo_Zi
Geschrieben am: 06.09.2014 10:08:46

Hallo Alifa,

prüfe ob schon vorhanden.
If WorksheetFunction.CountIf(Range("a1:a" & LoI), "Dein Wort") =0 Then

Betrifft: AW: Doppelte Einträge in Ausgabe von: Beverly
Geschrieben am: 06.09.2014 11:38:13

Hi,

nach diesem Prinzip:

Sub DoppelteNicht()
   If IsError(Application.Match("DeinWort", Columns(1), 0)) Then
      MsgBox "Wort kann eingetragen werden"
   Else
      MsgBox "Wort schon vorhanden"
   End If
End Sub

---

Beiträge aus den Excel-Beispielen zum Thema "Doppelte Einträge in Ausgabe"