variabler Spaltenbezug und Zellenbezug

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro1() Dim var1 As Variant 'Spaltenbezug Dim var2 As Variant 'Zeilenbezug var1 = Evaluate("=SUMPRODUCT((A1:H1=DATE(M16,M15,1))*COLUMN(A:H))") var2 = Evaluate("=COUNTA(a:a)") Sheets("Tabelle1").Cells(30, 15).Value = var1 Sheets("Tabelle1").Cells(32, 15).Value = var2 Sheets("Tabelle1").Cells(var2, var1).Value = "Ergebnis" End Sub

Hi R. (?),
warum deklarierst du var1 und var2 als Variant? In deinem Code werden den Variablen Strings zugewiesen:
var1 = "=SUMPRODUCT((R1C1:R2C8=DATE(R16C13,R15C13,1))*COLUMN(C1:C8))"
var2 = "=COUNT(a:a)"
Ebenso könnte da stehen:
var1 = "simsalabim"
Klarer wäre gewesen, du hättest "Dim var1 As String, var2 As String" deklariert.
Der Text wird in eine Zelle geschrieben, dort von Excel als Formel interpretiert und ausgewertet.
Die String-Inhalte der Variablen var1 und var2 ändern sich dadurch nicht - das sind nach wie vor Texte.
Und so etwas wie Cells(var2, var1) ist damit einfach nicht definiert.
In Boris' Code steht "var1 = Evaluate(...)", der Variablen var1 wird also der Wert der Formel in Klammern zugewiesen.
Das ist ein Long-, jedenfalls ein Zahlenwert.
"Dim var1 As Long, var2 As Long" würde hier gut passen!
Mit
Sheets("Tabelle1").Cells(30, 15).Value = var1
wird kein Text in die Zelle geschrieben, auch keine Formel, sondern nur einfach eine Zahl.
Und "Cells(var2, var1)" klappt auch problemlos.
Dass sich var1 mit der R1C1-Schreibweise nicht so berechnen lässt, liegt am Evaluate.
In der VBA-Hilfe zur Application-Methode Evaluate kannst du lesen, dass diese Methode die A1-Schreibweise braucht.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

…Erich,
nicht auf die gezeigten Pgmm! Deshalb habe ich auch den Nachsatz warum auch immer geschrieben, denn das ist eigentlich nicht so recht einsichtig.
Übrigens wirft das vor diesem Hintergrund auf meine Diskussion (vor Monaten) mit dem VBA-Tutorial-Anbieter mit Access-Hintergrund doch ein eindeutiges (MS-)Licht. Inzwischen hat der aber eingesehen, dass Variant nicht per sé (schon gar nicht in xlVBA!) böse ist… ;-]
Noch was; einmal long, immer long gilt auf jeden Fall für Arrays und Variablen, solange es sich um dieselbe(n) handelt. Mit CDate kannst du einen Wert in eine andere Variable übertragen, die von diesem Datentyp (wie du es ja dargestellt hast, allerdings ohne CDate, was VBA dann automatisch macht) oder Variant ist. Ist eine Variable vom Typ Variant, kann man ihren Wert manipulieren wie man will, sie passt sich dem an. Ein Bsp; alle Werte eines leeren Variant-Arrays haben den Wert Empty. Wdn in diesem Array nur Texte gespeichert, wdn leere Werte als LeerString interpretiert. Sind es dagegen nur (echte) Zahlen, wdn die leeren Werte als 0 gedeutet. Den Pseudowert Null muss man aber extra zuweisen und der wird mE auch nicht uminterpretiert.
Luc :-?

Beliebteste Forumthreads (12 Monate)

variabler Spaltenbezug und Zellenbezug

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

variabler Spaltenbezug und Zellenbezug

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread