Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
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
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Viele Bereichsnamen mit VBA ändern

Forumthread: Viele Bereichsnamen mit VBA ändern

Viele Bereichsnamen mit VBA ändern
21.01.2018 16:59:14
Gerhard
Hallo,
in einer Arbeitsmappe benütze ich sehr viele Bereichnamen. Wenn ich die Bezüge von vielen dieser Bereichsnamen ändern muss, so ist das im Namensmanager sehr aufwändig.
Gibt es mit VBA die Möglichkeit, in allen Bereichsnamen die z. B. auf ...$150 enden (als untere Bereichszeile) diese auf z. B. ...$200 zu ändern.
Also aus =Eintragen!$D$10:$AB$150 soll =Eintragen!$D$10:$AB$200 werden,
oder aus =Urlaubsliste!$M$17:$O$150 soll =Urlaubsliste!$M$17:$O$200 werden.
Gesucht ist ein Macro das alle ...*$150 in ...*$200 im Namenmanager ändert.
Wer könnte mir das (wenn möglich) erstellen ?
Viele Grüße
Gerhard
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: for each
21.01.2018 18:05:42
?
Der Zugriff sollte so gehen:

dim Nn as Name
for each Nm in thisworkbook.names
debug.print Nm, Nm.address
next Nm
Dann sollte ein Replace möglich sein.
AW: for each weitere Hilfe ?
21.01.2018 18:34:34
Gerhard
Hallo ?
könntest du den Code evtl. vervollständigen? Mir gelingt das nicht.
Gruß
Gerhard
Anzeige
AW: for each weitere Hilfe ?
21.01.2018 18:56:20
Luschi
Hallo Gerhard,
hier mal mein Versuch: 

Sub testeMachmal()
Dim wb As Workbook, na As Name, rg As Range
Dim adr As String, sRef As String
Set wb = ThisWorkbook
'alle Namen durchlaufen
For Each na In wb.Names
Debug.Print na.Name
Set rg = Nothing
'falls es Name gibt, die nicht auf einen Zellenbereich bezogen sind
On Error Resume Next
Set rg = na.RefersToRange
On Error GoTo 0
If Not rg Is Nothing Then
'Name hat einen Zellbezug
adr = na.RefersTo
If InStr(1, adr, ":", vbTextCompare) > 0 Then
v = Split(rg.Address, ":", -1, vbTextCompare)
adr = v(1)
If Range(adr).Row = 150 Then
sRef = na.RefersTo
sRef = Replace(sRef, "150", 200, 1, -1, vbTextCompare)
'neuer Zewllbezug
na.RefersTo = sRef
End If
End If
End If
Next na
Set na = Nothing: Set wb = Nothing
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
AW: testeMachmal funzt nicht
21.01.2018 20:12:27
Gerhard
Hallo Luschi,
zunächst Danke für die Unterstützung.
Das Macro steigt aus bei v = (Variable nicht dimensioniert) Ich schrieb dann Dim V (as ?).
Dann Laufzeitfehler 1004 Die Methode Range für das Objekt _Global ist fehlgeschlagen.
Gruß
Gerhard
AW: testeMachmal funzt nicht
21.01.2018 20:43:29
Luschi
Hallo Gerhard,
korrigiere diese Zeile: Dim adr As String, sRef As String, v As Variant
Dann läufts bei mir.
Gruß von Luschi
aus klein-Paris
Anzeige
testeMachmal funzt so!
21.01.2018 21:55:08
Gerhard
Hallo Luschi,
das Ersetzen der Zeilenwerte gelingt jetzt! Danke für diesen Code.
bis zum nächsten Mal im Forum
Gruß
Gerhard
AW:Vorschlag
21.01.2018 19:30:01
?
Ohne den Code von Luschi gesehen zu haben:

Sub T1()
Dim Nm As Name
Dim Nx As String
For Each Nm In ThisWorkbook.Names
Nx = Replace(Nm, "$10", "$20")
Debug.Print Nm.Name, Nm.RefersTo, Nx
Names(Nm.Name).RefersTo = Nx
Next Nm
end sub
(Replace muss angepasst werden)
Anzeige
AW:Vorschlag
21.01.2018 20:18:48
Gerhard
Hallo,
danke für die Hilfe.
Code steigt bei Zeile Names(Nm.Name).RefersTo = Nx aus.
Gruß
Gerhard
AW: Replace angepasst?
21.01.2018 20:30:48
?
falls du den Fehler nicht findest, müßtest du eine (sehr) abgespeckte Datei hochladen.
(sieh die die Ausgaben im debug-Fenster an)
AW: Dim v As Variant o.r.T
21.01.2018 20:21:13
Gerd
cu Gerd
Anzeige
AW:Names angepasst
21.01.2018 20:51:41
Gerd
Moin Gerhard! 
Sub T1()
Dim Nm As Name
Dim Nx As String
For Each Nm In ThisWorkbook.Names
Nx = Replace(Nm, "$10", "$20")
Debug.Print Nm.Name, Nm.RefersTo, Nx
Nm.RefersTo = Nx
Debug.Print Nm.RefersTo
Next Nm
End Sub

cu Gerd
Fehlermeldung
21.01.2018 22:01:47
Gerhard
Hallo Gerd,
Laufzeitfehler 1004:
"Der eingegebene Name ist ungültig"
Gruß
Gerhard
Anzeige
;

Forumthreads zu verwandten Themen

Mappe mit variablen Dateinamen aktivieren
Peter

Hallöchen an alle,
wie kann man eine geöffnete Mappe über workbooks.activate oder windows.activate ansprechen, ohne dass man den vollen Dateinamen kennt.
Dateiname = "Auftragskennzahlen(*).xls"
Das * steht für eine Zahl, die mir nicht bekannt ist, sondern von einer Web-Datenbank ver...
07.08.2008 17:27:58
Thread-ID: 1000047
4 Beiträge
Öffnen mehrer Dateien mit gleichen Namen
Ryu

Hallo!
Wenn ich irgendwelche Exceldateien öffne und anschließend noch eine andere mit dem selben Namen (Wenn ich z.B. das Original bei mir behalte und die korrigierten von Kollegen bekomme), dann ist es so, dass entweder die zweite Datei automatisch umbenannt und geöffnet wird oder es wird...
27.08.2008 18:02:00
Thread-ID: 1005168
3 Beiträge
Anzeige
Liste mit Arbeitsblattnamen
Christian

Hallo Forum,
ich habe in einer Exceldatei mehrer - viele Arbeitsblätter, die, da sie importiert wurden, sehr unterschiedliche Namen haben, wie z.b. Apfel, Spargel, Schrauben, Ausfall......0,123 5,38 usw.
Um Daten aus diesen Blättern zusammenführen zu können benötige ich in einem Arbei...
28.08.2008 10:35:00
Thread-ID: 1005327
8 Beiträge
Bilddatei mit neuem Namen speichern
egonkernien

Hallo wer hilft bitte?
Guten Abend.
Ich möchte eine Dialogbox aufrufen, dort eine Bilddatei auswählen.
Ich möchte diese Bilddatei in ein Image1 auf einer Userform laden. Z.B. D:\Daten\Bilder\DSC0011.jpg
Dann diese Bilddatei umbenennen in D:\Daten\Test\082008_01.jpg, abspeichern...
28.08.2008 22:32:28
Thread-ID: 1005608
5 Beiträge
Datei öffnen Abfrage nach Dateinamen mit Userform
lisa

Hallo zusammen.
Ich hab die gleiche Frage in einem älteren Thread von mir gerade eben gestellt.
Ich weiß aber nicht ob diesen noch jemand liest, da ich die Frage nicht auf, noch offen gestellt, habe und ihn auch nicht in Beiträge von heute finde.
Also wenn doppelt, bitte nicht böse...
04.09.2008 14:23:00
Thread-ID: 1007419
5 Beiträge
Namen mit Konstante: funktioniert nicht!?
Jens

Hallo liebes Forum,
leider mag mich Excel mal wieder nicht:
Folgende Formel funktioniert zwar:
=ANZAHL2('Mein_Blatt'!6:6)
und liefert den richtigen Wert, aber ich möchte die Formel nach unten kopieren; dabei wird der Wert 6 inkrementell erhöht, was aber nicht passieren soll.
11.09.2008 16:58:00
Thread-ID: 1009181
4 Beiträge
In Zelle mit Namen schreiben
fga

Hallo
Ich habe ein Tabellenblatt. In dem Blatt habe ich für die Spalten einen Namen definiert. Ebenso für die Zeilen. (links oben im Namensfeld)
Z.B.:
..... Sh1 Sh2 Sh3
Rh1
Rh2
Rh3
Nun möchte ich über den Namen der Zeile und Spalte die betreffende Zelle lesen,...
08.10.2008 15:27:04
Thread-ID: 1015078
12 Beiträge
Email Ergänzing, Adresse CC
Karel

Hallo Forum,
habe in diese Forum unterstehende Email VBA code gefunden.
AUF tabelleblatt Mailadresse stehn ab A2 sten untereinander alle Emailadresse
Wie kann ich Emailadresse als CC genau so abfragen auf Tabelleblatt mail adressen ab Zelle C2
Option Explicit
Sub Serien_E...
23.10.2008 19:45:00
Thread-ID: 1018786
7 Beiträge
Probleme mit Namen für Formel und Vba
Reinhard

Hallo Wissende,
die Datei: https://www.herber.de/bbs/user/56243.xls hat nach Klick auf den Button die nachfolgende Tabelle:
Die Berechnung in Spalte C ist korrekt, so soll es aussehen, also pro Stunde nur einen Wert, Rest 0.
Da die Originaldatei alle 65536 Zeilen ausgenutzt hat, e...
24.10.2008 13:28:00
Thread-ID: 1018986
6 Beiträge
Probleme mit Namen / Funktion
born2b@gmx.de

Guten Morgen,
bei angehängter Datei bekomme ich beim Speichern immer die
Meldung "Der Name Dms360 steht in Konflikt mit einer gültigen
Bereichsbezeichnung oder ist für Exel ungültig. Der Name
wurde durch _Dms360 ersetzt".
Dms360 ist eine selbstdefinierte Funktion. Ich fi...
05.11.2008 10:34:00
Thread-ID: 1021784
2 Beiträge
Anzeige
Probleme mit Namen / Funktion
born2b@gmx.de

Guten Morgen,
bei angehängter Datei bekomme ich beim Speichern immer die
Meldung "Der Name Dms360 steht in Konflikt mit einer gültigen
Bereichsbezeichnung oder ist für Exel ungültig. Der Name
wurde durch _Dms360 ersetzt".
Dms360 ist eine selbstdefinierte Funktion. Ich fi...
05.11.2008 11:01:00
Thread-ID: 1021795
2 Beiträge
Email Hyperlinke mit Betreff aus Dateiname&Registe
Patrick

Hallo miteinander
Ich versuche von der Excel Tabelle eine Email über einen Email Hyperlink zu starten. Diese Email soll automatisch im Betreff den Dateinamen der Exceltabelle und den Namen des aktiven Tablellenblattes/Registers enthalten.
Geht das und wie heisst der Hyperlink dazu ?
...
07.12.2008 15:18:33
Thread-ID: 1030869
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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