Formeln durch VBA ersetzen

Hallo,
ich habe aus dem Forum diverse Formeln, die alle funktionieren. Der Dateiumfang hat sich jetzt aber deutlich erweitert, so dass die Formeln zu sehr langen Rechenvorgängen führen. Insofern suche ich nach einer VBA-Lösung, bei der nur die Ergebnisse in die Zellen eingetragen werden.
Aus dem Forum habe ich auch schon diverse Hinweise erhalten, wie ich Formeln in VBA übertragen kann. Allerdings scheitern meine Versuche, so dass ich jetzt doch wieder hier um eine Hilfe ersuche.
Die Problembeschreibung:
http://s1.bild.me/bilder/110417/2601711x.jpg
Das sind die Formeln die per VBA gelöst werden sollen:
b_verbinden

	C
1	T1-T2
2	351-324

Formeln der Tabelle

Zelle	Formel
C1	=INDEX(a_Befüllung!$A:$M;ZEILE(); VERGLEICH($B$6000&"";INDEX(ADRESSE(1;SPALTE($A$1:$L$1); 4;1); ); ))&"-"&INDEX(a_Befüllung!$A:$M;ZEILE(); VERGLEICH(C$6000&"";INDEX(ADRESSE(1;SPALTE($A$1:$L$1); 4;1); ); ))
C2	=INDEX(a_Befüllung!$A:$M;ZEILE(); VERGLEICH($B$6000&"";INDEX(ADRESSE(1;SPALTE($A$1:$L$1); 4;1); ); ))&"-"&INDEX(a_Befüllung!$A:$M;ZEILE(); VERGLEICH(C$6000&"";INDEX(ADRESSE(1;SPALTE($A$1:$L$1); 4;1); ); ))

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
c_zähleneinfach

	C
2	0
3	0

Formeln der Tabelle

Zelle	Formel
C2	=--(ZÄHLENWENN(INDEX(b_verbinden!C:C;ZEILE()):INDEX(b_verbinden!C:C;ZEILE()+2); b_verbinden!C2)>1)
C3	=--(ZÄHLENWENN(INDEX(b_verbinden!C:C;ZEILE()):INDEX(b_verbinden!C:C;ZEILE()+2); b_verbinden!C3)>1)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
d_zählenmehrfach

	C
2	0
3	0

Formeln der Tabelle

Zelle	Formel
C2	=WENN(c_zähleneinfach!C2=1;SUMME(c_zähleneinfach!C2:C4); 0)
C3	=WENN(c_zähleneinfach!C3=1;SUMME(c_zähleneinfach!C3:C5); 0)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Kann man diese Formeln in VBA umwandeln?
Und hier eine kleine Musterdatei:
https://www.herber.de/bbs/user/112915.xlsm
Besten Dank für eine Hilfe / Anregung.
mfg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
jetzt ist es mir doch noch gelungen eine alternative VBA-Lösung zu finden. Diese ist sogar schneller, aber leider kann ich eine Formel (noch) nicht mit VBA lösen.
Ferner fehlt mir die Lösung für eine variable Zeilen- und Spaltenbegrenzung:
Hier mein Code, der auch die Formel enthält, die per VBA nicht funktioniert:
Sub muster1a() Dim ze, sp, w1, w2, ze2, found, sp2, w3, anzsp Dim wbBook As Workbook Dim wsSource As Worksheet Dim wsTarget1 As Worksheet Dim wsTarget2 As Worksheet Dim wsTarget3 As Worksheet Dim t0 As Single t0 = Timer Set wbBook = ThisWorkbook With wbBook Set wsSource = .Worksheets("b_verbinden") Set wsTarget1 = .Worksheets("c_zähleneinfach") Set wsTarget2 = .Worksheets("d_zählenmehrfach") Set wsTarget3 = .Worksheets("b_verbinden") End With 'VERBINDEN ''diese Formel geht leider nicht !!? ' With wsTarget3.Range("C2:L28") '.End(xlDown) ? ' .FormulaLocal = "=INDEX(a_Befüllung!$A:$M;ZEILE();VERGLEICH($B$6000&" *_ ";INDEX(ADRESSE(1;SPALTE($A$1:$L$1);4;1););))&" - "&INDEX(a_Befüllung!$A:$M;ZEILE();VERGLEICH(C$ _ 6000&"_ * ";INDEX(ADRESSE(1;SPALTE($A$1:$L$1);4;1););))" ' .Formula = .Value ' End With For ze = 2 To 4999 ' diese Lösung ist leider nicht so schnell? Sheets("b_verbinden").Cells(ze, 2) = Sheets("a_Befüllung").Cells(ze, 2) Sheets("c_zähleneinfach").Cells(ze, 2) = Sheets("a_Befüllung").Cells(ze, 2) Sheets("d_zählenmehrfach").Cells(ze, 2) = Sheets("a_Befüllung").Cells(ze, 2) w1 = Str(Sheets("a_Befüllung").Cells(ze, 3)) For sp = 3 To 100 w2 = Sheets("a_Befüllung").Cells(ze, sp + 1) If w2 "" Then anzsp = sp w2 = Str(w2) w3 = Trim(w1) + "-" + Trim(w2) Sheets("b_verbinden").Cells(ze, sp) = w3 End If Next sp Next ze 'ZÄHLENEINFACH With wsTarget1.Range("C2:L28") '.End(xlDown) ? .FormulaLocal = "=--(ZÄHLENWENN(INDEX(b_verbinden!C:C;ZEILE()):INDEX(b_verbinden!C:C; _ ZEILE()+2);b_verbinden!C2)>1)" .Formula = .Value End With 'ZÄHLENMEHRFACH With wsTarget2.Range("C2:L28") '.End(xlDown)? .FormulaLocal = "=WENN(c_zähleneinfach!C2=1;SUMME(c_zähleneinfach!C2:C4);0)" .Formula = .Value Range("A1").Select End With MsgBox "3fach gefüllt in " & (Timer - t0) * 1000 & " ms." End Sub Die Range C2:L28 soll eigentlich variabel gehalten werden:
Beginn immer C2
letzte Zeile: = letzte belegte Zelle aus Tabelle a_Befüllung, Spalte A
letzte Spalte: = letzte belegte Zelle aus Tabelle a_Befüllung, Zeile 1
Hier die aktuelle Musterdatei; ich habe zur Kontrolle in die Tabellen die Ergebnisse mit den Formelberechnungen eingebaut; dann sieht man gleich ob die VBA-Lösung stimmt:
https://www.herber.de/bbs/user/112923.xlsm
Besten Dank für eine weitere Hilfe!
mfg

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formeln durch VBA ersetzen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread