Adressänderung über mehrere Blätter

Hallo liebe Excel-Spezis
wieder einmal habe ich ein Problem wo ich leider nicht weiter weiss, wie ich es an Besten lösen könnte:
Im Forum und auf CD habe ich leider nichts passendes gefunden, folgendes Problem!
Ich habe eine Mappe mit verschiednen Tabellen im Beispiel Ort1, Ort2 und Ort3 natürlich mit viel mehr Tabellenblättern bis Ort 200, aber im Beispiel genügen wohl 3 Tabellenblätter.
Nun bekomme ich die Personalnummer eines Mitarbeiters, welche die Adresse geändert hat aus einem Ort1 Beispiel, ich ändere diese Adresse in der Tabelle Ort1, da aber dieser Mitarbeiter auch in einem anderen Ort arbeitet, sollte es möglich sein, dass über die Personalnummer auf Ort2 und Ort3 etc.. meine Änderung aus Ort1 übernommen wird.
Dabei ist zu erwähnen, dass der jeweilige Mitarbeiter auf den Tabellenblättern (Ort1, 0rt2, Ort3 etc...) auf anderen Zellpositionen stehn kann! Als Beispiel:
Personalnummer 1234567 Ort1 F2
Personalnummer 1234567 Ort2 F7
Personalnummer 1234567 Ort3 F3
Diese Änderung von Personalnummer 1234567 Ort1 möchte ich auf allen Blättern mit der entsprechenden Personalnummer automatisch übernehmen.
Geht sowas und wenn ja wie muss ich das anstellen?
Besten Dank für eure Mühe
Lieber Gruss
Jürg
https://www.herber.de/bbs/user/31925.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub tausch_ort() Dim Z, Was$, NeuOrt$, c, firstAddress Was = InputBox("Personalnummer", "Frage1") If Was = "" Then Exit Sub NeuOrt = InputBox("Neuer Wohnort", "Frage2") If NeuOrt = "" Then Exit Sub For Z = 1 To Sheets.Count With Sheets(Z).Cells Set c = .Find(Was, LookIn:=xlFormulas) If Not c Is Nothing Then firstAddress = c.Address Do c.Offset(0, -1).Value = NeuOrt Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With Next Z End Sub

Sub tausch_ortUSW() Dim Z, Was$, NeuName$, NeuStr$, NeuPLZ$, NeuOrt$, c, firstAddress Was = InputBox("Personalnummer", "Stammdatenänderung") If Was = "" Then Exit Sub NeuName = InputBox("Neuer Name?", "Stammdatenänderung") NeuStr = InputBox("Neue Straße?", "Stammdatenänderung") NeuPLZ = InputBox("Neue PLZ?", "Stammdatenänderung") NeuOrt = InputBox("Neuer Ort?", "Stammdatenänderung") For Z = 1 To Sheets.Count With Sheets(Z).Cells Set c = .Find(Was, LookIn:=xlFormulas) If Not c Is Nothing Then firstAddress = c.Address Do If NeuName <> "" Then c.Offset(0, -5).Value = NeuName If NeuStr <> "" Then c.Offset(0, -3).Value = NeuStr If NeuPLZ <> "" Then c.Offset(0, -2).Value = NeuPLZ If NeuOrt <> "" Then c.Offset(0, -1).Value = NeuOrt Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With Next Z End Sub

Beliebteste Forumthreads (12 Monate)

Adressänderung über mehrere Blätter

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Adressänderung über mehrere Blätter

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

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread