Variable in VBA ermitteln und als Wert übergeben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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.

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

Public Sub aaa() Dim loLetzte As Long With Worksheets("DeinBlatt") loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row .Cells(2, 2) = WorksheetFunction.Sum(.Range(.Cells(10, 2), .Cells(loLetzte, 2))) .Cells(loLetzte, 2).Offset(2) = 50 End With End Sub

Public Sub SummenSpalten() Dim LastRow As Long With Worksheets("Kalkulation") LastRow = .Cells(.Rows.Count, 5).End(xlUp).Row '.Cells(33, 7) = WorksheetFunction.Sum(.Range(.Cells(19, 7), .Cells(loLetzte, 7))) .Cells(LastRow, 7).Offset(3).Clear .Cells(LastRow, 6).Offset(3).Clear .Cells(LastRow, 6).Offset(3) = "Gesamt, Netto:" .Cells(LastRow, 7).Offset(3) = WorksheetFunction.Sum(.Range(.Cells(19, 7), .Cells(LastRow, _ 7))) .Cells(LastRow, 7).Offset(3).NumberFormat = "#,##0.00 " End With End Sub

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

Variable in VBA ermitteln und als Wert übergeben

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

196 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

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

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

196 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

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