Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
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
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nachfolger einer Zelle mit Namen ansprechen

Forumthread: Nachfolger einer Zelle mit Namen ansprechen

Nachfolger einer Zelle mit Namen ansprechen
25.01.2005 14:14:19
POWVorti
Hoi!
Eigentlich hab ich einigermaßen VBA Kentnisse, aber auch keine guten... Daher hab ich mich mal für "nein" entschieden...
Also, zum Thema:
Ich habe eine Zelle mit einem Namen versehen (Beispiel: Datei_Anfang). Wie kann ich jetzt, beispielsweise über eine Schleife, alle weiteren Zellen, die sich in den Zeilen darunter befinden ansprechen? Das muß ja irgendwie gehen wie beispielsweise:
ActiveWorkbook.Names("Datei_Anfang" + schleifenzaehler).RefersToRange.Value = "Test"
Nur genau das klappt eben nicht (unverträgliche Typen...). Wie ist die richtige Syntax dafür?
Danke + Gruß
Anzeige
AW: Nachfolger einer Zelle mit Namen ansprechen
25.01.2005 14:32:11
POWVorti
Ich heiße POWVorti *g*
Ne... ich glaube das bringt mir nichts... Hier geht es anscheinend um einen festen Bereich. Und mein Bereich soll variabel sein.
Ich gebe aber auch zu, ich verstehe Problematik und Lösungsvorschlag nicht ganz...
Mein Problem nochmal in anderen Worten: Ich möchte auf eine Zelle, die i Zeilen unter-/oberhalb von der Zelle mit dem Namen "Datei_Anfang" liegt, zugreifen.
Anzeige
AW: Nachfolger einer Zelle mit Namen ansprechen
bernd
hallo
so?
Option Explicit
Public 

Sub test()
Dim zeile As Long
Dim spalte As Integer
zeile = Range("datei_anfang").Row
spalte = Range("datei_anfang").Column
Cells(zeile + i, spalte).Select 'oder was auch immer
End Sub

musst nur i noch festlegen.
bernd
Anzeige
AW: Nachfolger einer Zelle mit Namen ansprechen
25.01.2005 14:52:57
POWVorti
Mmmmh, okay, so gehts:
Dim zelle As Range
zeile = ThisWorkbook.Worksheets(1).Range("Datei_Anfang").Row
spalte = ThisWorkbook.Worksheets(1).Range("Datei_Anfang").Column
ThisWorkbook.Worksheets(1).Cells(zeile + i, spalte) = "Bis hierhin"
Ist nur schade... Ich dachte, man könnte direkt in der Zuweisung sagen: ab Zelle "Datei_Anfang" i Zeilen runter... Ist ein bißchen umständlich so...
Anzeige
AW: Nachfolger einer Zelle mit Namen ansprechen
harry
hi,
wenn ich das richtig verstehe, solltest du den anfang nicht als name einer zelle, sondern als range definieren. dann kannst du mit dem offset befehl auf alle anderen zellen zugreifen. ein beispiel:
Dim anFang As Range
Set anFang = ActiveSheet.Cells(1, 1)
For i = 1 To 10
anFang.Offset(rowoffset:=i, columnoffset:=0).Select
Next i
liebe grüße,
harry
Anzeige
AW: Nachfolger einer Zelle mit Namen ansprechen
25.01.2005 14:38:04
POWVorti
Nein... Ich habe einen festen Zellennamen definiert. Das will ich machen, um die Zelle variabel in der Tabelle verschieben zu können. Von daher bringt mir die Idee leider nichts.
Dann müßte ich trotzdem bei jeder Änderung das VBA-Makro pflegen...
AW: Nachfolger einer Zelle mit Namen ansprechen
bernd
hallo
geht z.B. auch so:
wenn ich dich richtig verstanden habe
Option Explicit
Public 

Sub test()
Dim zelle As Range
For Each zelle In Range("datei_anfang" & ":a1000") 'a1000 anpassen
zelle.Value = 1 'oder was auch immer
Next
End Sub

bernd
Anzeige
AW: Nachfolger einer Zelle mit Namen ansprechen
25.01.2005 14:41:39
POWVorti
Das bringt mir leider auch nichts... So definiere ich einen fest vorgegebenen Bereich.
Ich will aber wirklich auf eine Zelle zugreifen, die i Zeilen unterhalb der Zelle mit dem Namen "Datei_Anfang" liegt...
Ziel ist folgendes: Kopieren aller Zeilen, ab der Beginnzeile, solange, bis eine Leerzeile gelesen wurde... Dadurch, daß der Aufbau des Blattes noch variabel ist und sich das Layout ändern kann, will ich mit eindeutigen Namen arbeiten
Anzeige
AW: Nachfolger einer Zelle mit Namen ansprechen
bst
Auch Hallo,
sowas vielleicht ?
Quelle und Ziel sind dabei Namen.
Range(Range("Quelle"), Range("Quelle").End(xlDown)).Copy Range("Ziel")
cu, Bernd
AW: Nachfolger einer Zelle mit Namen ansprechen
25.01.2005 15:46:45
POWVorti
Da krieg ich die Fehlermeldung:
Copymethode des Range-Objektes ist fehlerhaft...
AW: Nachfolger einer Zelle mit Namen ansprechen
bst
Hmm,
funktioniert hier bei mir mit Excel 2000 schon.
Habe leider kein 97 zum Testen.
Du hast schon "Quelle" und "Ziel" jeweils als Namen definiert, nicht ?
Was erhältst Du denn im VBA-Direktfenster bei den folgenden zwei Anweisungen ?
?names("Quelle").RefersTo
?names("Ziel").RefersTo
Gruß, Bernd
Anzeige
AW: Nachfolger einer Zelle mit Namen ansprechen
27.01.2005 08:25:57
POWVorti
Es erfolgt eine automatische Umwandlung zu:
Print Names("Name").RefersTo
Anschließend erhalte ich die Fehlermeldung:
Anwendungs- oder objektdefinierter Fehler
AW: Nachfolger einer Zelle mit Namen ansprechen
27.01.2005 08:30:31
POWVorti
Ich sollte den Haken bei "Frage noch offen" setzen...
AW: Nachfolger einer Zelle mit Namen ansprechen
bst
Morgen POWVorti,
neuer Tag, neuer Versuch :-)
Ich denke mal ich hab's jetzt.
Du rufts das Teil aus dem Klassenmodul einer Tabelle heraus auf, nicht ?
Das geht so leider nicht. Mach sowas. Siehe auch hier: https://www.herber.de/bbs/user/16974.xls
a) via Modul, IMHO der einfachere Weg:
Hinter die Tabelle:

Private Sub CommandButton1_Click()
Call CopyIt
End Sub

In ein Modul!:
Sub CopyIt()
Range(Range("Quelle"), Range("Quelle").End(xlDown)).Copy Range("Ziel")
End Sub
b) direkt hinter der TabelleXYZ:

Private Sub CommandButton1_Click()
Dim wbSrc As Worksheet, wbDst As Worksheet
Set wbSrc = ActiveWorkbook.Names("Quelle").RefersToRange.Parent
Set wbDst = ActiveWorkbook.Names("Ziel").RefersToRange.Parent
wbSrc.Range(wbSrc.Range("Quelle"), wbSrc.Range("Quelle").End(xlDown)).Copy wbDst.Range("Ziel")
End Sub

Falls jemand einen einfacheren Weg für b) kennt, bitte her damit ...
Gruß, Bernd
Anzeige
AW: Nachfolger einer Zelle mit Namen ansprechen
27.01.2005 14:44:20
POWVorti
Hi!
Ich war leider nicht im Unternehmen gestern, deswegen konnte ich erst heute auf den Beitrag zugreifen.
Ich kriege leider noch immer die fehlerhafte Copy-Methode als Fehler, deswegen denke ich, es liegt an Excel 97.
Ich hatte zwar gehofft, daß es einfacher gehen würde, als in den vorherigen Lösungen, auf nachfolgende Zellen zuzugreifen, aber eine andere Möglichkeit scheint es anscheinend leider nicht zu geben...
Anzeige
AW: Nachfolger einer Zelle mit Namen ansprechen
bst
Abend,
Funktionieren meine zwei Makros in der Beispiels-Datei wirklich nicht bei Dir mit Excel 97 ?
Falls nicht, nicht verzweifeln ;-)
Viele Wege führen nach Rom.
Schönen Abend noch,
Bernd
;

Forumthreads zu verwandten 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
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
Labeln in Formular mit Namen ansprechen
Mister-B

Hallo und Guten Morgen,
in einem Formular habe ich viele Labels. Wie kann ich z.B, die Label140 bis Label150 mit Namen (nicht Caption) ansprechen. Me.Controls("Label" + i).Name funktioniert nämlich nicht.
Gruß
Martin
22.07.2012 10:47:35
Thread-ID: 1272177
4 Beiträge
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
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
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
Spalte C:C mit Namen ansprechen - aber wie?
cH_rI_sI
Guten Morgen!
Wie kann ich Spalte C:C mit dem vergebenen Namen ("Bemerk_START") ansprechen?
Es geht konkret um folgenden Code:
Sub ZeileFormatieren(Zeile As Long, ws As Worksheet) 'Breite der verbundenen Zellen bestimmen Dim Breite As Long Dim BreiteG As Long Dim SP As Long For SP = 3 T...
13.03.2017 10:23:40
Thread-ID: 1546989
6 Beiträge
Mit Zählenwenn Zellennamen ansprechen
Arnd

Hallo Forum,hier ist eine ganz normale Zählenwenn- Funktion:=ZÄHLENWENN(C4:C7;"")Kann ich mit Hilfe dieser Funktion einen Zellennamen ansprechen. Etwa so:=Test&ZÄHLENWENN(C4:C7;"")Die Zellen A4 bis A7 heißen nämlich Test1 bis Test4.
Ich hoffe irgendwie, dass man so den Inhalt von Test1 bis T...
09.09.2002 17:18:50
Thread-ID: 157942
4 Beiträge
Anzeige
VBA Zelle Indirekt ansprechen
bongartz

Hallowie kann ich per VBA die Funktion Indirekt verwenden.Ich habe in Zelle E1 den Namen der aktiven Zelle (z.B. E10) stehen.
Wie kann ich per VBA die Zelle E1 ansprechen und darüber den Inhalt der Zelle E10 ermitteln?Gruß
Bongartz

30.01.2003 14:26:29
Thread-ID: 211334
3 Beiträge
Zellen mit Namen ansprechen
Nico

Holá,wie kann ich denn Zellen ansprechen, denen ich einen Namen gegeben habe ??? Also z.B. den entsprechenden Bereich in die Zwischenablage kopieren und in MS Word als Excel-Objekt einfügen !!! Dann müsste ich das Objekt noch formatieren (Größe auf z.B. 80 % ändern).DankeNico

05.03.2003 11:28:59
Thread-ID: 227519
5 Beiträge
Zelle mittels Spaltennamen ansprechen
Marina
Hallo Leute,

mein Problem : ich moechte die Zelle mit der Variablen iRow und dem benannten SpaltenNamen "Titelname" ansprechen. Irgendwie komme ich nicht selbst dahinter!

Cells(iRow ,("Titelname")) = TextProbe

Da wird gemeckert. Uebersehe ich da etwas?

Vielen Dank...
01.10.2003 04:35:21
Thread-ID: 317322
3 Beiträge
Anzeige
VBA Zelle(n) mit ihrem Namen ansprechen
Reinhard

Hallo Wissende,
wie spreche ich z.B. in Selection_Change eine Zelle bzw einen Zellenbereich mit ihrem Namen an? Folgendes klappt nicht (abgesehen vom Fehler wenn eine Zelle keinen Namen hat). Muss ich das über RefersTo abprüfen?
Und wie spreche ich die Zelle(n) über ihren Namen bei Rang...
11.12.2005 18:10:46
Thread-ID: 707310
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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