Supportnet / Forum / Tabellenkalkulation
einfügen vom text in die tabelle-vba
Frage
Hallo
ich möchte mein makro ergänzen , und zwar sollte das makro nachdem es seine hauptaugabe erledigt hat, zusätzlich mir diesen Text:
hello Pattern definition file XMXMXMXM (A1)
no. Of pattern:200 XMXMXMXMXMXMX (A2)
no. Of input :10 XMXMXMXMXM (A3)
no. Of output :1 (A4)
in die Zeile A1,A2,A3,A4 einfügt.
Danke
MfG
Antwort 1 von fedjo
Hallo javansi,
Sub Makro1()
Range("A1").Select
ActiveCell.FormulaR1C1 = "hello Pattern definition file XMXMXMXM "
Range("A2").Select
ActiveCell.FormulaR1C1 = "no. Of pattern:200 XMXMXMXMXMXMX "
Range("A3").Select
ActiveCell.FormulaR1C1 = "no. Of input :10 XMXMXMXMXM "
Range("A4").Select
ActiveCell.FormulaR1C1 = "no. Of output :1"
Range("A5").Select
End Sub
Gruß
fedjo
Sub Makro1()
Range("A1").Select
ActiveCell.FormulaR1C1 = "hello Pattern definition file XMXMXMXM "
Range("A2").Select
ActiveCell.FormulaR1C1 = "no. Of pattern:200 XMXMXMXMXMXMX "
Range("A3").Select
ActiveCell.FormulaR1C1 = "no. Of input :10 XMXMXMXMXM "
Range("A4").Select
ActiveCell.FormulaR1C1 = "no. Of output :1"
Range("A5").Select
End Sub
Gruß
fedjo
Antwort 2 von Hajo_Zi
Hallo,
in VBA kann zu 99% auf select verzichtet werden und es wird keine Formel eingetragen. Der Teil
.Select
ActiveCell.FormulaR1C1
kann entfallen.
Gruß Hajo
in VBA kann zu 99% auf select verzichtet werden und es wird keine Formel eingetragen. Der Teil
.Select
ActiveCell.FormulaR1C1
kann entfallen.
Gruß Hajo