Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1844to1848
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Gleiche Positionen von Zellen in Spalten

Gleiche Positionen von Zellen in Spalten
10.09.2021 17:01:58
Zellen
...finden und vergleichen.
Hallo Profis. Leider keine passende Lösung für einen vba-Code beim Suchen gefunden.
Ich muß die Anzahl der Spalten in einem Tabellenblatt ermitteln, in welchen die Zellen gelb hinterlegt sind und diese immer in derselben Zeile stehen.
Tabellenblatt-Aufbau: (Z = Zeile)
Spalte A: Z 2, Z 5, Z 9 - gelb
Spalte B: Z 4, Z 6, Z 10 - gelb
Spalte C: Z 2, Z 5, Z 9 - gelb
Spalte D: Z 2, Z 8, Z 10 - gelb
Spalte E: Z 2, Z 8, Z 10 - gelb
Spalte F: Z 2, Z 3, Z 14 - gelb
Ausgabe benötigt: (Z = Zeile)
"Spalte A: Z 2, Z 5, Z 9 - 2 Treffer"
"Spalte B: Z 4, Z 6, Z 10 - 1 Treffer"
"Spalte D: Z 2, Z 8, Z 10 - 2 Treffer"
"Spalte F: Z 2, Z 3, Z 14 - 1 Treffer"
Es sind maximal 50 Zeilen jedoch 5000 Spalten. Von daher hoffe ich auf eine Funktion oder dergleichen, welche zig indizierte Variablen und hunderte for-next Schliefen verhindert. (War natürlich übertrieben!)
Ich hoffe ich konnte es so erklären, dass es verständlich ist.
Besten Dank im voraus für die Hilfe.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gleiche Positionen von Zellen in Spalten
10.09.2021 17:42:36
Zellen
Hi
Da würde ich kombiniert vorgehen:
1: erstellen dir folgende UDF (einen schönen Namen kannst du dir ausdenken:

Function xxx(Bereich as Range, Farbe AS Range) AS String
Dim Zelle as Range
For each Zelle in Bereich
Xxx = xxx & IIf(Zelle.interior.color = Farbe.interior.color, "x", "-")
Next
End Function
2. trage jetzt unterhalb der Zeilen, also in A51 die Formel ein:
=xxx(A1:A50;F1)
Wobei F1 irgendeine Zelle sein kann, die gelb ist (also entsprechend eingefärbt ist)
3. ziehe dann die Formel aus A51 nach rechts
4. um zu ermitteln, wieviele Spalten die gleiche Farbfolge haben wie A1:A50, trägst du dann in A52 die Formel ein:
=ZählenWenn(51:51;A51)
Und ziehst das ebenfalls nach rechts.
Achtung:
1. Formatänderungen lösen keine Neuberechnung der Formeln aus
Wenn du nachträglich die Farbe einer Zelle änderst, wirkt sich das nicht im Ergebnis aus, du müsstest der Wert der Zelle ebenfalls ändern.
2. das funktioniert so nur mit normaler Formatierung. Bedingte Formatierung wird nicht erkannt.
Gruß Daniel
Anzeige
AW: Gleiche Positionen von Zellen in Spalten
10.09.2021 17:52:32
Zellen
Hallo Daniel,
vielen Dank für Deine rasche Antwort.
Leider kann ich keine kombinierte Lösung verwenden, da die Sheets erst durch vba-Codes erstellt werden und diese immer in unterschiedliche Zahl.
zwischen 50 und 210 Tabellenblätter.
Gruß Dieter
AW: Gleiche Positionen von Zellen in Spalten
10.09.2021 19:01:37
Zellen
das konnte ich ja nicht wissen.
Warum hast du nichts gesagt?
du kannst die zwei Formeln ja auch per VBA und Schleifen in die verschiedenen Tabellenblätter eintragen.
ansonsten wird dir nicht viel anderes übrig bleiben, als hier explizit mit vielen Schleifen zu programmieren.
aber vielleicht kannst du ja meinen Ansatz übernehmen, dir erstmal für jede Spalte einen Textstring zu erstellen, der Codiert enthält, welche Zellen gelb sind und welche nicht.
Dann hast du zumindest mal pro Spalte einen Wert, den du einfach mit den Werten der anderen Spalten vergleichen kannst.
Gruß Daniel
Anzeige
AW: Gleiche Positionen von Zellen in Spalten
10.09.2021 19:26:47
Zellen
OK ich werde das probieren.
Wenns nicht klappt, dann werde ich um die Schleifen nicht herum kommen ;(.
In jedem Fall - danke für die Hilfe.
AW: Gleiche Positionen von Zellen in Spalten
10.09.2021 19:44:25
Zellen
was jetzt auch nicht weiter schlimm ist.
Schleifen sind normalerweise schnell.
Was man nicht per Schleife in großer Anzahl machen sollte, ist einzelne Zellwerte ändern oder Zeilen/Spalten löschen und einfügen.
Gruß Daniel

290 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige