Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1144to1148
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
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
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
Anzeige
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
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
Anzeige
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
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

311 Forumthreads zu ähnlichen 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
Anzeige
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
Bedingung innerhalb einer "Do While"-Schleife
w.k.schmidt@gmx.de

Hallo, Forum,
ich möchte gerne zum Jahreswechsel meine Mitabeitertabellen mit einem Makro bearbeiten. Hierfür gebe ich ein das betreffende Verzeichnis an, in dem sich aber auch die Konsolidierungstabelle befindet. Es gelingt mir mit meinem Modul nicht, alle Tabellen im Verzeichnis ohne die...
05.01.2011 23:48:56
Thread-ID: 1194099
11 Beiträge
Anzeige
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
Do While Schleife funktioniert nicht
peter

Hey Leute,
ich versuche gerade ein kleines Problem zu lösen, dabei geht es um Folgendes:
Ich habe eine Seite mit Kontrollhäkchen. Diesen habe ich einen Zellenbezug auf einem anderen Arbeitsblatt gegeben, also eine einfache Tabelle mit 10 Werten untereinander, die entweder WAHR oder FAL...
13.05.2014 16:57:48
Thread-ID: 1361362
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
4
10
12
6
20
4
9
5
4
2
11
1
3
21
4
3
2
5
7
2
4
6
3