Zum Inhalt springen

Empfohlene Beiträge

Geschrieben

Wer hilft? Benötige ein MAkro das die ersten beiden Spalten in einem Excelsheet vergleicht und den doppelten Datensatz löscht.

Das gefundene Makro unten vergleicht nur auf die erste Spalte. Wie macht man das wenn noch eine Zelle verglichen werden soll? Hab gar keine Ahnung.

Hatte es mit noch einer If schleife versucht, aber da bin ich in die Unendlichkeit abgeschweift wenn Ihr versteht....


Sub Löschen()

'

' Löschen Makro

' Makro am 27.04.01 von U405565 aufgezeichnet

'


'

While ActiveCell.Offset(1, 0).Value <> Empty

    If ActiveCell.Offset(1, 0).Value = ActiveCell.Value Then

        ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select

        Selection.Delete Shift:=xlUp

        ActiveCell.Offset(-1, 0).Range("A1").Select

    End If

    Else: If ActiveCell.Offset(1, 0).Value <> ActiveCell.Value Then ActiveCell.Offset(1, 0).Range("A1").Select

    End If

Wend

Geschrieben

Also ich hab mir das ganze so vorgestellt:

Sub Löschen()

Dim r As Integer, r2 As Integer

Dim c As Integer, c2 As Integer

r = 1

c = 1

r2 = 1

c2 = 2

Do While r <> 10

For r2 = 1 To 10

If Tabelle1.Cells(r, c) = Tabelle1.Cells(r2, c2) Then

Tabelle1.Cells(r2, c2) = ""

Tabelle1.Cells(r, c) = ""

End If

Next r2

r = r + 1

Loop

End Sub

Gast
Dieses Thema wurde nun für weitere Antworten gesperrt.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...