Ersetzten

Bild

Betrifft: Ersetzten von: Roman
Geschrieben am: 08.04.2005 20:14:00

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

Bild


Betrifft: AW: Ersetzten von: ransi
Geschrieben am: 08.04.2005 20:24:49

hallo roman

suchst du das?
menu bearbeiten
ersetzen
Userbild


ransi


Bild


Betrifft: AW: Ersetzten von: Roman
Geschrieben am: 08.04.2005 20:27:15

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.


Bild


Betrifft: AW: Ersetzten von: Ramses
Geschrieben am: 08.04.2005 20:28:02

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


Bild


Betrifft: AW: Ersetzten von: Roman
Geschrieben am: 08.04.2005 20:40:38

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.


Bild


Betrifft: AW: Ersetzten von: Ramses
Geschrieben am: 08.04.2005 20:47:38

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


Bild


Betrifft: AW: Ersetzten von: Roman
Geschrieben am: 08.04.2005 20:50:57

Vielen dank für deine Hilfe!! hast mir eine Menge Arbeit ersparrt!!


Bild


Betrifft: Roman, bist ohne Schuld - Ramses, Ramses! von: Luc
Geschrieben am: 08.04.2005 20:51:54

auch Pharaonen können irren!


Bild


Betrifft: ...so schnell geht's hier - schönen Abend -- owT von: Luc
Geschrieben am: 08.04.2005 20:54:37




 Bild

Beiträge aus den Excel-Beispielen zum Thema "Programm automatisch starten"