code vereinfachen?

Bild

Betrifft: code vereinfachen?
von: Benrd
Geschrieben am: 15.02.2005 11:48:46
hallo,
ich habe schon weiter unten einen beitrag gepostet:
und zwar: wert trotz formel in zelle x beibehalten
nun habe ih mal folgenden code mir zusammengebastelt:


Sub test()
    Application.ScreenUpdating = False
    
    Sheets("gesamtjahresleistung").Select
    Range("B8").Select
        If Now >= 38395 And Now < 38399 Then
            Range("B8:E8").Select
            Selection.Copy
            Range("B3:E3").Select
            Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, 
SkipBlanks:= _
                False, Transpose:=False
            Application.CutCopyMode = False
            Selection.Copy
            Range("B8:E8").Select
            ActiveSheet.Paste
            Range("B3:E3").Select
            Application.CutCopyMode = False
            ActiveCell.FormulaR1C1 = "0"
            Range("B3:E3").Select
            Range("C3").Activate
            ActiveCell.FormulaR1C1 = "0"
            Range("B3:E3").Select
            Range("D3").Activate
            ActiveCell.FormulaR1C1 = "0"
            Range("B3:E3").Select
            Range("E3").Activate
            ActiveCell.FormulaR1C1 = "0"
            Range("A1").Select
            Range("A1").Select
        Else
            Exit Sub
        End If
        
    Application.ScreenUpdating = True
End Sub

kann man den noch verkürzen oder vereinfachen?
danke für eure hilfe
gruss bernd
Bild

Betrifft: AW: code vereinfachen?
von: Nepumuk
Geschrieben am: 15.02.2005 12:23:37
Hallo Bernd,
kurz genug?

Sub test()
    Worksheets("gesamtjahresleistung").Select
    If Now >= 38395 And Now < 38399 Then Range("B8:E8").Value = Range("B8:E8").Value
End Sub

Gruß
Nepumuk
Bild

Betrifft: jepp, danke ^^
von: Bernd
Geschrieben am: 15.02.2005 13:06:25

 Bild

Beiträge aus den Excel-Beispielen zum Thema "code vereinfachen?"