Variable in VBA ermitteln und als Wert übergeben

AnBad · 2019-02-24T15:51:18+00:00

Hallo, ist es möglich eine in VBA ermittelten Wert an einen Namen zu übergeben, so dass dieser Wert in normalen Exelformeln genutzt werden kann? Beispiel: Ich ermittle die letzte Zeile mit: LastRow = Cells(Rows.Count, 4).End(xlUp).Row Und später möchte ich diesen Wert dann in einer Formel nutzen z.B. =Summe(A1:A[LastRow] Ist das möglich?

Feedback:
Hier liegt vlt. ein Missverständnis vor. Ich versuche meine Frage nochmals, anders zu formulieren.
In VBA berechnet man einen Wert und weist ihn einer Variable z.B. "VariableA" zu.
Wie kann man diesen Wert, bzw. diesen Variablennamen "VariableA" in einer normalen Formel nutzen? Durch Zuweisung eines Namens? Gernerierung einer Function()?
z.B.
=B1 + "VariableA" oder


=C9 x "VariabelA" + 1

Grund der Frage (nicht unbedingt lesenswert, da nicht wichtig, denke ich):
In B2 habe ich eine Summenformel (=Summe(B10:B100)). Manchmal endet die Tabelle bereits bei B20, manchmal bei B80. Zwei Zeilen unter der Zelle letzten Zelle, soll mir VBA auch einen Wert eintragen, der aber nicht aufsummiert werden soll. D.h: die Summenformel soll nicht fest bis B100 gehen sondern dynamisch, bestimmt durch VBA enden. Ja, jetzt kann man die Summenformeln (=Summe(B10:B100)) sicherlich komplett durch VBA erstetzen oder umgekehrt irgenwie mit einer normalen Formel die Max.Zelle ermitteln und -2 nehmen. Dies wollte ich jedoch nicht, da in machen Zellen ab B10 auch Text steht, und mir VBA Fehler ausgibt und umgekehrt, wenn der Wert in VBA bereits vorliegt, bedarfs es keine kompizierte Formel in Excel. Außerdem wollte ich aus SIcherheitsgründen für den Anwendungsfall die Summierung als Formel belassen und in einer weiteren Zelle ein Überpfürung duch VBA etablieren.
Dies ist ein Problem, welches jetzt kurzfristig gelöst werden müsste.

Hallo AnBad,
du kannst per VBA entweder einem bereits vorhandenen Namen einen Wert zuweisen oder einen neuen Namen definieren und diesem Namen auch einen Wert zuweisen.
Das sieht z.B. folgendermaßen aus:

Sub Wert_zuweisen()
' Wert an einen vorhandenen Namen zuweisen.
Dim NameExistiert As Boolean
Dim nm As Name
Dim wb As Workbook
Dim ws As Worksheet
Dim zeileA As Long
Set wb = ThisWorkbook
Set ws = wb.Worksheets(1)
zeileA = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
For Each nm In wb.Names
If nm.Name = "LetzteZeileA" Then
NameExistiert = True
Exit For
End If
Next nm
If NameExistiert Then
Set nm = wb.Names("LetzteZeileA")
nm.Value = zeileA
Else
MsgBox "Der Name """ & "LetzteZeileA" & """ existiert nicht."
End If
End Sub
Sub Namen_per_VBA_Definieren()
' Neuen Namen erzeugen und Wert zuweisen
' Das Programm kann auch ausgeführt werden, wenn
' der Name bereits existiert.
Dim nm As Name
Dim wb As Workbook
Dim ws As Worksheet
Dim zeileB As Long
Set wb = ThisWorkbook
Set ws = wb.Worksheets(1)
zeileB = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
Set nm = ws.Names.Add(Name:="LetzteZeileB", RefersTo:="=" & CStr(zeileB))
End Sub

Die Namen verwendest du dann als Variable in deinem Tabellenblatt, wie gewohnt.
https://www.herber.de/bbs/user/127954.xlsm
Mit freundlichen Grüßen
Dieter Klemke

	A	B	C	D
1	20		87	1
2	53			2
3	14			3
4	62
5	91
6	19
7	27
8	50
9	58
10	89
11	42
12	87
13	72
14	71
15	89
16	91
17	43
18	32
19	82
20	23
21	19
22	57
23	12
24	41

Variable in VBA ermitteln und als Wert übergeben

Forumthread: Variable in VBA ermitteln und als Wert übergeben

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

VBA-Variablen in Excel-Formeln nutzen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

	A	B	C	D
1	20		87	1
2	53			2
3	14			3
4	62
5	91
6	19
7	27
8	50
9	58
10	89
11	42
12	87
13	72
14	71
15	89
16	91
17	43
18	32
19	82
20	23
21	19
22	57
23	12
24	41

	A	B	C	D	E	F
1	Gruß Sepp
2
3

	A	B	C	D
1	20		87	1
2	53			2
3	14			3
4	62
5	91
6	19
7	27
8	50
9	58
10	89
11	42
12	87
13	72
14	71
15	89
16	91
17	43
18	32
19	82
20	23
21	19
22	57
23	12
24	41

Variable in VBA ermitteln und als Wert übergeben

Forumthread: Variable in VBA ermitteln und als Wert übergeben

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

VBA-Variablen in Excel-Formeln nutzen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

	A	B	C	D
1	20		87	1
2	53			2
3	14			3
4	62
5	91
6	19
7	27
8	50
9	58
10	89
11	42
12	87
13	72
14	71
15	89
16	91
17	43
18	32
19	82
20	23
21	19
22	57
23	12
24	41