dynamischer Zellbezug Formular Local

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
...und einen String kannst Du mit & beliebig zusammensetzen.
Gerade bei umfangreicheren Formeln bietet es sich an, die Funktionalität direkt im Tabellenblatt zu entwickeln, die Formel dann als Text einzulesen, und zwar im Direktfenster (Aufruf in VBA mit Strg+G):

?range("D2").FormulaLocal
=SUMME(B2:B11)

Die Formel erscheint, sobald die vorhergehende Zeile mit dem ? mit Enter abgeschlossen wurde.
Von hier kann man sie direkt in den Code übernehmen und den *variablen* Teil anpassen, z.B. so:

Sub formel()
Dim formeltext As String
Dim bis As String
bis = "B11"
formeltext = "=SUMME(B2:" & bis & ")"
Range("D2").FormulaLocal = formeltext
End Sub

Das ist die Variante mit *einer* Formel über einen variablen Bereich.
Die andere Variante schreibt eine Reihe "gleicher" Formel (mit zeilenweise geändertem Bezug) in einen vertikalen (Spalten-) Bereich, also etwa so:

Sub formelBereich()
Dim formeltext As String
Dim anzahl As Long
Dim Sp1 As String, Sp2 As String
Sp1 = "B": Sp2 = "D"
' Addition von B2 und D2
' nächste Zeile B3 und D3 usw.
anzahl = 10  ' Anzahl der Zeilen, wie auch immer ermittelt
formeltext = "=" & Sp1 & "2+" & Sp2 & "2"
Range("E2").Resize(anzahl, 1) = formeltext
Debug.Print formeltext
' Ausgabe im Direktfenster: =B2+D2 wie gewünscht
End Sub

Schne Grüße,
Michael

Hallo zusammen,
also ich finde die Idee von Michael mit dem String super! Also ich bin jetzt kein VBA Profie...und diese Variante erscheint mir als relativ simpel, so dass auch ich sie "nachprogrammieren" kann.
Ich habe jetzt mal die Formel, die in die Zelle muss (noch ohne variablen Teil) versucht so wie von Michael vorgeschlagen abzubilden. Bekomme jedoch den Fehler 1004: Anwendungs oder Objektbezogener Fehler, markiert wird die Zeile mit FormlarLocal
// =Dim formeltext As String
// formeltext = "=WENN(ISTZAHL($B$2);VERWEIS(1;1/('Calculations'!$C$115:'Calculations'!$AP$115<0);SPALTE('Calculations'!$C$115:'Calculations'!$AP$115)-1);"")"
// =Worksheets("Analysis").Range("B5").FormulaLocal = formeltext
Woran könnte das liegen?

Sub test() Dim sFormel As String Dim vS1 As String, vS2 As String, tBl As String ' variabler String 1 + 2, Tabellenblatt ' 1. Deine Formel wie vorhanden: sFormel = "=WENN(ISTZAHL($B$2);VERWEIS(1;1/" sFormel = sFormel & "('Calculations'!$C$115:'Calculations'!$AP$115<0)" sFormel = sFormel & ";SPALTE('Calculations'!$C$115:'Calculations'!$AP$115)-1);"")" Debug.Print sFormel ' Ausgabe: ' =WENN(ISTZAHL($B$2);VERWEIS(1;1/('Calculations'!$C$115:'Calculations'!$AP$115<0); ' SPALTE('Calculations'!$C$115:'Calculations'!$AP$115)-1);") ' 2. zur Ansicht für die doppelten "": vS1 = "hier will ich zwei Anführungszeichen+Klammer zu: """")" Debug.Print vS1 ' Ausgabe: hier will ich zwei Anführungszeichen+Klammer zu: "") ' Zuweisung variable Teile vS2 = "$B$2" tBl = "Calculations" ' Einbau in formeltext sFormel = "=WENN(ISTZAHL(" & vS2 & ");VERWEIS(1;1/(" _ & tBl & "!$C$115:!$AP$115<0);SPALTE(" _ & tBl & "!$C$115:$AP$115)-1);"""")" Debug.Print sFormel ' Ausgabe: ' =WENN(ISTZAHL($B$2);VERWEIS(1;1/(Calculations!$C$115:!$AP$115<0); ' SPALTE(Calculations!$C$115:$AP$115)-1);"") End Sub

Beliebteste Forumthreads (12 Monate)

dynamischer Zellbezug Formular Local

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread