Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1296to1300
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
1296to1300
1296to1300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen mit Zellennamen ansprechen

Zellen mit Zellennamen ansprechen
29.01.2013 08:24:35
StepT
Guten morgen,
Ich habe eine Exceldatei mit verschiedenen Arbeitsblättern. Auf diesen habe ich verschiedene wichtige Zellen, welchen ich jeweils einen Namen gegeben habe.
Theoretisch weiß Excel durch den Namensmanager ja auf welchem Arbeitsblatt welcher Zellname definiert ist.
Ich habe zum Bsp. die Zelle mit dem Namen "Sparte_Gruppendaten_CPK". Diese Zelle kann sich theoretisch auf einer von vier verschiedenen Arbeitsblättern befinden.
Wie kann ich die Zelle ansprechen ohne alle vier Arbeitsblätter durchsuchen lassen zu müssen?
Im Grunde will ich nur überprüfen, ob die Zelle eine Formel enthält, es sollte also in die Richtung von: 
Thisworkbook.Range("Sparte_Gruppendaten_CPK").HasFormula
gehen.
PS: Das Problem ist hier stark vereinfacht dargestellt. Zellnamen kann ich leider nicht anpassen

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ist doch genau richtig so ...
29.01.2013 08:45:59
Matthias
Hallo
Wenn Du nur wissen willst ob ne Formel in dieser Zelle steht, ist doch der Weg genau richtig.
If Range("Sparte_Gruppendaten_CPK").HasFormula Then
MsgBox "Formel vorhanden"
End If
Gruß Matthias

AW: ist doch genau richtig so ...
29.01.2013 08:52:51
Luschi
Hallo Matthias,
mit Deiner Variante erleide ich regelmaßig Schiffbruch, wobei ich dazu sagen muß, daß ich
100te von Namen in 1 Arbeitsmappe habe. Deshalb mache ich den Zugriff nur noch so: 

If ThisWorkbook.Names("Sparte_Gruppendaten_CPK").RefersToRange.HasFormula Then
MsgBox "Formel vorhanden"
End If
Gruß von Luschi
aus klein-Paris

Anzeige
was passiert denn bei dieser Variante
29.01.2013 09:24:01
Matthias
Hallo Luschi
Vorab - Ist ja nicht meine Variante ;-)
Der Vorschlag kam ja vom Fragenden selbst.
Ich habs nur mit diesem einen Namen getestet(auf verschiedenen Blättern)
Das hatte ohne Probleme funktioniert.
Du schreibst mit dieser Variante erleidest Du regelmaßig Schiffbruch.
Was meinst Du damit, was passiert dann bei Dir?
Will ja auch dazulernen.
Gruß Matthias

AW: was passiert denn bei dieser Variante
29.01.2013 13:25:54
Luschi
Hallo Matthias,
das ist so wie in dem Lied 'Tausend mal berührt und nichts ist passiert...'. Bei '1001' (im übertragenem Sinn) kommt dann die häßliche Debugger-Meldung Error 1004 oder 424. Und jedesmal ist es dann ein anderer definierte Name, der ihm nicht paßt.
Neuerdings benutze ich wieder dieses Konstrukt: 

If [Sparte_Gruppendaten_CPK].HasFormula Then
MsgBox "Formel vorhanden"
End If
Darüber hat noch kein Kunde eine Fehler-Ticket abgegeben und Excel 2013 spielt da auch noch mit.
Gruß von Luschi
aus klein-Paris

Anzeige
Danke für Deine Informationen
29.01.2013 22:55:16
Matthias
Hallo Luschi
Was ist wenn ich nach: If .RefersToRange.HasFormula
mit With Range("Sparte_Gruppendaten_CPK") arbeite ?
siehe Code: 
 With ThisWorkbook.Names("Sparte_Gruppendaten_CPK")
If .RefersToRange.HasFormula Then
With Range("Sparte_Gruppendaten_CPK")
MsgBox "Formel vorhanden in " & .Parent.Name & .AddressLocal
End With
End If
End With
Besser oder eher auch ungünstig?
Gruß Matthias

AW: Danke für Deine Informationen
30.01.2013 08:45:53
Luschi
Hallo Matthias,
da ThisWorkbook.Names("Sparte_Gruppendaten_CPK").RefersToRange bereits ein Range-Objekt
ist, kann man es auch so machen: 

With ThisWorkbook.Names("Sparte_Gruppendaten_CPK")
If .RefersToRange.HasFormula Then
MsgBox "Formel vorhanden in " & .RefersToRange.Parent.Name & " - " & .RefersToRange. _
AddressLocal
End If
End With
oder
With ThisWorkbook.Names("Sparte_Gruppendaten_CPK").RefersToRange
If .HasFormula Then
MsgBox "Formel vorhanden in " & .Parent.Name & " - " & .AddressLocal
End If
End With
Gruß von Luschi
aus klein-Paris

Anzeige
Danke
30.01.2013 11:54:19
Matthias
Hallo Luschi
Der Syntax war bei meinem Test falsch.
Hatte es mit With .RefersToRange versucht und war gescheitert.
Danke
Gruß Matthias

AW: Zellen mit Zellennamen ansprechen
29.01.2013 08:47:38
Dieter(Drummer)
Hi Step T,
versuche mal dirtekt das entsprechende Tabellanblatt mit einzusetzen:
Statt: Thisworkbook.Range("Sparte_Gruppendaten_CPK").HasFormula
So z.B.: Thisworkbook.Range("Tabelle1!Sparte_Gruppendaten_CPK").HasFormula
Gruß, Dieter(Drummer)

das ist nicht nötig
29.01.2013 08:52:36
Matthias
Hallo Dieter
so holst Du Dir alle Infos die Du brauchst.
With Range("Sparte_Gruppendaten_CPK")
If .HasFormula Then
MsgBox "Formel vorhanden in " & .Parent.Name & .AddressLocal
End If
End With
Gruß Matthias

Anzeige
AW: Danke Matthias ...
29.01.2013 09:14:24
Dieter(Drummer)
... habe wieder etwas gelernt und der Tag war nicht umsonst.
Gruß und einen schönen Tag,
Dieter(Drummer)

AW: vielleicht nochmal zusammenfassend
29.01.2013 13:34:24
Daniel
Hi
wenn sich der benannte Zellbereich in der gerade aktiven Datei befindet, dann kann man ihn direkt über
Range("Name des Zellbereichs") ansprechen.
Arbeitet man jedoch mit mehrern Dateien parallel und man muss die Datei dazu mit angeben, dann muss man zusätzlich zur Datei auch noch das Tabellenblatt mit angeben:
ThisWorkbook.Sheets("Tabelle1").Range("Name des Zellbereichs")
oder, wenn das Tabellenblatt nicht bekannt ist, wie von Luschi beschrieben über das Names-Objekt gehen:
ThisWorkbook.Names("Name des Zellbereichs").RefersToRange
Gruß Daniel

Anzeige
AW: vielleicht nochmal zusammenfassend
29.01.2013 23:06:16
Matthias
Hallo Daniel
Dann lag ich ja doch nicht ganz so falsch
denn Zitat:
Ich habe eine Exceldatei mit verschiedenen Arbeitsblättern
Somit ist mein Vorschlag ja "im Grunde genommen" richtig,
denn von dieser Aussage bin ich auch ausgegangen.
Werde aber mal Luschis Vorschlag im Auge behalten und ein bisschen Testen
Man lernt ja immer gern dazu.
Gruß Matthias

AW: vielleicht nochmal zusammenfassend
29.01.2013 23:50:28
Daniel
Hi
die Methode über das NAMES-Objekt funktioniert jedoch nur bei Namen mit einer direkten Zuweisung des Zellbereichs.
Wird der Zellbereich des Namens über eine Formel berechnen, muss man über RANGE gehen.
Gruß Daniel
Anzeige

306 Forumthreads zu ähnlichen Themen

VBA: abfragen, ob benannte Tabelle vorhanden ist
André

Moin zusammen,
wie kann ich per VBA abfragen, ob in einem Tabellenblatt bereits eine "benannte Tabelle" definiert ist?
Ich erstelle die Tabelle mit
Worksheets("Datensätze").ListObjects.Add(xlSrcRange, rg, , xlYes).Name = "Datenbereich"
Läuft das Makro dann ein weiteres mal, kom...
12.06.2009 14:18:00
Thread-ID: 1080995
2 Beiträge
Anzeige
Datei mit bestimmtem Namen ansprechen
Hans

Hallo Zusammen,
es sind drei Dateien göffnet. In Datei 1 läuft ein Makro ab, dass eine der beiden Dateien aktiviert. Problem, ist dass sich der Name der zu aktivierenden Datei immer ändert, aber ein festes Schema hat...nämlich vier Zahlen am Schluss.
Z.B.
Mrz 27_OH_1234
oder
...
03.03.2010 10:31:28
Thread-ID: 1142928
7 Beiträge
VBA Namen definieren mit Variable
Philipp

Hallo,
ich bin seit Stunden dabei einen Dynamischen Datenbereich für eine Pivottabelle zu definieren und komm einfach nicht weiter. Meine bisherigen Lösungsansätze:
Sheets("PRO_Report_alle").Names.Add Name:="ReportBereich", RefersToR1C1:="PRO_Report_alle!" & "A1" & ":" & "...
11.06.2010 20:01:01
Thread-ID: 1161440
7 Beiträge
Anzeige
Shape in GroupShape mit Namen ansprechen
Reinhard

Hallo Wissende,
nachstehend ist der gesamte Code. Er funktioniert bis auf das was ich hier anfrage zuverlässig. Viermal erzeugt er jeweils als Shape ein Quadrat namens Rene_Quadrat und ein Dreieck namens Rene_Dreieck.
Beide Shapes werden dann zu einem Shape gruppiert namens Rene_Pfeilli...
24.10.2013 14:35:26
Thread-ID: 1335731
4 Beiträge
Zellen ansprechen via VBA
NoPa

Hallo,
wie kann ich einen bestimmten Zellenbereich via VBA ansprechen!
z.B. in einer Reihe ab B4 bis dass wieder die erste gefüllte Zelle kommt bzw die letzt nicht gefüllte Zelle kommt!
Gibt es da eine Find oder Count Funktion!?
Danke
Gruß
Norbert
08.09.2014 11:35:36
Thread-ID: 1380441
9 Beiträge
VBA Seite in Tabelle ansprechen
Müller

Hallo.
Ich habe ein Skript, welches mir meine Daten in Datenpaare trennt und dann per pagesetup an die Seitengröße anpasst.
Nun habe ich das Problem, dass die Daten teilweise so getrennt werden, dass ein Teil auf Seite 1 steht und der andere Teil in der ersten Zeile der Seite 2.
Gib...
09.04.2015 13:00:40
Thread-ID: 1419902
3 Beiträge
Textboxen mit variablen Namen ansprechen
Thomas

Hallo Ihr lieben Profis,
ich versuche seit ein paar Stunden ein paar Textboxen auf einem anderen sheet mit einem festen und einem variablen Namensteil anzusprechen... und scheitere.
Folgendes habe ich probiert:
MsgBox Sheets("test").TextBox.Text ==== geht natürlich
MsgBox Sheet...
23.06.2015 14:15:59
Thread-ID: 1432647
3 Beiträge
Tabellen mit ihren Namen ansprechen
Torsten

Ich möchte gerne zwei Tabellenblätter gleichzeitig ansprechen.
Das klappt auch bereits mit folgenden Code: Sheets(Array("Blatt1", "Blatt2")).Select Sheets("Blatt1").Activate
Jedoch sind die Blattnamen vom Nutzer veränderbar, was zum Problem beim Markodurchlauf führt.
Ich möchte...
03.09.2016 15:47:42
Thread-ID: 1512765
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
1
7
6
6
3
3
8
2
2
3
4
5
5
3
8
4
7
2
4
2
17
4
4
9
4