Anpassung eines VBA Script

Sub Zellen() Dim Zelle As Range 'Hier deine Range in deinem Sheet anpassen For Each Zelle In Sheets("Tabelle1").Range("A1:D200") Zelle = Replace(Zelle, "Test1", "") Application.EnableEvents = False Next Application.EnableEvents = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Zellen() Dim Zelle As Range 'Hier deine Range in deinem Sheet anpassen For Each Zelle In Sheets("Tabelle1").Range("A1:D200") Zelle = Replace(Zelle, "Test1", "") Zelle = Replace(Zelle, "Test2", "") Zelle = Replace(Zelle, "Test3", "") Application.EnableEvents = False Next Application.EnableEvents = True End Sub

leider funktioniert es nicht ransi. Es erscheint immer die Fehlermeldung "Fehler beim kompilieren" Mehrdeutiger Name: Worksheet_Change
ich habe das komplette Script zusammen mit dem alten Script in die Tabelle1 im VB Editor kopiert.
Der Code der Tabelle 1 sieht somit folgendermaßen aus:


' Modul: Tabelle3 Typ: Element der Mappe(Sheet, Workbook, ...)
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
Dim Bereich As Range
Dim Regex As Object
Set Bereich = Intersect(Target, Range("A1:D200"))
If Bereich Is Nothing Then Exit Sub
Set Regex = CreateObject("Vbscript.Regexp")
With Regex
.Pattern = "[^A-Za-zÄÖÜäöüß\d-,%]"
.Global = True
.IgnoreCase = False
.MultiLine = False
Application.EnableEvents = False
For Each Zelle In Bereich
Zelle.Value = .Replace(Zelle.Text, "")
Next
End With
Application.EnableEvents = True
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Regex As Object
Dim dieWorte As Variant
Dim Zelle As Range
Set Regex = CreateObject("Vbscript.Regexp")
dieWorte = Array("Test", "test123", "test234", "test432", "test6567", "test321", "test654")
Application.EnableEvents = False
With Regex
.Global = True
.Pattern = "(" & Join(dieWorte, "|") & ")"
For Each Zelle In Target.Cells
Zelle.Value = .Replace(Zelle.Value, "")
Next
End With
Application.EnableEvents = True
End Sub

HAllo Felix
DAnn musst du beide Codes hintewreinander abarbeiten.
Versuch mal:

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Zelle As Range
    Dim Bereich As Range
    Dim Regex As Object
    Dim dieWorte As Variant
    Set Bereich = Intersect(Target, Range("A1:D200"))
    If Bereich Is Nothing Then Exit Sub
    dieWorte = Array("Test", "test123", "test234", "test432", "test6567", "test321", "test654")
    Set Regex = CreateObject("Vbscript.Regexp")
    With Regex
        .Pattern = "[^A-Za-zÄÖÜäöüß\d-,%]"
        .Global = True
        .IgnoreCase = False
        .MultiLine = False
        Application.EnableEvents = False
        For Each Zelle In Bereich
            Zelle.Value = .Replace(Zelle.Text, "")
        Next
        .Pattern = "(" & Join(dieWorte, "|") & ")"
        For Each Zelle In Target.Cells
            Zelle.Value = .Replace(Zelle.Value, "")
        Next
    End With
    Application.EnableEvents = True
End Sub

ransi

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread