Zuerst ausschneiden, dann Formel einfügen
03.06.2006 19:18:14
Heinz H
Möchte 2 Makros miteinander verbinden.
Es sollte zuerst die Werte Von Zelle E2 bis E 50000 Ausschneiden,dann in H2:H50000 einfügen.
Dann sollten die Werte von H2:H50000
In E2:E50000 mit der Formel "/(24*60*60)" umgerechnet werden.
Habe unteres Makro das aber nicht ganz zum Erfolg führt.
Könnte mir Bitte dabei jemand Helfen ??
Danke Heinz
Private Sub CommandButton1_Click()
Columns("E:E").Select
Application.CutCopyMode = False
Selection.Cut
Columns("H:H").Select
ActiveSheet.Paste
Dim i As Long
For i = 2 To Cells(Rows.Count, 8).End(xlUp).Row
Cells(i, 5).NumberFormat = "mm:ss"
Cells(i, 5).FormulaLocal = "=H" & i & "/(24*60*60)"
Next i
End Sub