Hallo
leider klappt es noch nicht. Also die Datei enthält insegesamt ca. 40 Registerkarten( Sortiert: Bestellung, Druck, LS, MS, Erledigt, Namen1, Namen2, Namen3,... usw.
Wie gesagt aus den Tabellen (5- letzte Tabelle), also die Tabellen mit Name soll jeweils die Zeile D6 in die Tabelle Druck untereinander übertragen werden.
Das war der Code den ich per Recorder aufgezeichnet habe, allerdings für jeden Kunden, also 30-40 mal. (Sehr zeitaufwendig und nicht richtig ergänzbarg):
Range("G44:I44").Select
Range("H2").Select
Range("A44").Select
ActiveCell.FormulaR1C1 = "='Name, Vorname'!R[-42]C[4]"
Range("B44").Select
ActiveCell.FormulaR1C1 = "='Name, Vorname'!R[-41]C[3]"
Range("C44").Select
ActiveCell.FormulaR1C1 = "='Name,Vorname'!R1C4"
Range("D44").Select
ActiveCell.FormulaR1C1 = "='Name, Vorname'!R2C4"
Range("E44").Select
ActiveCell.FormulaR1C1 = "='Name, Vorname'!R3C4"
Range("F44").Select
ActiveCell.FormulaR1C1 = "='Name, Vorname'!R4C4"
Range("G44").Select
ActiveCell.FormulaR1C1 = "='Name, Vorname'!R[-38]C[-4]"
Range("G44").Select
Selection.AutoFill Destination:=Range("G44:I44"), Type:=xlFillDefault
Range("G44:I44").Select
Leider weiß ich nicht wie ich in dieses Forum eine Datei hochladen kann, sonst hätte ich mal eine Beispieldatei hochgeladen.
Gruß
|