Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellbereiche in Mappe ändern

Forumthread: Zellbereiche in Mappe ändern

Zellbereiche in Mappe ändern
21.10.2008 10:59:55
Bruno
Guten Tag
In einer Arbeitsmappe mit 18 Tabellen sollen in allen nicht leeren Zellen der Spalten I die Werte (wo vorhanden) durch Füllzeichen «. . . . . . .» für spätere manuelle Einträge in einer Hardcopie ersetzt werden. Eine aufwändige Arbeit, die sicher ein entsprechender VBA-Code im Sekunden erledigt. Kann mir jemand weiterhelfen?
Mit bestem Dank zum voraus und Gruss, Bruno
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellbereiche in Mappe ändern
21.10.2008 11:19:00
Beverly
Hi Bruno,
verwende Suchen und Ersetzen bei markierter Spalte I. Suchen nach: *~ und Ersetzen durch: >.
Mittels Code über alle Tabellenblätter

Sub ersetzen()
Dim wsTabelle As Worksheet
For Each wsTabelle In Worksheets
wsTabelle.Columns("I").Replace What:="*~", Replacement:=">", LookAt:=xlPart, _
SearchOrder:=xlByRows
Next wsTabelle
End Sub



Anzeige
AW: Zellbereiche in Mappe ändern
21.10.2008 11:45:00
Bruno
Besten Dank auch an Dich, Karin. Mit Deinem Code läuft das Ganze wesentlich schneller ab!
Gruss, Bruno
AW: Zellbereiche in Mappe ändern
21.10.2008 16:26:54
Bruno
Guten Abend Karin
Noch eine Variantenfrage zu Deinem Code:
Ich möchte die Zelländerung beschränken auf die Tabellenblätter > "T_50" und Besten Dank zum Voraus und einen schönen Abend noch,
Bruno
Anzeige
AW: Zellbereiche in Mappe ändern
21.10.2008 17:28:08
Beverly
Hi Bruno,
ungetestet:

Sub ersetzen()
Dim wsTabelle As Worksheet
For Each wsTabelle In Worksheets
On Error Resume Next
If CInt(Mid(wsTabelle.Name, 3)) > 50 And CInt(Mid(wsTabelle.Name, 3)) >", LookAt:=xlPart,  _
_
SearchOrder:=xlByRows
End If
End If
On Error GoTo 0
Next wsTabelle
End Sub



Anzeige
AW: Zellbereiche in Mappe ändern
21.10.2008 21:16:00
Bruno
Ein herzliches Danke, der Code funktioniert auf Anhieb!!
Gruss und gute Nacht, Bruno
AW: Zellbereiche in Mappe ändern
21.10.2008 11:20:04
Matthias
Hallo
in ein Modul
bitte nur mit einer Kopie testen !!
Option Explicit

Sub lauf()
Dim x As Long, Y As Long
For Y = 1 To Worksheets.Count
For x = 1 To 65536
If Not IsEmpty(Worksheets(Y).Cells(x, 9)) Then Worksheets(Y).Cells(x, 9).Value = ">>"
Next x
Next Y
End Sub


wird aber bei 18 Tabellen einen Moment dauern.
Gruß Matthias

Anzeige
AW: Zellbereiche in Mappe ändern
21.10.2008 11:35:04
Bruno
Danke Matthias, klappt wie gewünscht!!
Gruss, Bruno
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige