Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
480to484
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
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gleiche Werte erkennen und verändern

gleiche Werte erkennen und verändern
Thorsten
Servus Leute,
ich habe ein Problem. Ich habe folgende Werte in der Spalte F264 bis F274:
16,55
39,05
39,6
26,15
24,05
39,05
24,05
0
0
0
Nun will ich, dass Excel all die Werte findet die gleich sind und gleichzeitig größer Null. Diese gleichen Werte sollen dann in der Form verändert werden, dass die obige Spalte dann folgendermaßen ausschaut:
16,55
39,051
39,6
26,15
24,051
39,052
24,052
0
0
0
Das heißt also, wenn erkannt wird, dass 39,05 zweimal vorhanden ist, dann wird zu der ersten 39,05 in der Spalte 0,001 hinzu addiert und zu der zweiten 39,05 0,002 usw.. Ich hoffe ihr versteht was ich meine.
Danke für eure Hilfe.
Thorsten
AW: gleiche Werte erkennen und verändern
Bert
Deine Beschreibung stimmt aber nicht mit der zweiten Liste überein.
Bert
AW: gleiche Werte erkennen und verändern
Thorsten
Wieso?
AW: gleiche Werte erkennen und verändern
Bert
"Nun will ich, dass Excel all die Werte findet die gleich sind und gleichzeitig größer Null"
Bert
AW: gleiche Werte erkennen und verändern
Thorsten
Ach so,
ich meinte einfach, dass die Nullen, bei der Überprüfung nicht beachtet werden sollen. Die drei Nullen in der Spalte sollen einfach so bleiben wie sie sind, also NICHT 0,001; 0,002; 0,003 als Ergebnis liefern.
AW: gleiche Werte erkennen und verändern
Bert
Na gut, dann noch anders:
"Nun will ich, dass Excel all die Werte findet die gleich sind"
Gleich was sind? Da kommen auch Einzelwerte vor.
Bert
AW: gleiche Werte erkennen und verändern
Thorsten
Die Werte die gleich sich selbst sind sind, also Werte die doppelt, dreifach, vierfach, usw. vorkommen, sollen herausgefunden werden. Beispiel: 39,05 kommt zweimal vor, ebenso 24,05.
Die Einzelwerte bleiben so wie sie sind.
Die wiederholt vorkommenden Werte sollen wie folgt bearbeitet werden:
Für die erste 39,05 in der Spalte soll, in der selben Zelle wenn möglich, der Wert 39,051 (39,05 + 0,001) ausgegeben werden. Für die zweite 39,05 soll 39,052 (39,05 + 0,002) gebildet werden. Wenn eine dritte 39,05 auftreten würde 39,053 usw.
Für die anderen Werte die vermehrt auftreten soll es nach dem gleichen Schema ablaufen.
Hoffe es wird jetzt verstanden. ;-)
Thorsten
Anzeige
AW: gleiche Werte erkennen und verändern
Bert
Option Explicit

Sub mehrfach_plus()
Dim Wert As Double
Dim z As Long, a As Long
Wert = 0.001
For z = 274 To 264 Step -1
If Application.CountIf([f264:f274], Cells(z, 6)) > 1 Then
a = Application.CountIf([f264:f274], Cells(z, 6)) - 1
If Cells(z, 6) > 0 Then
Cells(z, 6) = Cells(z, 6) + (a * Wert)
End If
End If
Next
End Sub

Bert
AW: gleiche Werte erkennen und verändern
Thorsten
Super, es funktioniert.
Danke.
Thorsten
AW: gleiche Werte erkennen und verändern
Bert
Sonst hätte ich es auch nicht gepostet!
Bert

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige