Frage : Zellen dynamisch in kopieren übertreffen

Hey

I haben eine Tabelle mit Initialen in den Reihen und weeknumbers im culumn. Neben habe mir eine Liste mit etwas von den Initialen und einem spezifischen weeknumber - von dieser Liste möchte ich den Inhalt in die genauen Positionen in der Tabelle kopieren, indem ich einen Knopf betätige. Meine Vermutung ist, dieses vba sein das solution.

I versucht, in zu erklären angebracht übertreffen file.

Excel 2007 für windows.

Help:-)

Cheers, Raahaugen
Attachments:
Mappe2.xlsm (11 KBS)  (Akten-Art Details)  
mein problem

Antwort : Zellen dynamisch in kopieren übertreffen

Raahaugen,

Das folgende Makro ist in der angebrachten Akte. Mich informieren, wenn es tut, was Sie wünschen.

Patrick
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Vorspecialmacro ()
Schwaches rng1 als Strecke
Schwaches rng2 als Strecke
Schwaches celle1 als Strecke
Schwaches celle2 als Strecke
Schwacher Colm als lang

Mit Blättern („Sheet1“)
    Einstellen rng1 = Strecke (. Zellen (12, „Q“). Zellen (. Rows.Count, „Q“). Ende (xlUp))
    Einstellen rng2 = Strecke (. Zellen (12, „C“). Zellen (27, „C“))
Ende mit

Für jedes celle1 in rng1
    Für jedes celle2 in rng2
        Wenn celle1 = celle2 dann
            Colm = Zellen (11, „V“). Wert
            celle2.Offset (0, Colm) = celle1.Offset (0, 1)
        Beenden wenn
    Folgendes celle2
Folgendes celle1

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us