Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1080to1084
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
Inhaltsverzeichnis

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

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

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige