Supportnet / Forum / Tabellenkalkulation

Hallo, zunächst einmal meine Hochachtung an Euch alle, die ihr so viel Ahnung habt und vor allem Euch die Zeit nehmt, sie hier zu teilen!!! Zu meinem Problem: Ich habe ein Excelsheet, in dem ich einige Bereiche einer Tabelle benannt habe, um sie leichter auswerten zu können. Diese Namen sind mit einem Datum versehen (z.B. "GEHALT_112007" Ich möchte den Teil "112007" z.B. durch 122007 ersetzen - und das für ALLE Namen im Ausgewählen Bereich. Ich bin mir ganzganzganz sicher, dass das mal super simpel durch "Ersetzen" ging - aber neuer Job, neuer Rechner- jetzt werden WEDER Formeln NOCH Namen in das Ersetzen eingebunden!!! Hat da jemand nen Tip? Ich muss sonst fast 1500 Namen (kein Witz!) "zu Fuß" Ändern. Und das ist ja langfristig keine Lösung! Vielen Dank für Eure Bemühungen vorab!

Ich verstehe nicht, wieso soll das nicht mehr gehen?
Ersetzen anklicken, suchen nach 112007 ersetzen durch 122007 und dann auf alle ersetzen klicken. Wo liegt das Problem?? Was hat das mit einem neuen Rechner zu tun??

Gruß marie

Hallo Marie,

bei Wünnipu geht es um Namen für Bereiche (Menüleiste => Einfügen => Namen => Definieren...). Jedenfalls verstehe ich das so. Da wird man, so glaube ich, mit der Suchen/ Ersetzen-Funktion nicht viel anstellen können.
Das was Du meinst, wäre anzuwenden, wenn es sich um Zellwerte handeln würde.
Allerdings fällt mir im Moment dazu auch keine Funktion ein, die Excel dafür zur Verfügung stellt.

Daher habe ich Dir mal ein Makro erstellt, dass Dir alle Bereichsnamen in einer Datei entsprechend der Eingabe, die Du in eine InputBox eintragen musst, ändert.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

 Option Explicit

Sub Bereichsnamen_ändern()
Dim BerName
Dim Änderung As Variant
Dim strBereichsname As String
Dim strBereich As String
Änderung = InputBox("Bitte Anderung eingeben")
If Änderung = False Then Exit Sub
For Each BerName In Names
strBereichsname = Mid(BerName.Name, 1, InStr(BerName.Name, "_")) & Änderung
strBereich = BerName
With ActiveWorkbook
.Names(BerName.Name).Delete
.Names.Add Name:=strBereichsname, RefersTo:=strBereich
End With
Next
End Sub 

Ich hoffe, Du kommst klar.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo,

ich nochmal. Ich meine natürlich nicht nur



in meinem letzten Beitrag,

sondern

Hallo Wünnipu und Marie

Sorry!

MfG,
Oliver
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}

@Marie: Super Antwort, danke, ich weiß dass das geht, aber der Rechner macht es nicht. Was genau ist daran schwer zu kapieren!?
Und Deine Frage kann ich leider nicht beantworten, da ich wenn ich es denn wüsste vermutlich auch die Lösung hätte, was das mit meinem Rechner zu tun hat.
Und, Überraschung!!! in einem Forum schreiben Leute tatsächlich Fragen rein weil sie die Antwort wirklich nicht wissen und nicht weil sie zu viel Zeit haben und andere beschäftigen wollen!
-Aber vielen Dank nochmal für die große Hilfe.

@Oliver,
mit dem Excelprogramm auf meinem ehem. Rechner war das kein Problem, er hat wirklich jede Definition und jede Formel, in der diese vorkam, geändert. Dieser tut es nun überhaupt nicht. Ich versuche das mal mit Deinem Makro und meld mich wenn ich erste Ergebnisse habe!

Danke sehr und liebe Grüße!

@Wünnipu:

Sorry, falls ich mich unklar ausgedrückt habe. Ich meinte es kann gewiss nichts mit einem neuen Rechner zu tun haben, wenn die Suchen/ersetzen- Funktion in Excel niccht funktioniert.
Könnte es sein, dass die Datei schreibgeschützt ist??

@Coros: Er hatte doch geschrieben:



Sorry, falls es noch ein anderes "ersetzen" gibt, dann habe ich das wohl falsch verstanden.

Gruß Marie

• Excel Makro
• Teile von Daten einer Excel Datei in eine andere Excel Datei übernehmen
• Auserten der "Namen" aus Excel 2003
• trennen von namen und vornamen in excel
• komische Namen in Excel