Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2025 17:14:01
Sverweis auf Formelergebnis bringt #NV Fehler
24.04.2025 15:14:32
Automatische Aufteilung anteilige Umsätze nach Mitarbeitern
24.04.2025 14:42:47
nur bei Filter aufheben:gleiche Daten,unterschiedliche Dauer
24.04.2025 13:27:40
Wenn alle Monate ausgewählt, dann leer lassen statt 1 -
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ersetzten

Forumthread: Ersetzten

Ersetzten
08.04.2005 20:14:00
Roman
Servus,
Ich brauch ein wenig hilfe.
Ich habe eine Tabelle mit mehreren "gleichen" Zellen vobei nur der Zahlenwert variert z.B. Mass = 100
Die 100 können auch eine andere Zahl sein. Nun möchte ich das Excel alle Zellen
die Mass = xxx haben durch Mass = 1 ersetzt.
Ich würde mich sehr um eure Hilfe freuen.
MFG
Roman
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Ersetzung
Tags
#austausch #ersetzungen #scripting
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Ersetzten
08.04.2005 20:24:49
ransi
hallo roman
suchst du das?
menu bearbeiten
ersetzen
Userbild
ransi
AW: Ersetzten
08.04.2005 20:27:15
Roman
Ja soweit war ich auch :)
Doch er nimmt das nicht an bzw. sagt mir das es keine übereinstimmungen gibt.
so hab ich das nämlich auch versucht.
Anzeige
AW: Ersetzten
08.04.2005 20:28:02
Ramses
Hallo
probiers mal so:
Den Code in VBA-Modul deiner Mappe kopieren und laufen lassen
Option Explicit

Sub Replace_Mass()
Dim myC As Range
Dim toRepl As String
toRepl = "Mass = 1"
For Each myC In ActiveSheet.UsedRange
If Not IsEmpty(myC) And myC.Value <> toRepl Then
myC = "Mass = 1"
End If
Next
End Sub

Gruss Rainer
Anzeige
AW: Ersetzten
08.04.2005 20:40:38
Roman
Danke, aber so setzt er alle Zelle indem etwas stand auf Mass = 1. Kann auch sein das ich ein fehler gemacht habe. Kenne mich mit der ganzen VB Sach kaum bzw. garnicht aus :)
Sorry.. ich weiss es ist schwer mit Leuten wir mir :) trotzdem hoffe ich ihr könnt mir helfen.
AW: Ersetzten
08.04.2005 20:47:38
Ramses
Hallo
dann eben so
Option Explicit

Sub Replace_Mass()
Dim myC As Range
Dim toRepl As String
toRepl = "Mass = "
For Each myC In ActiveSheet.UsedRange
If Not IsEmpty(myC) And InStr(1, myC.Value, toRepl) >= 1 Then
myC = "Mass = 1"
End If
Next
End Sub

Gruss Rainer
Anzeige
AW: Ersetzten
08.04.2005 20:50:57
Roman
Vielen dank für deine Hilfe!! hast mir eine Menge Arbeit ersparrt!!
Roman, bist ohne Schuld - Ramses, Ramses!
08.04.2005 20:51:54
Luc
auch Pharaonen können irren!
...so schnell geht's hier - schönen Abend -- owT
08.04.2005 20:54:37
Luc
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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