Office: (Office 2019) 720xformel Kopieren gehts nicht einfacher ?

Hallo Leute
Ich hoffe hier findet sich jemand der mir Helfen kann.
Folgendes habe dieses Makro

Range("FQZ10:GSQ10").AutoFill Destination:=Range("FQZ10:GSQ2500")
Range("FQZ11:GSQ2500").Copy
Range("FQZ11").PasteSpecial Paste:=xlPasteValues

welches mir diese Formel einschreibt aus erster Spalte FQZ10
=ZÄHLENWENN($AK$83:$AS$83;O10)+ZÄHLENWENN($AK$83:$AS$83;P10)+ZÄHLENWENN($AK$83:$AS$83;Q10)+ZÄHLENWENN($AK$83:$AS$83;R10)+ZÄHLENWENN($AK$83:$AS$83;S10)+ZÄHLENWENN($AK$83:$AS$83;T10)


aus letzter Spalte
=ZÄHLENWENN($AK$802:$AS$802;NK10)+ZÄHLENWENN($AK$802:$AS$802;NL10)+ZÄHLENWENN($AK$802:$AS$802;NM10)+ZÄHLENWENN($AK$802:$AS$802;NN10)+ZÄHLENWENN($AK$802:$AS$802;NO10)+ZÄHLENWENN($AK$802:$AS$802;NP10)

Meine Bescheidene Frage wäre nun lässt sich der ganze Schmarren Verkürzen -
Lässt sich da was mit Bereiche machen wobei ich aber denke mit Bereich geht da nichts weil ja jede Spalte auf eine andere Zeile zugreift.

Ich steh wie die KUH vor dem neuen Tor und hab null Ahnung wie ich das speediger hinbringe.
Bitte um Hilfestellung.

 

Du kopierst eine Bereich es reicht wenn Du die Erste Zelle bei Ziel angibts.
Ich überürüfe nun nicht die Formel in der ersten Zelle und der letzten Zelle.
Da ich nicht auf fremdew Rechner schaue.

 

hallo
Hajo_Zi
Leider stehe ich hier im Wald da ja alles auf eine Zeile Zugreifen würde anstelle auf 720 Zeilen,
wo liegt den der Fehler in meiner Anfrage ?

Wobei ich mir vorstellen könnte wenn man die Zählenwenn +Zählenwenn Formel Kürzen würde, könnte es da nicht sein das die Berechnung auch schneller Läuft oder ist das ein absurdum, wobei wie sollte man diese Formel Kürzen als Summenprodukt oder mit Zählenwenns Bekomme ich Fehler.
danke für die Information

 

gibt es hier jemand der diese Zählenwenn+++++ auf eine Kurze Formel umsetzen kann bitte?

 

Hallo,

was die 3 VBA-Zeilen mit den angeführten Arbeitsblattformeln zu tun haben, weiß ich nicht.

Was man aber tun kann: Man kann folgende Formel
=ZÄHLENWENN($AK$83:$AS$83;O10)+ZÄHLENWENN($AK$83:$AS$83;P10)+ZÄHLENWENN($AK$83:$AS$83;Q10)+ZÄHLENWENN($AK$83:$AS$83;R10)+ZÄHLENWENN($AK$83:$AS$83;S10)+ZÄHLENWENN($AK$83:$AS$83;T10)
verkürzen zu:
=SUMME(ZÄHLENWENN($AK$83:AS$83;O10:T10))
Damit wird der Formeltext kürzer. Ob auch die Rechenzeit für die Formel kürzer wird, weiß ich nicht.
Es kann aber sein, dass du die Formel als Array-Formel eingeben musst. Das kann ich nicht testen, da ich Excel365 habe und kein Excel2019. Dann müsstest du die Formel wie vorhin angeführt eingeben und die Formeleingabe nicht mit bloß der EINGABE-Taste abschließen, sondern mit der Tastenkombination UMSCHALT+Strg+EINGABE.
Dann erscheint die Formel hinterher in geschweiften Klammern eingeschlossen.
{=SUMME(ZÄHLENWENN($AK$83:AS$83;O10:T10))}

 

Hallo EXL121150
das ist super, leider dachte ich , ich müsste Zählenwenns benutzen, ging nicht egal wie ich es versucht habe.
Danke das geht mit der Klammer, Zeitersparnis weiß ich selber noch nicht.
Die Zeilen sind für Formel runter kopieren > Berechnung > Ergebnis Kopieren und einfügen.
Danke Exl121150

 

Theoretisch würde hier auch
=SUMME(--($AK$83:$AS$83=MTRANS(O10:T10)))
funktionieren. Eingabe bei älterem Excel vermutlich wieder mit Strg-Shift-Enter.
Vielleicht ist das ja schneller...

Ansonsten solltest du mal die Datei hier zur Verfügung stellen, dann kann man mal schauen, ob und wie man es schneller bekommt.

 

Hallo ...
an Exl121150 habe es mal getestet {=SUMME(ZÄHLENWENN($AK$83:AS$83;O10:T10))} ...also mehr oder weniger würde ich es nicht als Schneller empfinden, jedoch was mir aufgefallen ist, das diese kurze Formel mehr Leistung braucht als Zählenwenn+ Zählenwenn.

Werde auch ihre Formel Test HKindler Danke

 

Moin!

Und warum machst Du das nicht einfach als VBA-Schleife?

Code:

Option Explicit

Sub Version()
Dim i As Integer, r As Integer

r = UsedRange.Rows.Count

For i = 1 To r
    cells.(i,1) = 'Deine Formel
Next i
End Sub

Diesen Code in Deine Tabelle, hinter dem = Deine Funktion als Worksheet.Funktion, dann noch einen Event dafür und alles ist gut.

Grüße

 

Vielleicht weil VBA beim Zugriff auf eine einzelne Zelle praktisch gleich lang braucht wie bei einem Zugriff auf zigtausend Zellen gleichzeitig? Wenn man sich mit VBA beschäftigt, lernt man das sehr schnell.

Lass einfach mal folgenden Code laufen und staune

Code:

Sub t()
Const x As Long = 100000
Dim a As Single
Dim i As Long
Dim b As Variant
a = Timer
For i = 1 To x
    Cells(i, 1) = i
Next
Debug.Print "einzeln:   " & Timer - a
a = Timer
ReDim b(1 To x, 1 To 1)
For i = 1 To x
    b(i, 1) = i
Next
Cells(1, 1).Resize(x) = b
Debug.Print "gesammelt: " & Timer - a
End Sub

Auf meinem Rechner braucht die erste Schleife knapp 5 Sekunden, die zweite Schleife knapp 0,2 Sekunden

 

Vielleicht weil ... es immer wieder schön ist, von Dir zu lernen!! Wenn auch etwas langsam, schäm ... Danke Helmut!

 

Gehe mal davon aus, dass du mit deinen Formeln erst mal zufrieden bist und die nur schnell nach unten kopiert?
Hab hier mal ein Beispiel, bei dem die Formel in A4 steht und von dort in der Spalte C nach unten geschrieben.

Code:

Sub rngCopp()
Dim rngQ As Range, rngZ As Range
Set rngQ = [A4]
Set rngZ = [C4:C12500]
rngZ.Formula = rngQ.Formula
End Sub

 

nein.

 

Hallo Verzeihung aber ich bin leider zwar oft im Internet aber habe leider nicht immer die Zeit für Excel, möchte mich dennoch mal ganz Herzlich bedanken das man sich weiter Gedanken machte.