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"