VBA Problem
06.10.2002 09:53:12
Thorsten
mit folgendem Code setze ich auf Knopfdruck Daten von einer Eingabemaske in ein anderes Tabellenblatt:
Sub DatenInsArchiv()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("Eingabe")
Set ws2 = Worksheets("Archiv")
Dim letzteZeile As Long
letzteZeile = ws2.Range("A65536").End(xlUp).Row + 1
ws2.Cells(letzteZeile, 1) = letzteZeile - 2
ws2.Cells(letzteZeile, 2) = Range("Abw_L_1").Value
Range("Abw_L_1").ClearContents
ws2.Cells(letzteZeile, 3) = Range("Abw_L_2").Value
Range("Abw_L_2").ClearContents
usw
In der nächsten Spalte des "Archivs" (letzteZeile, 4) soll nun das Ergebnis einer Formel stehen. Die VBA Formel habe ich aus einem Makro rauskopiert: ActiveCell.FormulaR1C1 = "=NORMDIST(L_1_Abw,Mittelw_L_1,Stabw_L_1,FALSE)".
Wie bekomme ich diese Formel in das obige Beispiel eingebaut?
Danke für die Hilfe!
Thorsten
Anzeige