Microsoft Excel

Herbers Excel/VBA-Archiv

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

Doppelte Einträge in Ausgabe

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

GrußformelHomepage


  

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

GrußformelBeverly's Excel - Inn


 

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