Thema Datum  Von Nutzer Rating
Antwort
10.11.2016 10:39:47 GeorgieGeorge
*****
Solved
10.11.2016 10:45:20 Gast76551
*****
Solved
10.11.2016 10:51:26 GeorgieGeorge
NotSolved
10.11.2016 10:53:16 GeorgieGeorge
NotSolved
Rot letzte gefüllte zelle
 10.11.2016 11:07:53 Gast73473
*****
Solved
10.11.2016 11:37:23 Gast18204
Solved
10.11.2016 19:11:33 Gast78434
NotSolved

Ansicht des Beitrags:
Von:
Gast73473		 Datum:
10.11.2016 11:07:53		 Views:
713		 Rating:
     
Antwort:
 Nein
Thema:
letzte gefüllte zelle		 
wer keine Ahnung von vba hat, sollte auch nicht mit "Dict" arbeiten, sondern zuerst die Basics lernen!!!!!!!


Sub Find_Doppelte()
Dim oDic As Object, ArrayData(), ArrayAusgabe()
Dim n As Long
Dim nTimer
nTimer = Timer
Set oDic = CreateObject("Scripting.Dictionary")

With Sheets("Hauptliste") 'Tabelle anpassen

<<<<<<<<<<<< neu >>>>>>>>>

lr = cells(rows.count, "C").end(xlup).row
    ArrayData = .Range("C2:C" & lr).Value2 'Zellbereich anpassen

<<<<<<<<<<< weiter >>>>>>>>>>>>>>>>
    ReDim ArrayAusgabe(1 To UBound(ArrayData), 1 To 1)
    
    For n = 1 To UBound(ArrayData)
        oDic(ArrayData(n, 1)) = oDic(ArrayData(n, 1)) + 1
    Next n
    For n = 1 To UBound(ArrayData)
        If oDic(ArrayData(n, 1)) > 1 Then ArrayAusgabe(n, 1) = "duplicate"
    Next n
    
    'Ausgabe erste Zelle anpassen
    .Range("B2").Resize(UBound(ArrayAusgabe)) = ArrayAusgabe
End With
MsgBox "Fertig nach " & Timer - nTimer & " Sekunden"
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
10.11.2016 10:39:47 GeorgieGeorge
*****
Solved
10.11.2016 10:45:20 Gast76551
*****
Solved
10.11.2016 10:51:26 GeorgieGeorge
NotSolved
10.11.2016 10:53:16 GeorgieGeorge
NotSolved
Rot letzte gefüllte zelle
 10.11.2016 11:07:53 Gast73473
*****
Solved
10.11.2016 11:37:23 Gast18204
Solved
10.11.2016 19:11:33 Gast78434
NotSolved