Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Doppelte Werte in Zeilen ersetzen

Doppelte Werte in Zeilen ersetzen
09.05.2016 13:35:16
Ines
Hallo,
so sieht meine Datei aus:
13,01 27,19 98,32 100,00 100,00 100,00 100
13,93 28,24 97,69 99,88 100,00 100,00 100
13,2 31,16 98,79 100,00 100,00 100,00 100
20,91 37,57 98,82 100,00 100,00 100,00 100
14,53 31,69 99,08 99,94 100,00 100,00 100
11,37 11,79 30,56 99,18 100,00 100,00 100
12,96 29,05 98,32 99,93 100,00 100,00 100
14,97 29,3 97,4 100,00 100,00 100,00 100
nun mein Problem:
in jeder Zeile soll der letzte Wert 100 sein. Danach soll die 100 durch 0 ersetzt werden. So:
13,01 27,19 98,32 100,00 0,00 0,00 0
13,93 28,24 97,69 99,88 100,00 0,00 0
13,2 31,16 98,79 100,00 0,00 0,00 0
20,91 37,57 98,82 100,00 0,00 0,00 0
Gibt es hierzu eine VBA Lösung?
Vielen Dank.

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Werte in Zeilen ersetzen
09.05.2016 13:50:48
ChrisL
Hi Ines
Sub t()
Dim Zelle As Range
With ActiveSheet
For Each Zelle In .Range("A1:G8")
If WorksheetFunction.CountIf(.Range(.Cells(Zelle.Row, 1), Zelle), 100) > 1 Then Zelle = 0
Next Zelle
End With
End Sub

cu
Chris
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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