Code durchführen ohne Sheet aktivieren

'Doppelte Einträge entfernen Worksheets("Hilfstabelle").Activate Range("B1").Select Do Until ActiveCell.Value = "" If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then ActiveCell.EntireRow.Delete Else ActiveCell.Offset(1, 0).Select End If Loop

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
Generell muss man dazu vor jedem Zellbezug (Range, Rows, Columns, Cells) das Tabelenblatt mit angeben:

Sheets("Hilfstabelle").Range("B1")

Es darf nicht selektiert werden, sondern die Zellen müssen direkt bearbeitet werden.
Anstelle von ActiveCell muss man diese Zelle ggf in einer Variablen speichen und mit dieser arbeiten.
allerdings hast du hier dann das Problem, dass du dir ggf die Zeile mit der Variable löschst, daher solltest du dann bei doppelten Einträgen nicht die Zeile mit der Variable löschen, sondern die Zeile darunter:
für deinen Code in etwa so:

Sub test()
Dim Zelle As Range
Set Zelle = Sheets(1).Range("B1")
Do Until Zelle.Value = ""
If Zelle.Value = Zelle.Offset(1, 0).Value Then
Zelle.Offset(1, 0).EntireRow.Delete
Else
Set Zelle = Zelle.Offset(1, 0)
End If
Loop
End Sub

wobei es in deiner Excelversion auch eine Funktion zum löschen der Doppelten gibt:
Daten - Datentools - Duplikate entfernen
das würde als Code so aussehen:

Sheets("Hilfstabelle").Usedrange.RemoveDuplicates 2, xlguess

beachte, dass hierbei immer die erste Zeile von gleichen Zellen stehen bleibt.
dh wenn du willst, dass von den Duplikaten eine bestimmte Zeile erhalten bleibt, musst du dieses durch Sortieren an die erste Stelle bringen.
Gruß Daniel

Public Sub Löschen() Dim loLetzte As Long, loSpalte With Worksheets("Tabelle1") loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row loSpalte = .Cells(2, .Columns.Count).End(xlToLeft).Column + 1 .Range(.Cells(2, loSpalte), .Cells(loLetzte, loSpalte)).FormulaLocal = _ "=WENN(B1=B2;0;ZEILE())" .Range(.Cells(1, loSpalte), .Cells(loLetzte, loSpalte)).Value = _ .Range(.Cells(1, loSpalte), .Cells(loLetzte, loSpalte)).Value .Cells(1, loSpalte) = 0 .Range(.Cells(1, 1), .Cells(loLetzte, loSpalte)).RemoveDuplicates _ Columns:=loSpalte, Header:=xlNo .Columns(loSpalte).ClearContents End With End Sub

Public Sub Löschen() Dim loLetzte As Long, loSpalte Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Worksheets("Tabelle1") loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row loSpalte = .Cells(2, .Columns.Count).End(xlToLeft).Column + 1 .Range(.Cells(2, loSpalte), .Cells(loLetzte, loSpalte)).FormulaLocal = _ "=WENN(B1=B2;0;ZEILE())" .Range(.Cells(1, loSpalte), .Cells(loLetzte, loSpalte)).Value = _ .Range(.Cells(1, loSpalte), .Cells(loLetzte, loSpalte)).Value .Cells(1, loSpalte) = 0 .Range(.Cells(1, 1), .Cells(loLetzte, loSpalte)).RemoveDuplicates _ Columns:=loSpalte, Header:=xlNo .Columns(loSpalte).ClearContents End With Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = False End Sub

With Sheets("Hilfstabelle").Usedrange with .columns(.Columns.Count + 1) .FormulaR1C1 = "=IF(RC2=R[1]C2,0,Row())" .Cells(1, 1).Value = 0 .entirerow.RemoveDuplicates .column, xlno .clearcontents end with End with

Beliebteste Forumthreads (12 Monate)

Code durchführen ohne Sheet aktivieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread