Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
116to120
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
116to120
116to120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zell Namen prüfen per VBA

Zell Namen prüfen per VBA
29.04.2002 09:30:56
Hans-Jörg
Hallo,
Ich habe viele Zellen und einige Spalten mit Namen belegt.
Nun kommt es vor, dass bei Spaltennamen der Bezug verloren geht.
Über Menü Einfügen - Name - Einfügen / Liste Einfügen, habe ich auf einem Tabellenblatt alle Zuweisungen und Adressen.
wer kann mir eine Hilfe geben um per VBA beim Start der Mappe
zu prüfen ob alle Namen noch korrekt sind. Wenn nicht sollen sie gemäß der liste wieder eingetragen werden.
Darunter sind,

Zellnamen: z.B.
DatHeute =Konstanten!$D$61
DepotPath =Konstanten!$D$7

Bereichsnamen: z.B.
Ausschluss =Konstanten!$A$55:$P$56

SpaltenNamen z.B.
OU =CSVinput!$A:$A

Durch den Bezugsverlust funktioniert die gesamte Mappe nicht mehr Beispiele:
CompCode=CSVinput!#BEZUG!
Kst =CSVinput!#BEZUG!
ME =CSVinput!#BEZUG!
Preis =CSVinput!#BEZUG!
START =#BEZUG!$A$3:$A$3

Hans-Jörg

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zell Namen prüfen per VBA
29.04.2002 10:14:50
Joachim K
Hallo Hans-Jörg, mit folgendem Code kannst Du die Namen in einer Arbeitsmappe auflisten lassen : Sub Namen_auflisten() On Error Resume Next Application.DisplayAlerts = False Sheets("nm.liste").Delete Sheets.Add.Name = "nm.liste" Columns("B:B").ColumnWidth = 50 Application.ScreenUpdating = False Application.Calculation = xlManual Sheets("nm.liste").Select Range("A3:C400").ClearContents i = 5 For Each nm In ActiveWorkbook.Names Cells(i, 1).Value = i - 4 Cells(i, 2).Value = nm.Name Cells(i, 3).Value = "'" & nm.RefersTo i = i + 1 Next Application.Calculation = xlAutomatic Application.DisplayAlerts = True End Sub Aber gemäß welche Liste sollen sie bei Bedarf wieder eingetragen werden? Ich denke Du musst prüfen wo der Fehler (#Bezug) entsteht - in der Regel beim Löschen von Blättern, Spalten ... Gruß Joachim
Anzeige
Re: das ist es nicht. Namen müssen geprüft werden
29.04.2002 10:46:00
Hans-Jörg
Hallo Joachim, Vielen Dank, aber das war nicht meine Frage. Die Liste kann ich wie beschrieben erstellen. Sie wird nur einmal geschrieben. Wichtiger ist die Frage : Wie kann ich alle definierten Namen beim Start der Mappe anhand einer Liste prüfen und korigieren. Hans-Jörg
Re: das ist es nicht. Namen müssen geprüft werden
29.04.2002 11:16:33
Joachim K
Hallo Hallo Hans-Jörg, mit folgendem Code findest Du alle Namen mit #Bezug: Sub Finde_Namen_ohne_Bezug() For Each nm In ActiveWorkbook.Names If InStr(1, nm, "#") > 0 Then ActiveWorkbook.Names(nm.Name).Delete 'Namen ohne Bezug löschen End If Next End Sub Es gibt jetzt 2 Möglichkeiten - alle Namen löschen und neu vergeben - nur die Namen mit #Bezug zu löschen und neu zu vergeben Wobei ich den Weg "#Bezug" zu vermeiden für den sinnvollsten Ansatz halte. Gruß Joachim
Anzeige
Re: Genau ums vermeiden geht es mir.
29.04.2002 12:27:38
Hans-Jörg
Vielen Dank, Werde versuchen daraus eine Abfrage zu stricken. Wenn ein Name ohne Bezug sein sollte, werden alle Namen gelöscht und neu vergeben. Entsprechend der Liste die 2 Spaltig auf dem Tabellenblatt vorliegt. Ich weis noch nicht wie das vorkommen kann das namen ohne Bezug auftreten. Habe aber eine Ahnung. Ich vergebe für ein Blatt beim Start 5 Spalten je einen Namen. Prüfe aber nicht ob sie schon existieren.Das muß ich ändern. Hans-Jörg
Re: Genau ums vermeiden geht es mir.
29.04.2002 13:31:35
Joachim K
Hallo Hallo Hans-Jörg, Namen mit #Bezug entstehen wenn Arbeitsblätter, Spalten, Zeilen oder Bereiche gelöscht werden, auf die sich ein Namen bezieht. Andere Ursachen kenne ich nicht. Gruß Joachim
Anzeige
Re: Datei Speichern unter.........
29.04.2002 14:10:34
Hans-Jörg
Könnte mir aber gut vorstellen: Wenn die bestehende Mappe unter einen anderen Name gespeichert wird, das gleiche passieren kann. Jedenfals kann ich mit deinen beiden Codes schon mal was anfangen. Ich muss diese Gefahr einfach bannen. wie kann ich eine Liste einlesen und die Namen alle setzen? versuche es mal zu beschreiben: Dim strName as String Dim strAdresse As String Dim IRow% - Alle Namen Löschen - IRow "Letzte Zeile einlesen - Dann nach einander Name und Adresse aus Spalte A und B in Variablen lesen und setzen. Geht das besser mit Array ? oder zeilenweise mit IF abfrage und IRow als Zähler Hans-Jörg
Anzeige

299 Forumthreads zu ähnlichen Themen

Stelle für VBA-Crack bei Schweizer Bank
Sand

interessantes Job-Angebot für VBA-Crack unter:
http://www.sarasin.ch/internet/iech/index_iech/about_us_iech/about_us_job_vacancies_iech.htm?jobID=76975
schaut's euch mal an.
cheers,
Sand
08.08.2008 13:37:00
Thread-ID: 1000280
2 Beiträge
Anzeige
mit VBA, VBA & Button's löschen
Remo

Hy Leute,
Ich möchte mit einem Button alle Button's und VBA löschen...
Geht das?
13.08.2008 08:16:00
Thread-ID: 1001365
6 Beiträge
Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
Eingabemaske für Tabelle via VBA ?
kiwi279

Hi Ihr,
habe eine größere Adressdatenbank als Excel-Datei.
Der Inhalt sind normale Adressen, zu denen in jeder Spalte separat bestimmte Informationen (Nachname, Vorname, Email, Geburtstag, Beruf etc.) abgelegt sind.
Da die Datensätze immer wieder ergänzt und aktualisiert werden, ist...
13.08.2008 21:10:00
Thread-ID: 1001661
17 Beiträge
VBA Lösung für Tabellenblattwechsel gesucht
Nila

Hallo.
Ich habe folgendes vor:
Ich lege derzeit eine Exceldatei mit Steckbriefen von ca. 150 Personen an.
Jeder Steckbrief steht dabei auf einem eigenen Tabellenblatt.
Die Tabellenblätter werden nach der entsprechenden Person benannt.
Zum Beispiel: Name von Tabellenblatt 70:...
14.08.2008 10:07:25
Thread-ID: 1001749
8 Beiträge
Liste "definierter Namen" per VBA?
David

Hallo zusammen,
ist es per VBA möglich, die in einer Tabelle definierten Namen auszulesen, in einem neuen Sheet aufzulisten und daneben den/die mit dem Namen verbundene(n) Bereich bzw. Formel?
Ich würde mir gern bei umfangreichen Namensdefinitionen das Nachschauen im Menü ersparen, da j...
14.08.2008 12:15:44
Thread-ID: 1001809
5 Beiträge
Datei öffnen und ausblenden (VBA)
David

Folgendes Makro soll einfach nur eine Datei öffnen, die für die aktuelle Tabelle (offen) gebraucht wird und anschließend ausblenden:
Sub auto_open() Workbooks.Open Filename:= _ "X:\Finanz\GP\BV\LE 2008\Zahlen.xls" ActiveWindow.Visible = False End Sub
Komischerweise wird sowohl die hi...
14.08.2008 14:55:00
Thread-ID: 1001877
5 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
4
5
3
2
12
16
7
4
4
1
7
2
2
2
1
7
2
14
3
5
2
4
6
3