Office: Ermitteln/Kopieren/Einfügen/für alle Reihen

Hallo liebe Excel Meister,

nun da ich mich seit ein paar Tagen mit VBA beschäftige stehe ich vor einem Problem das sich in Worten nur halbwegs verdeutlichen lässt deshalb habe ich ein kleines Beispiel hochgeladen.
Es geht um folgendes. Ich habe eine Excel Tabelle mit 130 Spalten die Filmdaten enthalten wobei ich im Beispiel die "unwichtigen" Spalten ausgeblendet habe so das nur die Spalten zum Problem sichtbar sind.
Jede meiner ExcelZeilen(im Test nur eine) enthält 8 Tonspuren und jede der 8 Tonspuren besteht aus 8 Zellen. Diese stehen in jeder Zeile ab "Spalte " BG bis "Spalte" DR. Der Einfachheit halber habe ich in jede Zelle vorne ein t mit der dazugehörigen spurNR. reingeschrieben.
z.B t1: für Tonspur 1 usw....

Ab "Spalte" DS enthält jede Excel Zeile 8 weitere Zellen
Eine dieser Zellen enthält der Wert "Wahr" und dieser Wert Kennzeichnet die HauptTonSpur. im Beispiel Spur4 ("Spalte" DV)
Um diese HauptTonSpur zu ermitteln habe ich ein kleines VBA Skript
geschrieben (ist im Beispiel enthalten. "Public Sub FindeHaupTonSpur()")

Nun soll die HauptTonSpur(HTS) in jeder Zeile an erster Stelle der Tonspuren stehen. d.h Es soll im Beispiel die Tonspur4 (Spalten CE bis CL)
kopiert und ausgeschnitten werden
(so das nach Tonspur 3 - Tonspur5 kommt)

und in die Spalten BG bis BN (hier soll immer HTS stehen)eingefügt werden ,
so das praktisch ab Spalte BG eine neue Reihenfolge entsteht
HauptTonspur, Tonspur1, Tonspur2 , tonSpur3, tonspur 5,Tonspur6 usw...

Dieses Sollte für jede Excel Zeile gemacht werden...
Je nach Vertrieb sind es pro File zwischen 30 und 700 Filme ......
Ich hoffe das mir jemand ein paar Hilfreiche Vorschläge machen kann wie ich das am einfachsten umsetze und bedanke mich recht herzlich für eure zeit und Mühe....
DANKE
gruß
ivan

:)

 

Hi Magneto,
wenn ich das richtig verstanden habe, müsste es so funktionieren (komplett das ganze Problem in einer einzigen, neuen Prozedur!)
Code:

So OK?
(Tests natürlich an Sicherungsdatei durchführen...)

 

Hallo MRR,

sieht Spitzenmäßig gut aus !!! Muss nur noch einen Echtlauf damit machen
da gerade nur ein Beispiel mit 1 Film da ist.... aber da klappt es
genauso wie ich das wollte ::: DANKE DANKE DANKE
Wenn der Echtlauf auch so gut Klappt dann Flip ich aus...
Das erspart mit ein ganzes Abap-Programm und eine Menge Zeit.
Werde es morgen früh genau testen ......
DANKESCHÖN DANKESCHÖN
bis bald

Herzlichste Grüße
ivan

 

Hallo MRR,

Spitze funktioniert einwandfrei..... DANKE

Eine Frage nur noch angenommen die TonSpur würde sich aus 9 Feldern Zusammensetzen ... Wie müsste ich den Code anpassen damit es
funzt..
THX
gruß
ivan

hi nochmal, habe es hinbekommen lag nur an Denkfehler meinerseits

THANKS _ DANKE _ HVALA _ GRACIAS