Formel per Makro

08/08/2012 - 21:51 von Peter | Report spam
Hallo NG,

ich möchte per Makro
1. Spalte V formatieren [h]:mm
2. die Formel Rest(S2-R2;1) schreiben lassen in Zelle V2
und diese dann weiterführen bis zur letzten belegten Zeile
3. Die Formel Text(Q2;"MMM JJJJ") schreiben lassen in Zelle W2
und diese dann weiterführen bis zur letzten belegten Zeile

kann jemand aushelfen mit passenden Code ?

mfg
Peter
 

Lesen sie die antworten

#1 Claus Busch
08/08/2012 - 22:05 | Warnen spam
Hallo Peter,

Am Wed, 08 Aug 2012 21:51:15 +0200 schrieb Peter:

ich möchte per Makro
1. Spalte V formatieren [h]:mm
2. die Formel Rest(S2-R2;1) schreiben lassen in Zelle V2
und diese dann weiterführen bis zur letzten belegten Zeile
3. Die Formel Text(Q2;"MMM JJJJ") schreiben lassen in Zelle W2
und diese dann weiterführen bis zur letzten belegten Zeile



versuch mal:

Sub Ausfuellen()
Dim LRow As Long

LRow = Cells(Rows.Count, "Q").End(xlUp).Row
Range("V2").Formula = "=mod(S2-R2,1)"
Range("V2").AutoFill Range("V2:V" & LRow)
Range("V2:V" & LRow).NumberFormat = "[h]:mm"
Range("W2").Formula = "=Text(Q2,""MMM JJJJ"")"
Range("W2").AutoFill Range("W2:W" & LRow)
End Sub


Mit freundlichen Grüßen
Claus Busch
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3

Ähnliche fragen