Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Komplettes Sheet anwählen (VBA) anstatt ActiveCell

Forumthread: Komplettes Sheet anwählen (VBA) anstatt ActiveCell

Komplettes Sheet anwählen (VBA) anstatt ActiveCell
03.05.2005 16:01:28
Nico
Hi @ll
folgendes Problem:
Ich habe den untenstehenden Code im Archiv gefunden, um "e" in "E" und "t" in "T" umzuändern. Problem ist, dass es nur auf die aktive Zelle gerichtet ist.
Wie muss ich den Code umschreiben, um das komplette Sheet anzusteuern?
ActiveCell = Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(ActiveCell, "e", "E"), "t", "T")
Danke
Nico
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Komplettes Sheet anwählen (VBA) anstatt ActiveCell
03.05.2005 16:27:48
Horst
cells.replace "e","E"
mfg Horst
AW: Komplettes Sheet anwählen (VBA) anstatt ActiveCell
03.05.2005 16:29:06
Volker
Hallo Nico,
wie wär's damit:
sub ersetzen()
dim zelle as range
for each zelle in activesheet.usedrange
zelle = Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(zelle, "e", "E"), "t", "T")
next
end if
Gruß
Volker
Anzeige
AW: Komplettes Sheet anwählen (VBA) anstatt ActiveCell
03.05.2005 16:30:34
IngGi
Hallo Nico,
so sollte es gehen:

Sub Ersetzen()
ActiveSheet.Cells.Replace What:="e", Replacement:="E", LookAt:=xlPart
ActiveSheet.Cells.Replace What:="t", Replacement:="T", LookAt:=xlPart
End Sub

Gruß Ingolf
besser ist das, vergiß die Schleife (o.T.)
03.05.2005 17:23:35
Volker
.
Besten Dank :D
04.05.2005 09:24:38
Nico
.
Anzeige

Forumthreads zu verwandten Themen

Anzeige