Code umschreiben
05.01.2009 22:20:57
Tom
habe noch nie ein Makro programmiert und hoffe ich finde hier hilfe.
Wie kann ich nachfolgenden Code so erweitern, dass dieser die Werte die in H12:K13 stehen
in H17:K18, H26:K27 und H31:K32 schreibt.
-------------------------------------------------------------------------------------------------------------------------------
Sub Test1()
' Test1 Makro
Range("I12").Select
ActiveCell.FormulaR1C1 = "1"
Range("J12").Select
ActiveCell.FormulaR1C1 = "2"
Range("J13").Select
ActiveCell.FormulaR1C1 = "3"
Range("I13").Select
ActiveCell.FormulaR1C1 = "4"
Range("H12").Select
ActiveCell.FormulaR1C1 = "5"
Range("K12").Select
ActiveCell.FormulaR1C1 = "6"
Range("K13").Select
ActiveCell.FormulaR1C1 = "7"
Range("H13").Select
ActiveCell.FormulaR1C1 = "8"
Range("A1").Select
End Sub
Für eure Hilfe und Denkanstöße bin ich sehr Dankbar
Gruß Tom