Office: Reihe in anderes T-Blatt, dann in jede 7. Reihe

Hallo allerseits, nachdem mir bei meinen Versuchen Excel öfter alles geblockt hat, stelle ich jetzt doch lieber hier meine Frage.
Ich habe in der Tabelle "T-Alle" von A3:Z27 Zahlen von 1 bis 25 zu stehen. Unter bestimmeten Bedingungen werden einige Zahlen davon weiß mit rotem Hintergrund (keine bed. Formatierung). Nun wollte ich in Tabelle "Tab1-4" ebenfalls die Zahlen in weiß mit rotem Hintergrund haben. (die Zahlen sind identisch) Aber hier ist die Tabelle anders aufgebaut.
"T-Alle"B3:Z3 = "Tab1-4" AB2:AZ2
"T-Alle" B4:Z4 = "Tab1-4" AB9:AZ9 (immer in 7er Schritten)
.
.
"T-Alle"A27:AZ27 = "Tab1-4"AB170
Für die einzelnen Reihen habe ich folgenden Code:
Code:

Es wäre schön, wenn ich das nicht alles einzeln schreiben müßte. Ich bekomme es einfach nicht hin, das dann die Reihen in "Tab1-4" in Reihe 2, 9, 16, 23 usw. bis Reihe 170 eingefügt werden.
Kann mir jemand weiterhelfen und die Tipparbeit verkürzen ?
Danke
Gruß Sylvia

:)

 

Es würde die ganze Sache auch vereinfachen, wenn es eine Formel gibt, etwa so in der Art: z.B. in "Tab1-4"AB2 = wenn Zahl schwarz, dann = 'T-Alle'!B3. Ansonsten habe ich hier eine Funktion gefunden, mit der ich die schwarzen Zahlen zähle.
Gruß Sylvia

 

Moin, Sylvia,

meinst Du als VBA-Ansatz so etwas?

Code:

 

Hallo jinx, so in etwa habe ich es probiert, habe mir dafür den Code von "Kommentare erstellen" zu Hilfe genommen. Jezt spontan der Gedanke, Code:

Die Zahlen sind zwar aus der Tabelle "T-Alle", aber mir geht es um die Schriftfarbe und rotem Hintergrund und das wird ja bei der Formel mit "=" nicht geändert, wenn sich die Schriftfarbe ändert.
Ich probiere jetzt mal die Codezeile aus, mal sehen was passiert.
Danke für deine Antwort
Gruß Sylvia

 

Tja, es geht so nicht, habe eine rote Reihe, irgendetwas fehlt da noch. Ich probiere weiter.
Gruß Sylvia

 

Hallo jinx, um das alleine zu schaffen, fehlt mir noch eine ganze Menge an Wissen. Entweder ist die ganze Reihe rot oder die Felder sind wie in T-Alle. Ich habe versucht dein Beispiel aus #3 in #1 einzuarbeiten, aber ich packs nicht.
Gruß Sylvia

 

zu #2: Ich meinte, wenn in Tabelle "T-Alle" die Zahl schwarz ist, dann in "Tab1-4"AB2 = 'T-Alle'!B3.
Selbst wenn ich nur die Reihe B3:B27 nehme und diese Zahlen in Spalte AB übernehme, brauche ich die 7er Schritte.
Gruß Sylvia

 

Habe mir zum Probieren eine neue Mappe erstellt. Zumindest hier klappt es mit dieser Formel für B3:B27
Code:

Hier habe ich B3, B6 und B9 rot hinterlegt. In Tabelle "Tab1-4" sind dann AB2, AB23 und AB44 rot hinterlegt.
Diese Variante würde mir auch schon einige Schreibarbeit abnehmen.
Mal sehen, vielleicht kriege ich das mit den Spalten noch hin, so dass ich dann gleich von B3:Z3 abfragen kann.
Hoffentlich klappt es dann auch in meiner richtigen Tabelle.
Danke jinx für den Denkanstoß
Gruß Sylvia

 

Habe es mit den Spalten hinbekommen.
Code:

Sylvia

 

Moin, Sylvia,

führst Du Selbstgespräche? *wink.gif*

Ein Range-Objekt kann man entweder als Range("B3:Z3") verwenden oder aber auch als Range(Cells(3, "B"), Cells(3, "Z")) oder auch numerischen Werten für die Spalten. Bei Verweisen auf andere Tabelle ist dabei zu beachten, dass auch die Cells-Anweisungen in der Klammer den richtigen Bezug bekommen, sonst beziehen sie sich immer auf die aktive Tabelle. Und dann gäbe es auch noch Range("B3").Resize(1, 25). Aber mit all diesen Anweisungen wird immer ein gesamter Bereich wiedergegeben, der ggf. noch über ein zusätzliches Range-Objekt zu durchlaufen wäre.

Wie wäre es denn mit einer Beispieltabelle: was ist, was macht´s, was sollte es tun - das Makro, meine ich...

 

Hallo jinx, ich wollte dir eigentlich nur danken und sagen, das ich mein Problem lösen konnte. Ich hatte verschiedene Schreibweisen versucht, Resize kam nicht in Frage und die anderen Cods, die ich hier erhalten habe auch nicht, weil sie sich immer auf eine ganze Reihe bezogen. Ich habe auch hier lange gesucht, ob ich etwas ähnliches finde.
Mit #3 hast du mir ja den richtigen Hinweis gegeben.
Inzwischen läuft es jetzt auch in meiner richtigen Tabelle.
Das nächste Mal werde ich dann eine Beispieltabelle einfügen.
Danke
Gruß Sylvia