Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1192to1196
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
Inhaltsverzeichnis

VBA Script erweitern um weiteren Range Bereich

VBA Script erweitern um weiteren Range Bereich
Felix
Hallo,
ich nutze unten stehendes VBA script. Dieses möchte ich nun erweitern um folgende Range:
For Each Zelle In Sheets("Tabelle1").Range("A2:A200")
Ich möchte nämlich dass ein paar bestimmte Begriffe nur in dieser Zelle gefiltert werden. Kann mir bitte jemand sagen wie das Script angepasst werden muss? Ich habe bereits alles versucht aber erhalte immer Fehlermeldungen...
Vielen Dank

Option Explicit
Sub Zellen()
Dim Zelle As Range
'Hier deine Range in deinem Sheet anpassen
For Each Zelle In Sheets("Tabelle1").Range("A2:D200")
Zelle = Replace(Zelle, "Artikelinformationen:", "")
Zelle = Replace(Zelle, "ONE SIZE", "")
Zelle = Replace(Zelle, "ArtikelinformationenONESIZE", "")
Application.EnableEvents = False
Next
Application.EnableEvents = True
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA Script erweitern um weiteren Range Bereich
05.01.2011 22:02:29
Gerold
Hallo Felix
Wie wärs hiermit?

Sub Zellen_Ändern()
Dim Zelle As Range
Application.ScreenUpdating = False
'Bereich bitte anpassen
For Each Zelle In Sheets("Tabelle1").Range("A2:D200")
'What und Replacement bitte anpassen
Zelle.Replace What:="Suchen", Replacement:="Ersetzen", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Next
Application.ScreenUpdating = True
End Sub
Mfg Gerold
Rückmeldung wäre nett
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige