benannte Zellen

Forumthread: benannte Zellen
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: benannte Zellen

benannte Zellen

22.03.2013 08:57:53

Peter

Hallo,
in meiner Arbeitsmappe sind in mehreren Arbeitsblättern Zellen mit
den gleichen Namen (Test) benannt.
Sie unterscheiden sich also nur in ihrer Adresse.
Wie kann ich in allen Arbeitsblättern die mit den Namen Test benannten
Zellen finden und mit den Inhalt benannte Zelle füllen?
Danke im voraus
Peter

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: benannte Zellen

22.03.2013 09:12:22

Beverly
AW: funktioniert leider nicht

22.03.2013 12:38:03

Peter
AW: funktioniert leider nicht

22.03.2013 12:46:56

Beverly
AW: funktioniert

23.03.2013 09:31:41

Peter

AW: benannte Zellen

22.03.2013 09:12:22

Beverly

Hi Peter,
eine Möglichkeit:

Sub Fuellen()
Dim namName As Name
For Each namName In Names
If Right(namName.Name, 4) = "Test" Then _
Range(Application.Substitute(namName, "=", "")).Value = "Benannte Zellen füllen"
Next namName
End Sub

AW: funktioniert leider nicht

22.03.2013 12:38:03

Peter

Hallo Beverly,
erst mal vielen Dank.
Leider fügt Dein Makro nur im letzten Arbeitblatt der Arbeitmappe,
in der benannten Zelle, einen Inhalt ein.
Danke
Peter

AW: funktioniert leider nicht

22.03.2013 12:46:56

Beverly

Hi Peter,
kann ich leider nicht nachvollziehen - bei mir tut es das in allen Tabellenblättern.
https://www.herber.de/bbs/user/84506.xls