Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
624to628
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Probleme mit Suchen/Ersetzen

Probleme mit Suchen/Ersetzen
22.06.2005 17:23:12
Nadine
Riesengroßes Problem. Er führt mein Makro ohne Murren binnen 5 Sekunden aus. Aber er ersetzt mir die Zeichen einfach nicht. Ich sehe auch Keine Fehler. Range ist definitiv der richtige. HILFE !

Sub Textfeld2_BeiKlick()
Dim blatt As Worksheet
For Each blatt In ActiveWorkbook.Sheets
Range("F30:F200").Cells.Replace What:="Value", Replacement:="V.", LookAt:=xlPart, _
SearchOrder:=xlRows, MatchCase:=False
Next blatt
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Probleme mit Suchen/Ersetzen
22.06.2005 17:26:15
Fred
blatt.Range("F30:F200").Cells.Replace What:="Value", Replacement:="V.", LookAt:=xlPart
mfg Fred
Thx, but more problems mit Suchen/Ersetzen
22.06.2005 17:33:58
Nadine
Okay, besten Dank Fred.
Habe noch ne weitere Frage: Wie schaffe ich es, dass neben der Ersetzung der Zeichen, sagen wir nur ingesamt 10 Buchstaben das Feld schmücken. Will also die ehemaligen Felder auf die ersten 10 Buchstaben/Ziffern beschneiden. Ich weiss, es gibt die Formel Links und Rechts. Mit denen konnte ich aber noch nie was anfangen....
1 kleine Ergänzung
22.06.2005 17:39:52
Luschi
Hallo Fred,
damit das Makro auch wirklich über alle Tabellen läuft, muß vor Range auch
noch das Tabellenobjekt stehen, also: 

Sub Textfeld2_BeiKlick()
Dim blatt As Worksheet
For Each blatt In ActiveWorkbook.Sheets
blatt. Range("F30:F200").Cells.Replace What:="Value", _
Replacement:="V.",             LookAt:=xlPart, _
SearchOrder:=xlRows, MatchCase:=False
Next blatt
End Sub
Sonst läuft das Makro nur über das gerade aktuelle Tabellenblatt.
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Probleme mit Suchen/Ersetzen
22.06.2005 18:06:55
Nadine
Hat funktionärt. Danke Euch beiden !

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige