Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Doppelte Zahlwerte löschen

Forumthread: Doppelte Zahlwerte löschen

Doppelte Zahlwerte löschen
17.06.2009 10:22:49
Gregor
Hallo zusammen
In Spalte E habe ich folgende möglichze Zahlen:
1114539.4
1114539
1114539.4-2
1114539.1
1114539.3
1114539.3-1
Nun möchte ich die Zeile mit der Zahl 1114539 löschen. Das heisst, bei mehrfach gleichen Zahlen vor dem Punkt soll immer die Zahl ohne Punkt gelöscht werden (die andern sollen stehen bleiben). Die Spalte enthält viele solche Zahlenkombinationen, die auf diese Weise bereinigt werden sollten.
Wie kann ich das per VBA lösen?
Hrzlichen Dank
Gregor
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Zahlwerte löschen
17.06.2009 10:35:39
NoNet
Hallo Gregor,
das sollte mit diesem Code klappen :
VBA-Code:
Sub DoppelteZahlenOhnePunktLoeschen()
    Dim lngZ As Long, intS As Integer, strT As String
    Dim rngZelle As Range
    For lngZ = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        intS = InStr(Cells(lngZ, 1), ".")           'Punkt in der Zelle suchen
        If intS > 0 Then                            'Wenn ein Punkt gefunden wurde
            strT = Left(Cells(lngZ, 1), intS - 1)   'Zellinhalt vor dem Punkt ermitteln
            If Application.CountIf([A:A], strT) > 0 Then 'Prüfen ob Zellinhalt vor Punkt in Spalte A vorhanden
                Set rngZelle = [A:A].Find(strT)     'Zellinhalt vor Punkt suchen
                rngZelle.Delete shift:=xlUp         'Gefundene Zelle löschen
            End If
        End If
    Next
End Sub
Gruß, NoNet
AW: Doppelte Zahlwerte löschen
Gregor

Hallo NoNet
Das ist ja super, vielen herzlichen Dank für die Unterstützung.
Gruss Gregor
Anzeige
AW: Doppelte Zahlwerte löschen
17.06.2009 11:08:15
Gregor
Hallo NoNet
Das ist ja super, vielen herzlichen Dank für die Unterstützung.
Gruss Gregor
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige