Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 07:35:33
Matrix auslesen und in Liste umwandeln
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
772to776
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
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ersetzen in Sheets anhand aktueller Liste

Ersetzen in Sheets anhand aktueller Liste
21.06.2006 09:11:00
Markus
Hallo zusammen!
ich stehe vor folgendem Problem:
- Ich habe ein Excel Workbook mit mehreren Sheets (Ín diesen stehen jeweils Abteilungsbezeichnungen)
- Da sich Abteilungsbezeichnungen häufiger geändert haben, wurden auf einem neuen Sheet jeweils die alten Bezeichnungen zu der neuen, aktuellen Bezeichnung erfasst. Eine Abteilung kann Ihren Namen auch mehrmals geändert haben. Diese Liste wird ständig erweitert!
- Das Makro soll dann die Tabelle mit den Änderungen durchgehen und die alten Bezeichnung durch die Neuen auf allen Sheets ersetzen, die mit "Halbjahr" beginnen.
Struktur der "Update_Abt", wo die neuen Bezeichnungen reingeschrieben werden:
A1: Alt
A2: Abt1
A3: Abt2
B1: Neu
B2: Abt1_Neu
B3: Abt2_Neu
usw...
MfG
Markus

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

Betreff
Datum
Anwender
Anzeige
AW: Ersetzen in Sheets anhand aktueller Liste
21.06.2006 18:32:10
Gerd
Hi,
Ansatz zum Ausbauen:

Sub machs()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Cells.Replace [a1].Text, [b1].Text
Next
End Sub

mfg Gerd
AW: Ersetzen in Sheets anhand aktueller Liste
21.06.2006 18:38:16
Markus
Hi,
habs heute auf Arbeit glaub ich so einigermapßen hinbekommen, kann viell. noch getuned werden. Werd morgen mal den Code posten.
Gruß Markus
AW: Ersetzen in Sheets anhand aktueller Liste
21.06.2006 18:42:25
Markus
Hi,
habs heute auf Arbeit glaub ich so einigermapßen hinbekommen, kann viell. noch getuned werden. Werd morgen mal den Code posten.
Gruß Markus
AW: Ersetzen in Sheets anhand aktueller Liste
21.06.2006 18:42:40
Markus
Hi,
habs heute auf Arbeit glaub ich so einigermapßen hinbekommen, kann viell. noch getuned werden. Werd morgen mal den Code posten.
Gruß Markus
Anzeige
Code
22.06.2006 07:34:01
Markus
Hallo,
sorry für den Tripple Post gestern.. Mein Browser hat gehangen.
Hier nun der Code, evtl. gibts ja noch was zu verbessern...
---------------------------------

Sub Update_Abt()
Dim such As String
Dim ersatz As String
Application.ScreenUpdating = False
Set ActAr = ActiveSheet.UsedRange
ActAr.Select
R_S = ActAr.Row
C_S = ActAr.Column
R_N = ActAr.Rows.Count
C_N = ActAr.Columns.Count
For i = 2 To R_N Step 1
Sheets("Update_Abt").Select
Set ActAr = ActiveSheet.UsedRange
ActAr.Select
R_S = ActAr.Row
C_S = ActAr.Column
R_N = ActAr.Rows.Count
C_N = ActAr.Columns.Count
such = Cells(i, 1).Value
ersatz = Cells(i, 2).Value
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "Update_Abt" Or ws.Name <> "Update_Abt" Then
ws.Activate
ActiveSheet.UsedRange.Select
Selection.Replace what:=such, replacement:=ersatz, lookat:=xlPart, _
searchOrder:=xlByColumns, MatchCase:=False
Range("A1").Select
End If
Next ws
Next i
Application.ScreenUpdating = True
End Sub

------------------
Gruß markus
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige