|
Hallo Leute....
Versuche eine Excelberechnung zu automatisieren.
Folgendes Problem:
Im Moment sieht das ganze so aus:
Sub direkt()
'
' direkt Makro
'
Dim i As Integer
For i = 1 To 10
'Erste Zeile
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "HDR"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "1.0"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "NOID"
'zu Spalte A nächste Zeile springen
ActiveCell.Offset(1, -2).Range("A1").Select
'Zweite Zeile
'
ActiveCell.FormulaR1C1 = "=direkthilfe!R[2]C"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=direkthilfe!R[2]C"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=direkthilfe!R[2]C[1]"
ActiveCell.Offset(1, 0).Range("A1").Select
'zu Spalte A nächste Zeile springen
ActiveCell.Offset(1, -2).Range("A1").Select
Next i
End Sub
das Blatt "direkthilfe" sieht so aus, dass in spalte A bsw.: 1;1;1;1;2;2;3;3;4;4;4;4;4
ich brauche die erste Zeile fest, wie oben im Code und danach jeweils eine Zeile mit allen gleichen Zahlen in Spalte a
also hier im beispiel:
Spalte 1
1
1
1
1
Spalte 1
2
2
Spalte 1
3
3
usw.
Ich hoffe das ist einigermaßen verständlich.
|