Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
420to424
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
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

For each worksheet

For each worksheet
DirkR
hi,
jetzt für heute die dritte und letzte frage,
ich steht irgendwie mit den for each schleifen auf kriegsfuß, die funktionieren bei mir nie... :-(
wie muß ich das denn eingeben, wenn ich folgenden befehl in jeden tabellenblatt der momentan aktiven exceldatei ausführen möchte?
Cells.Select
Selection.Replace What:=s, Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
gruss
dirk

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

Betreff
Benutzer
Anzeige
AW: For each worksheet
Stefan
Versuch mal
dim Tabelle as worksheet
for each tabelle in activeworkbook.worksheets
tabelle.Cells.Select
Selection.Replace What:=s, Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
next tabelle
AW: For each worksheet
ANdreas
Hallo Dirk,
so gehts und das ganz ohne Select :-)

Sub Beispiel()
Dim ws As Worksheet, s$
s = "Test"
For Each ws In Worksheets
ws.Cells.Replace What:=s, Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
Next ws
End Sub

Gruß
Andreas
oder so OT
Stefan
Hatte den :) vergessen
Stefan
AW: Hatte den :) vergessen
29.04.2004 17:45:02
DirkR
dank an alle!
ich glaub, jetzt ist mein add-in fertig! *freu*
gruss
dirk
Anzeige

205 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige