Alle von linker Liste Spalte Aübernehmen, außer B1

[WillWissen]

Ralf, danke!

[Elex]

Hi

Sind die Spalten, bei denen nur ein Name aussortiert wird, immer gleich?  Wenn ja dann verwende dort die Formel aus Beitrag #5 in diesem Thema. Das sollte sich in der Performanz bemerkbar machen.

Gruß Elex

[o0Julia0o]

Danke euch!

Sind die Spalten, bei denen nur ein Name aussortiert wird, immer gleich? Wenn ja dann verwende dort die Formel aus Beitrag #5 in diesem Thema. Das sollte sich in der Performanz bemerkbar machen.

Die Spalten sind immer die gleichen, oder was meinst du mit "immer gleich"?
   

  Sieger3.xlsx (Größe: 337,07 KB / Downloads: 2)
Das was auf dem Bild ist, passiert insgesamt 60x. Also es gibt 60 verschiedene solcher Spalten. Aber wenn ich die Geschwindigkeit der Datei erhöhen kann, dann ändere ich gerne alle Spalten einzlen ab. Kopierbar ist schön, aber Geschwindigkeit ist wichitger.

"Aber machen Sie es sich auch bewusst, dass durch die Abschaltung der automatischen Berechnung das Arbeiten in Excel angenehmer werden kann (wenn Sie Mappen geöffnet haben, die auf Grund von komplexen Berechnungen mit volatilen Funktionen langsam sind), mit dem Nachteil, dass Sie aktiv eine Neuberechnung anstoßen müssen"
q: http://www.online-excel.de/excel//singsel.php?f=171

Das wäre doch was. Ich deaktiviere per VBA die neuberechnung, bis ich sie wieder per VBA aktiviere. Geht das? Die Exceldatei lädt so schon total lange ohne, dass ich überhaupt etwas mache. Das wäre mit dem VBA-Deaktvieren der Berechnung zwar immer noch gegeben. Aber ja o.k. einmalig beim Laden. Und dann halt nur, wenn VBA sagt: "jetzt berechne". Aber wie kann ich das mit VBA sagen?

[Käpt'n Blaubär]

Hallo Julia,

weil ich eigentlich momentan etwas anderes mache, mal ganz schnell

Option Explicit

Sub AutomBerechnung_aus()
' Makro am 05.06.2018 von kph aufgezeichnet
    With Application
        .Calculation = xlManual
        .MaxChange = 0.001
    End With
    ActiveWorkbook.PrecisionAsDisplayed = False
End Sub



Sub AutomBerechnung_ein()
' Makro am 05.06.2018 von kph aufgezeichnet
    With Application
        .Calculation = xlAutomatic
        .MaxChange = 0.001
    End With
    ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

Möge es nützen

[Elex]

Hi

Wenn in Spalte C; E usw. immer nur ein Name entfernt wird dann.
C3     =WENN(A4="";"";INDEX(A:A;ZEILE(A3)+(A3=B$3)+(A3=C2);))
Diese Formel lässt sich dann nach E3;  J3;  L3; Q3  usw. kopieren.
Bedingung: Zeile 501 muss leer sein.
 
Ein paar Fragen bleiben für mich.
 
Welche Bewandtnis haben die Zufallsnamen x.1  und  x.2? Diese werden entfernt und nach der Namensnennung wieder in die Liste aufgenommen.
Welche Bewandtnis hat Zufallsname x.3? Mit dem passiert irgendwie gar nichts.

Gruß Elex

[o0Julia0o]

Danke euch beiden!!

Ich habe alle entsprechenden Formeln so getauscht. Das merkt man jetzt schon an der Geschwindigkeit top!

  Sieger4.xlsx (Größe: 289,54 KB / Downloads: 3)

Es gibt doch noch die Formeln von den Gesamtnamenslisten(also Ursprungsliste - der ´rausgeflogenen roten Namen). Die 1. in Spalte H (in Spalte G ist dann der Name der rausgeflogen ist). Die nächste in Spalte O (in Spalte N die beiden Namen die schon ´rausgeflogen sind).
Ich benötige die Listen mit den verbliebenen Namen und die Namen die schon ´rausgeflogen sind nicht. Diese sind nur Hilfen, um eben den nächsten Namen dort abziehen zu können. Kann man diese Ellenlange(und komplizierte) Formel evlt. auch entsprechend der Formel in C3 ersetzen?

Code:

=WENNFEHLER(INDEX($A:$A;1/(1/KGRÖSSTE(INDEX((ZÄHLENWENN(G$3:G$500;INDEX($A$3:INDEX($A:$A;SUMMENPRODUKT(($A$3:$A$500<>"")*1)+2);))=0)*ZEILE($A$3:INDEX($A:$A;SUMMENPRODUKT(($A$3:$A$500<>"")*1)+2)););ZEILE($A1))););"")

Welche Bewandtnis haben die Zufallsnamen x.1  und  x.2? Diese werden entfernt und nach der Namensnennung wieder in die Liste aufgenommen.
Welche Bewandtnis hat Zufallsname x.3? Mit dem passiert irgendwie gar nichts.

Diese benötige ich an anderer Stelle temporär. Aus x.1 x.2 und x.3 wird einer davon zufällig ausgewählt & dann in G3 geschrieben. Nachdem der 1ne Name aus den 3en ausgewählt wurde, kommen die wieder in die nächste Gesamtliste in Spalte H(gekürzt um den 1nen ausgewählten Namen) zurück. Ab diesem Zeitpunkt benötige ich die beiden nicht ausgewählten Namen mehr. Und den einen ausgewählten ja auch nicht, da dieser ja bereits aus der nächsten Gesamtliste herausgekürzt ist.

[Elex]

Hi

Eigentlich sollte sich die Formel auch auf die Spalten anwenden lassen.
 
H3     =WENN(A4="";"";INDEX(A:A;ZEILE(A3)+(A3=G$3)+(A3=H2);))
 
H3 Kopieren und in O3 Einfügen.
 
O3    =WENN(H4="";"";INDEX(H:H;ZEILE(H3)+(H3=N$3)+(H3=O2);))
 
Anpassen auf.
 
O3    =WENN(H4="";"";INDEX(H:H;ZEILE(H3)+(H3=N$4)+(H3=O2);))

[o0Julia0o]

Was soll ich sagen? Es funktioniereererrrerrrreeeröht! :15:

  Sieger5.xlsx (Größe: 227,98 KB / Downloads: 6)

Ich versteh´ zwar nicht, was dieses von N$3 N$4 verändern auf sich hat. Aber alles läuft jetzt wie gewünscht. Und ultraflott. Kein Unterschied mehr zu einer Exceldatei wo nur ein Feld belegt ist mit  ="thx".

Und !Danke!

[Elex]

Ich versteh´ zwar nicht, was dieses von N$3 N$4 verändern auf sich hat.

Glaub ich nicht.
Ist der Wechsel auf den Namen der als nächstes entfernt werden soll. Und du hast es doch auch umgesetzt.

In deiner Bsp. Datei verstehe ich aber die einmalige Ausnahme von Spalte U (Carmen) zur Spalte AB (Stickbold! A Dodgeball Adventure) nicht. Dort solltest du noch einmal Prüfen.

Gruß Elex

[o0Julia0o]

achso, damit dann beide Namen von der vorherigen Spalte berücksichtigt werden.

  Sieger6.xlsx (Größe: 227,98 KB / Downloads: 3)
Jo, das mit Spalte AB war ein Fehler, da musste natürlich =U5 hinein. Also den letzten Namen einfach 1:1 übernehmen, wie überall anders entsprechend das ja auch gemacht wird. Was dir so etwas auffällt.


DANKE