Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1144to1148
1144to1148
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Schleife - elimieren von doppelten Werten

Forumthread: VBA Schleife - elimieren von doppelten Werten

VBA Schleife - elimieren von doppelten Werten
doppelten
Hallo Forum,
ich möchte doppelte Werte (siehe Anhang) aus Spalte A inhaltlich löschen (sind vorher sortiert).
Leider funktioniert meine Schleife nicht.
Kann mir jemand helfen?
Vielen Dank im voraus.
https://www.herber.de/bbs/user/68477.xls
Grüße
Karen
Anzeige
AW: VBA Schleife - elimieren von doppelten Werten
09.03.2010 11:06:49
doppelten
Moin,
versuch es mal damit bitte.
Sub Eliminieren()
'Screening deaktivieren
Application.ScreenUpdating = False
'Doppelte Daten suchen
For i = 13 To 6 Step -1
If Cells(i, 1).Value = Cells(i - 1, 1).Value Then
Cells(i, 1).ClearContents
End If
Next i
'Meldungen unterdrücken.
Application.DisplayAlerts = False
MsgBox ("Die Daten sind gesprüft!")
End Sub

Gruß
Yusuf
Anzeige
AW: VBA Schleife - elimieren von doppelten Werten
09.03.2010 11:20:21
doppelten
Hallo Yusuf,
vielen Dank für Deine Mühe, leider wurden die ersten Werte gelöscht. Reinhard konnte mir aber weiterhelfen.
Vielen Dank für Deine Mühe.
Grüße
Karen
AW: VBA Schleife - elimieren von doppelten Werten
09.03.2010 11:10:22
doppelten
Hallo Karen, 
Option Explicit
Sub Eliminieren()
Dim i As Long
'Screening deaktivieren
Application.ScreenUpdating = False
'Doppelte Daten suchen
For i = 13 To 6 Step -1
If Application.CountIf(Range("A6:A13"), Cells(i, 1).Value) > 1 Then
Cells(i, 1).ClearContents
End If
Next i
Application.ScreenUpdating = True
MsgBox ("Die Daten sind gesprüft!")
End Sub

Gruß
Reinhard
Anzeige
AW: VBA Schleife - elimieren von doppelten Werten
09.03.2010 11:19:03
doppelten
Hallo Reinhard,
vielen Dank, funktioniert perfekt!!!
Grüße
Karen
AW: VBA Schleife - elimieren von doppelten Werten
09.03.2010 11:48:33
doppelten
Hallo Reinhard,
wenn ich die Spalte daneben auch inhaltlich löschen möchte, heißt es dann i+2?
Viele Grüße
Karen
AW: VBA Schleife - elimieren von doppelten Werten
09.03.2010 12:00:11
doppelten
Hallo aren,
Range(Cells(i, 1), Cells(i, 2)).ClearContents
Gruß
Reinhard
Anzeige
AW: VBA Schleife - elimieren von doppelten Werten
09.03.2010 14:24:51
doppelten
Vielen Dank!!!
Statt:Selection.Clea.. -> Cells(i,1).Clea.. (owT)
09.03.2010 11:18:15
Renee

Forumthreads zu verwandten Themen

Do Until - Schleife verlassen funktioniert nicht.
Stefan

Hallo Excelfreunde, bitte um Hilfe.
Do Until - Schleife mit Exit Do verlassen funktioniert nicht.
Abbruchbedingung: If TPFehlt = 1 Then Exit Do
Trotz längerem Suchen habe ich nicht herausgefunden, warum die Fehlermeldung kommt.
Sub Zuordnen() Dim letzteZeile As Integer, Nr As...
22.09.2008 20:53:34
Thread-ID: 1011569
3 Beiträge
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
VBA_For-Next Schleife ist fehlerhaft
Dirk

Hallo allerseits,
habe da noch ein Problem mit einer Schleife.
Nachstehender CODE soll im TB Eingaben Zeile 1 nach einem Wert aus TB Ausgabe A1 suchen.
Macht er auch, nur zeigt er mir immer erst die msgBox an (nichts gefunden) und wenn ich die dann x-mal bestätige, kommt dann auch i...
06.05.2010 17:41:15
Thread-ID: 1155887
5 Beiträge
VBA Code vorzeitig beenden
WalterK

Hallo
benötige nochmals Hilfe bei einem Codeteil:
Dim ws As Worksheet
Dim ZELLE As Range
Dim wsNamen
Set wsNamen = CreateObject("Scripting.Dictionary")
For Each ws In ThisWorkbook.Worksheets
wsNamen.Add ws.Name, ws.Name
Next
For Each ZELLE In Range("1.Einstel...
23.03.2013 17:24:44
Thread-ID: 1305682
13 Beiträge
VBA|UserForm For-Each-Schleife zählt nicht korrekt
Mario

Hallo zusammen,
bei folgendem Code zählt meine For-Each Schleife fehlerhaft.
Solange die Tabelle entsprechenden Suchwert beinhaltet, wird auch der richtige Wert angegeben.
Selbst bei einem Eintrag wird auch nur 1 angezeigt.
Wenn die Tabelle aber keinen Eintrag mit diesem Suchwe...
10.07.2013 01:38:15
Thread-ID: 1321752
7 Beiträge
while Schleife abbrechen geht nicht
Dirk

Hallo zusammen,
ich versuche eine While-Schleife mit ESC abzubrechen, aber irgendwie klappt das nicht so, wie ich mir das vorstelle. Ich habe in diversen Foren unterschiedliche Lösungen gefunden und mehrere ausprobiert. Ohne Inhalt klappt es, aber mit Inhalt funktioniert es leider nicht.
25.07.2013 17:11:10
Thread-ID: 1324152
21 Beiträge
"Schleifenfunktion" nur mit Formel, kein VBA
reiner

hallo Leute,
bei Klicken in die CheckBox in Zelle "S17" soll ein Datum aus Spalte "P" (gleiche Zeile) kopiert und eine Zeile tiefer in Zelle "F18" kopiert werden, aber nur wenn gleichzeitig in "H17" mindestens eine "1" oder eine höhere Ziffer steht. Ist diese Zelle leer oder enthält diese l...
20.11.2013 11:02:21
Thread-ID: 1339350
5 Beiträge
Do Until Schleife richtige Wahl?
Udo

Hallo zusammen,
ich habe ein kleines Tool geschrieben, dass Daten auswertet:
Dim Anzahl As Integer
Dim IntZeile2 As Double
Dim Erg2 As Double
Erg2 = 4
IntZeile2 = 2 + (TextBox49.Text * TextBox9.Text)
Do Until IntZeile2 = Sheets("SETUP").Range("F5") - 1
If Sheets(...
12.01.2014 11:53:02
Thread-ID: 1344915
10 Beiträge
VBA Schleife für Formel
Susanne

Hallo,
ich habe Daten in Excel exportiert, die ich kategorisieren möchte. Leider sind die Rohdaten sehr konfus aufgebaut.
Die Datei enthält in Spalte A und B bestimmte Parameter.
Beispiel:
Spalte A
A1 enthält z. B.: 15 - Haus - Neubau / Abrechnung
A2 enthält z. B.: 23 -...
07.10.2014 07:10:49
Thread-ID: 1385222
5 Beiträge
VBA: Zählen mit Do-Until
Hans

Hallo,
meine Aufgabe ist es das ich in einem Arbeitsblatt "Auswertung" die Filme auswerten soll nach Genre, die im Arbeitsblatt "Daten" angezeigt werden
In Zelle C4 des Arbeitsblattes "Auswertung" soll das Genre (Drama, Komödie, Actionfilm usw...) händisch eingegeben werden und in Zelle...
25.11.2014 16:25:00
Thread-ID: 1394485
3 Beiträge
Anzeige
Do While Schleife(n)
Ron

Hallo liebe Gemeinde,
ich brauche wieder einmal Eure Hilfe. Mein Ziel ist es mit einem Makro aus verschiedenen Datei Werte auszulesen. Die ersten Daten sind immer erst ab Zeile 15 zu finden. In den Quelldateien sind allerdings unterschiedlich viele Einträge, so dass ich den Lesevorgang been...
06.02.2015 19:09:13
Thread-ID: 1407818
2 Beiträge
Do Until Schleife
Lukas

Hallo zusammen,
ich habe folgendes Problem:
Nach dem der Code insgesamt funktioniert, habe ich versucht das ganze als Schleife durchlaufen zu lassen.
Das Problem dabei ist, dass die Schleife nicht mehr verlassen wird, nachdem im Zwischenspeicher Range("B2") leer ist.
Nach Abbruc...
26.06.2015 12:48:11
Thread-ID: 1433327
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige