Office: Bereichsnamen löschen und bearbeiten

Hallo zusammen,

vorab: Ich bin Neuling, was VBA angeht. Ich habe früher aber eine Zeit lang in anderen Sprachen programmiert (Pascal, C, Java), so dass ich ein grundsätzliches Verständnis habe / haben sollte *mrcool

Ich generiere mir aus unterschiedlichen Quellen 2 CSV-Dateien, die beide identische aufgebaut sind, aber verschiedene Inhalte haben.
In einer Excel-Datei mit mehreren Tabellenblättern bilden Sie die Basis. Das Makro soll die Daten aktualisieren. Ich gehe dabei wiefolgt vor:

• Beide Dateien per Application.GetOpenFilename auswählen lassen

• Inhalt des Tabellenblatts löschen

• Datei1 importieren

• den dabei erstellten Namensbereich löschen

• Datei2 importieren

• den dabei erstellten Namensbereich löschen

• Sortieren

• Namensbereich, der die A2 bis A[letzteZeile] enthält bearbeiten (es könnten mehr oder weniger Einträge geworden sein)

• Namensbereich der A2 bis [letzteSpalte][letzteZeile] enthält bearbeiten (es könnten mehr oder weniger Einträge geworden sein)

Das funktioniert auch alles, bis auf das mit den Namensbereichen.
Beim löschen funktioniert weder ActiveWorkbook.Names("importtemp").Delete noch
ActiveSheet.Names("importtemp").Delete

Wenn ich google bemühe finde ich zwar einige Leute, die das gleiche Problem haben, aber keine echte Lösung. Meist wird angeboten mit einer ForEach-Schleife alle definierten Bereiche zu löschen. Das kann ich aber nicht, da dieses Dokument viele Bereiche hat, auf die referenziert wird.

Um das Bearbeiten eines Bereichs habe ich mich noch gar nicht gekümmert, nachdem ich nun Stunden vergeblich damit verbracht habe, Namen zu löschen.

Kann mir jemand helfen?

:)

 

Moin!
Den jeweils letzten erzeugten Namen löscht Du so:
Code:

Gruß Ralf

 

Leider nein *frown.gif*
Laufzeitfehler '9': Index außerhalb des gültigen Bereichs

 

Hallo,

beim "normalen" Importieren einer CSV werden keine Bereichnamen angelegt. Deshalb die FRage, wie die Namen angelegt werden.

mfg

 

Dann hast Du halt keine Namen in der Tabelle.
Mir wäre es allerdings auch neu, dass bei einem Textimport ein Name vergeben wird.
Vielleicht solltest Du Deinen bisherigen Code mal einstellen.

Gruß Ralf

 

Hi,

meinst du eventuell so:

Code:

 

Zum Datei auswählen und importieren:

Code:

Den Code habe ich aufzeichnen lassen (wie gesagt, bin Neuling). Das tut auch, nur legt er mir halt den Namen an, auch wenn ich .name weglasse. Deswegen dachte ich, ich vergebe ihn bewusst und kann ihn dann über den Namen löschen. Allerdings musste ich nun auch feststellen, dass er bei mehrfacher Ausführung des Makros _1 _2 usw. anhängt.
Wenn der Name beim Import gar nicht erst erzeugt werden muss, um so besser! Das wäre dann ja noch einfacher *Smilie


Mich würde dann trotzdem noch interessieren, wie ich einen Namen über dessen Name ansprechen und löschen kann. Vielleicht brauche ich das mal an anderer Stelle.


Der Vollständigkeit halber...
Zum aktualisieren der Bereiche nutze ich:
Code:

=> funzt

 

Meinen Beitrag hast du schon gelesen?

 

Jetzt ja - Danke. Da hatte ich gestern an meiner Antwort wohl aber zu lange getippt.

Leider tut das aber auch nicht.
Ich habe namName.Delete durch MsgBox("gefunden") ersetzt. Ich erhalte keine MsgBox. Beim Vergleich haut also etwas nicht hin.

Ist "=" bei VBA auch wirklich ein Vergleich oder eine Zuweisung?
Oder wird für einen String-Vergleich ein anderer Operator benötigt (eq o.ä.)?

 

Wenn der Name nicht gefunden wird, dann ist er entweder anders geschrieben oder einem Tabellenblatt direkt zugewiesen. Falls er dem Tabellenblatt direkt zugewiesen ist, dann wird er mit dieser Codezeile gefunden

Code:

 

Der ging gar nicht in die Schleife rein.

Ich habe ThisWorkbook.Names durch Activeworkbook.Names ersetzt und mir die Namen in einer MsgBox ausgeben lassen. Es kommen alle.

Der Bereichsname lautet 'ARBEITSMAPPE'!importtemp

Ich habe es jetzt so gelöst:

Code:

Das hat den Vorteil, dass er die Namen auch bei mehrfacher Ausführung des Makros sauber entsorgt.

Danke für die Unterstützung. Mich hat das ganze echt gewurmt.

Der Neugierde halber: Wie krieg ich den Import hin, ohne dass Namen angelegt werden? Fennek11 hat da ja angedeutet, dass es nicht normal ist, dass Namen angelegt werden.

 

Ob du Like oder Instr verwendest ist gleichgültig - macht im Prinzip dasselbe.

Wenn der Code nicht in die Schleife läuft (davon hattest du bis jetzte aber nichts geschrieben und mit dem Hinweis "Leider tut das aber auch nicht" kann man schließlich nichts anfangen denn er kann alles mögliche bedeuten), dann hat die Arbeitsmappe keine Namen - ich konnte ja nicht wissen, dass du die Namen nicht in der Arbeitsmappe mit dem Code suchst sondern in einer anderen, die gerade aktiv ist.


QueryTables legt m.W. automatisch IMMER einen Namen an.

 

Beverly, das sollte keine Kritik an dir sein - ich bin dankbar und ziehe auch aus deinen Code-Schnipseln wertvolle Infos für mich. Ist doch wie eine Schnitzeljagd: von Hinweis zu Hinweis

Makros versuche ich in der persönlichen Arbeitsmappe zu halten. Deswegen sind sie bei mir nicht im gleichen Dokument. Wie ich schrieb, bin ich Anfänger bzgl. Makros/VBA, weswegen ich da auch noch einige Verständnis-Probleme habe. Aber wieder was gelernt *Smilie