Office: Spalten über definierte Namen ansprechen

Hallo

Wie kann man anstelle der Spaltenbezeichnung A, B, C usw.
in VBA die Spalten mit den definierten Bezeichnungen ansprechen.
In der Anweisung:
Cells(intZähler, "C") = "=LEFT(B:B,3)"
sollten also "C" und B:B durch die definierten Bezeichner ersetzt werden.
Ziel: Einfügen von neuen Spalten ohne Anpassung des Code's.
(Demo, siehe Anhang)

Merci und Gruss
Fösi

:)

 

_oT = "ohne Text"

 

Hallo NoNet

Ich verstehe deine Antwort nicht.
Kannst du genauer werden?
Merci
Fösi

 

Hallo Fösi,

wenn Du einen Bereich (Zelle, Zeile, Spalte, etc.) per Strg+F3 (oder über das Namensfeld oder per "Einfügen - Namen - Definieren" oder per VBA) benennst (z.B. "DeinName"), dann kannst Du diesen Bereich am einfachsten über diese Schreibweise ansprechen : [DeinName]

Dahinter verbirgt sich eigentlich die EVALUATE(...)-Funktion, d.h. [DeinName] ist das gleiche wie EVALUATE("DeinName").
Sehr häufig liest man auch die ebenfalls leicht verständliche Schreibweise RANGE("DeinName").

Hier ein Screenshot, wie ein benannter Bereich per VBA adressiert und formatiert werden kann :

 

Hei NoNet

Der blaue Teil funktioniert bestens, aber leider der rote noch nicht.
Cells(intZähler, "C") = "=LEFT(Artikel,3)"


Wäre schön, wenn du dich noch mal melden würdest.
Danke
Fösi

 

Hallo Fösi,

Du hast das aber nicht ganz korrekt umgesetzt, welchen Inhalt hat den die Variable "Artikel" ? Ein Bereichsname kann da ja nicht sein.

Meine Bitte : poste doch bitte immer das gesamte Vorhaben, damit man die Lösung im Gesamtkontext erarbeiten kann !
In deinem Fall genügt nämlich ein kleiner Einzeiler (den Rest Deines Codes kannst Du löschen !!) :

Code:

 

Hallo NoNet

Vielen Dank für deine Bemühungen.
Dein Code funktioniert bestens.
Zu deiner Bitte:

Habe gemeint, dass mit der beigelegten Exceldatei alles klar ist.

Also nochmal Herzlichen Dank
Fösi

 

Hallo NoNet

Habe noch eine Zusatzfrage zu deinem (grandiosen) Einzeiler.
Kann man in den Code noch die Funktion einbauen damit nur die Werte übertragen werden?

Tschüss
Fösi

 

Hallo Fösi,

bei solchen "Sonderwünschen" wird der Code natürlich "bedeutend" umfangreicher *tongue.gif* :

VBA-Code:

Sub NurWerteKopieren()     With Range("Bezeichnungstext").Resize(Cells(Rows.Count, 1).End(xlUp).Row - 1).Offset(1)         .FormulaR1C1 = "=Left(RC[-1],3)"         .Value = .Value     End With End Sub

Code eingefügt mit Syntaxhighlighter 4.15

 

Besten Dank NoNet

Genau das was ich Brauche.

Gruss
Fösi