Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1064to1068
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
1064to1068
1064to1068
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereichsnamen per vba auslesen

Bereichsnamen per vba auslesen
08.04.2009 12:21:12
Micha
Hallo,
hat jemand ne idee, wie ich per VBA den Bereichsnamen auslesen kann ?
Cells(i,j).Name etc. liefert mir immer nur Spalte/Zeile Werte aber nicht den Bereichsnamen.
Dazu wäre noch wichtig, wie ich diesem Namen weitere Zellen zuweisen kann.
Grüße Micha

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereichsnamen per vba auslesen
08.04.2009 12:33:42
Hajo_Zi
Hallo Micha,

Sub Name_ermitteln()
Dim nm As Name
For Each nm In ActiveWorkbook.Names
If Not Application.Intersect(ActiveCell, Range(nm.RefersToRange.Address)) Is Nothing Then
MsgBox nm.Name
Exit Sub
End If
Next
MsgBox "Aktive Zelle gehört zu keinem mit Namen versehenen Bereich"
End Sub


Von Martin Beck

AW: Bereichsnamen per vba auslesen
08.04.2009 13:17:55
Luschi
Hallo Hajo,
bei Deiner Lösungsvariante kommt es zum Laufzeitfehler, sobald in mehreren Tabellenblättern der gleichen Arbeitsmappe Namen definiert sind.
Application.Intersect kann nicht über verschiedene Tabellenblätter die Prüfung vornehmen.
Deshalb so: 

Sub Name_ermitteln()
Dim nm As Name, rg As Range
For Each nm In ActiveWorkbook.Names
Set rg = nm.RefersToRange
If ActiveCell.Parent.Name = rg.Parent.Name Then
'aktive Zelle und der Name müssen sich im gleichen TB befinden
If Not Application.Intersect(ActiveCell, nm.RefersToRange) Is Nothing Then
MsgBox ActiveCell.Address & " befindet sich in folgendem Namensverbund: " & nm.Name
End If
Exit Sub
End If
Next
MsgBox "Aktive Zelle gehört zu keinem mit Namen versehenen Bereich"
End Sub

Gruß von Luschi
aus klein-Paris

Anzeige

19 Forumthreads zu ähnlichen Themen

Auslesen_Tabellenblattname_eintragen-siehe VBA
Fabio

Hallo zusammen,
mit dem Makro unten aus dem Forum lese ich diverse Exceldateien in einem Verzeichzis aus. Soweit ich das gesehen habe, liest das Makro immer das "erste" Tabellen-Blatt aus.
Aktuell habe ich folgendens:
- Ein Verzeichnis mit 10 Excel-Dateien
- Die Exeldatein haben...
06.04.2009 11:13:51
Thread-ID: 1067062
4 Beiträge
Anzeige
Definierte Namen mit Formeln - auslesen in Zelle
Werner

Hallo Excel-Freunde
ich schreibe jetzt zu dieser sehr frühen Zeit, weil ich nicht schlafen kann.
Jedoch liegt das nicht an meiner Frage *grins*
Hier ist sie:
Ich habe mittels #Einfügen #Namen #definieren #bezieht sich auf
z.T. verschiedene Namen mit Formeln versehen
Best...
12.11.2012 03:52:03
Thread-ID: 1286314
6 Beiträge
VBA - ZellNAME auslesen
Stephan

Guten morgen und einen angenehmen Montag euch allen ;)
Sagen wir ich habe für die Zelle "A1" den Namen "Hallo" definiert.
Sag ich VBA jetzt: MsgBox Thisworkbook.ActiveSheet.Range("A1").Name
Dann kommt anstatt "Hallo" "A1" raus
was mach ich falsch?
28.01.2013 10:34:03
Thread-ID: 1296291
2 Beiträge
Anzeige
VBA - Formularnamen einer Datei auslesen
Fujin

Hallo @ll
Ich übergebe eine Userform sowie ein kleines Makro aus der Personal.XLSB in eine neugeöffnete Datei. Die Datei ist ein Export aus einem anderen Programm, so dass der Dateiname immer unterschiedlich ist.
Ist es möglich mit dem Code aus der Personal.XLSB in der neuen Datei zu pr...
21.07.2017 10:10:31
Thread-ID: 1570302
3 Beiträge
VBA-Ordnername auslesen, Neuanlage von Ordnern
Ordnern

Hallo Leute,
das folgende Makro verwende ich um Ordnernamen aus einem Pfad herauszulesen:
Sub Example1() Dim objFSO As Object Dim objFolder As Object Dim objSubFolder As Object Dim i As Integer Application.ScreenUpdating = False Set objFSO = CreateObject("Scripting.FileSystemObject") Se...
03.11.2017 20:29:35
Thread-ID: 1589439
7 Beiträge
VBA - Wert aus Namen auslesen
{Boris}

Hallo zusammen,
Dummybeispiel:
Der Name "x" bezieht sich auf: ="Hallo"
In VBA lese ich den Wert bisher über
Evaluate("x")
aus, um "Hallo" zu erhalten.
Ist das die einzige bzw. beste Möglichkeit oder gibt es da eine (Names-)Eigenschaft, die ich schlicht nicht kenne?
V...
26.09.2018 11:49:14
Thread-ID: 1647863
10 Beiträge
Mit VBA Anzahl zu Namen auslesen ?
Alexander

https://www.herber.de/bbs/user/128111.xlsx
Hallo kann man mit VBA eine Anzahl zu Namen auslesen lassen bzw. wenn die Anzahl 11 beträgt eine email und eine msg Box auslösen ? Das ganze sollte dann eine Bestätigung haben dass man es zur kenntnis genommen hat, so dass die msg box oder email n...
05.03.2019 09:38:45
Thread-ID: 1679366
2 Beiträge
VBA: Ordnername auslesen
Dirk
Liebe Excel-Freunde,
ich habe jetzt schon überall gesucht, aber ich schaffe es nicht. Wie kann ich in VBA am besten einen Ordnernamen aus einem (langen) Pfad auslesen. Gibt es eine Funktion ala Ordnername(Pfad)? Geht das auch ohne Zeichenfolgenfunktionen?
23.07.2003 13:22:29
Thread-ID: 284525
4 Beiträge
Anzeige

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
3
3
5
1
4
2
6
9
1
3
1
2
1
4
1
2
4
2
18