Thema Datum  Von Nutzer Rating
Antwort
18.02.2019 19:06:27 Anne Rothe
NotSolved
Blau VBA Anwendung Ing.Row, x
 18.02.2019 19:52:25 Gast31000
NotSolved
18.02.2019 20:14:02 Anne Rothe
NotSolved

Ansicht des Beitrags:
Von:
Gast31000		 Datum:
18.02.2019 19:52:25		 Views:
538		 Rating:
     
Antwort:
  Ja
Thema:
VBA Anwendung Ing.Row, x

Hallo,

lngRow ist der Laufindex für die Zeile, Du willst aber an die Spalten ran, probier's mal so:

Option Explicit

Public Sub delDouble()

 Dim rng As Range, rngDel As Range
 Dim lngRow As Long, lngLast As Long

 With ActiveSheet
     lngLast = .Cells(.Rows.Count, 3).End(xlUp).Row
     For lngRow = 2 To lngLast
        If .Cells(lngRow, 3).Value < Evaluate("MAX(IF(A2:A" & lngLast & _
           "=" & .Cells(lngRow, 1).Value & ",C2:C" & lngLast & "))") Then
          If rng Is Nothing Then
            Set rng = .Rows(lngRow)
          Else
            Set rng = Union(rng, .Rows(lngRow))
          End If
        End If
     Next
 End With
 If Not rng Is Nothing Then rng.Delete
End Sub

Gruß,

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
18.02.2019 19:06:27 Anne Rothe
NotSolved
Blau VBA Anwendung Ing.Row, x
 18.02.2019 19:52:25 Gast31000
NotSolved
18.02.2019 20:14:02 Anne Rothe
NotSolved