Thema Datum  Von Nutzer Rating
Antwort
Rot Dublikate entfernen mittels VBA
 30.11.2016 15:10:43 Diana
Solved

Ansicht des Beitrags:
Von:
Diana		 Datum:
30.11.2016 15:10:43		 Views:
1005		 Rating:
     
Antwort:
 Nein
Thema:
Dublikate entfernen mittels VBA
Sub Qualistatus() Dim wksUW As Worksheet Dim wksMitArb As Worksheet Dim wksProfil As Worksheet Dim wksQualistatus As Worksheet Dim booAdd As Boolean Dim intUnique As Integer Dim intJ As Integer Dim intI As Integer Set wksUW = ThisWorkbook.Worksheets("Unterweisungsstatus") Set wksMitArb = Worksheets("MitarbeiterArbeitsplatz") Set wksProfil = Worksheets("Profil") Set wksQualistatus = Worksheets("Qualistatus") intRow = wksUW.Cells(20000, 1).End(xlUp).Row + 1 wksQualistatus.Cells(3, 1).Value = wksUW.Cells(2, 3).Value 'Vorname, erster Wert = einmalig intUnique = 2 'Erste Zeile = einmalig, deswegen Beginn ab 2 booAdd = True 'Beginn: Boolean wird true gesetzt For intI = 3 To 40 For intJ = 3 To intUnique If wksQualistatus.Cells(intJ, 1).Value = wksUW.Cells(intI, 3).Value Then booAdd = False End If Next intJ If booAdd = True Then wksQualistatus.Cells(intJ, 1).Value = wksUW.Cells(intUnique + 1, 3).Value End If intUnique = intUnique + 1 'Fehler beseitig: Allerdings die leeren Zeilen müssen weg booAdd = True Next intI ' wksQualistatus.Cells(intZaehler, 1).Value = wksUW.Cells(intCounter, 2).Value 'Vorname ' wksQualistatus.Cells(intZaehler, 2).Value = wksUW.Cells(intCounter, 3).Value 'Nachname ' End If ' intCounter = intCounter + 1 ' intZaehler = intZaehler + 1 ' Loop ' Loop End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Dublikate entfernen mittels VBA
 30.11.2016 15:10:43 Diana
Solved