Thema Datum  Von Nutzer Rating
Antwort
Rot Doppelte Zellen Suchen
13.06.2018 10:43:48 Yunus Asam
*
NotSolved
13.06.2018 11:33:42 RPP63
NotSolved
13.06.2018 12:50:06 Gast99186
NotSolved
13.06.2018 12:35:51 Gast59575
NotSolved

Ansicht des Beitrags:
Von:
Yunus Asam
Datum:
13.06.2018 10:43:48
Views:
129
Rating: Antwort:
  Ja
Thema:
Doppelte Zellen Suchen

Ich habe einen Problem und komme nicht voran.

Es liegt eine Tabelle mit 15 Spalten vor. Ab der Spalte C2 steht jeweils in jeder Zelle aus der Spalte C eine Zahl drin.

Ab der Spalte D2 stehen Kundennummern drin. Falls eine Kundennummer mehrfach vorkommt soll es nur ein Mal existieren und die Zahl soll sich jedes mal addieren.

So hatte ich es mir vorgestellt aber es tut leider nicht. Bitte um Hilfe

 

Sub tester()
letzte_Zeile = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row

For i = 1 To letzte_Zeile
    For j = 2 To letzte_Zeile


   
        If Cells(i, 4).Value = Cells(j, 4).Value Then
        Cells(i, 3) = Cells(i, 2) + Cells(j, 2)
        Rows(j).Delete
        End If
    Next j
Next i



End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Doppelte Zellen Suchen
13.06.2018 10:43:48 Yunus Asam
*
NotSolved
13.06.2018 11:33:42 RPP63
NotSolved
13.06.2018 12:50:06 Gast99186
NotSolved
13.06.2018 12:35:51 Gast59575
NotSolved