Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1124to1128
1124to1128
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Namen definieren mit Makro

Forumthread: Namen definieren mit Makro

Namen definieren mit Makro
Thomas
Hallo!
Hätte eine Frage:
Ist es möglich, Namen per Makro definieren und automatisch ergänzen zu lassen?
In der Beispieldatei sind in den gelb markierten Feldern "Hauptkonten" angeführt.
Darunter befinden sich in den grau markierten Feldern die dazugehörigen Unterkonten.
Ich möchte nun, dass Excel automatisch eine Namensdefinition vornimmt und zwar wie folgt:
Namen gem. Eintrag im gelben Feld; im beiligenden Beispiel "Auto", steht in Zelle A4; in "bezieht sich auf" sollte der Bereich von A5 bis A13 ausgewählt werden (Bereich immer 9zeilig, beginnend mit Zeile unter dem jeweiligen Namen).
Diese Prozedur sollte für alle weiteren Zeilen (bis Zeile 112) automatisch durchgeführt werden, d. h., wenn beispielsweise neue Konten in die gelb markierten Zellen eingepflegt werden (z. B. in Zelle A26 "Geschenke"), wäre es super, wenn man dies so einrichten könnte, dass die Namen automatisch hinzugefügt werden (jeweils mit dem 9zeiligen Bezug).
Ist so etwas überhaupt möglich?
Wäre für eine Antwort sehr dankbar.
LG
Tom
https://www.herber.de/bbs/user/66831.xls
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Dateischutz ist gesetzt ! oT
27.12.2009 21:55:56
Matthias
mit ... Worksheet_Change ...
28.12.2009 04:39:16
Matthias
Hallo
hier mal als Ansatz
https://www.herber.de/bbs/user/66835.xls 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Object
If Not Intersect(Target, Union(Range("A4"), Range("A15"), Range("A26"), Range("A37"), Range(" _
A48"), Range("A59"), Range("A70"), Range("A81"), Range("A92"), Range("A103"))) Is Nothing And Target.Count = 1 Then
Set Rng = Range(Target.Offset(2, 0), Target.Offset(9, 0))
If Target.Value  "" Then Rng.Name = Target.Value
End If
End Sub
Gruß Matthias
Anzeige
AW: Dateischutz ist gesetzt ! oT
28.12.2009 08:05:53
Thomas
Hallo Matthias!
Vielen Dank für deinen Lösungsvorschlag!
Werde ihn heute abend mal ausprobieren!
Danke für die Bemühungen und noch schönen Tag!
LG
Tom
mit Löschen von vergebenen Namen ...
28.12.2009 10:18:42
vergebenen
Hallo

Code in einem Modul 
Option Explicit
Public OldName As String


Code in Tabelle1 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim obj As Object
Dim MyNames As Name
If Not Intersect(Target, Union(Range("A4"), Range("A15"), Range("A26"), Range("A37"), Range(" _
A48"), Range("A59"), Range("A70"), Range("A81"), Range("A92"), Range("A103"))) Is Nothing And Target.Count = 1 Then
For Each MyNames In ThisWorkbook.Names
If MyNames.Name = OldName Then
MyNames.Delete
Exit For
End If
Next
Set obj = Range(Target.Offset(2, 0), Target.Offset(9, 0))
If Target.Value  "" Then
obj.Name = Target.Value
End If
Set obj = Nothing
End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Union(Range("A4"), Range("A15"), Range("A26"), Range("A37"), Range(" _
A48"), Range("A59"), Range("A70"), Range("A81"), Range("A92"), Range("A103"))) Is Nothing And Target.Count = 1 Then
OldName = Target.Value
End If
End Sub

https://www.herber.de/bbs/user/66838.xls
Gruß Matthias
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
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
Problem mit .Name
Eddie

Hallo Zusammen,
ich habe ein kleines Problem, wenn ich versuche einem Blattbereich einen Namen, per vba zuzuornen.
sourcearbeitsblatt = ist der Worksheet Name
sourcerange=der zu setzende Bereich im Format "A1:A25"
ThisWorkbook.Names.Add Name:=sourcename, RefersTo:="=" & so...
18.09.2008 20:44:44
Thread-ID: 1010850
5 Beiträge
Anzeige
Umgang mit names.add
Novak

Hallo, ich möchte herausfinden, welche Zellen in einer Tabelle einen Namen haben.
Etwa so:
dim r as range
for each r in activesheet.usedrange
If r.name is not nothing then
....
end if
next r
So funktionierts aber nicht.
Danke für Hinweise
26.09.2008 12:24:00
Thread-ID: 1012589
4 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
Dateiname mit Dialogbox auslesen
Uwe

Hi,
ich suche eine Möglichkeit einen Dateinamen in einer Dialogbox auszuwählen und in eine Tabelle zu schreiben. Die Funktion könnte analog zu GetDirectory aufgebaut sein, hab leider nichts ähnliches gefunden oder war zu blind.
13.11.2008 15:04:43
Thread-ID: 1024242
4 Beiträge
Anzeige
Makro speichern mit Name aus einem Feld
cfrei75

Hallo liebe Gemeinschaft! ich wollte nochmals nach Eure Hilfe bitten. Ich bräuchte bitte ein Makro zum speichern einer xlsm Datei. Die Datei soll den Name welches im Feld F8 befindet. Zusätzlich sollte diese das heutige Datum und INTERN enthalten. also:
C:/eigene dateien/Name aus Feld f8_IN...
02.12.2008 14:44:20
Thread-ID: 1029520
4 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

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