makro
14.01.2008 21:33:00
rolf
ich habe 2 makros in einer tabelle die nicht miteinander harmonieren,wie muß ich sie verändern ?
eines schneidet eine zeile aus und fügt sie in eine andere tabelle ein.
das andere fügt eine uhrzeit ein,wenn eine zelle bearbeitet wurde.
Private Sub CommandButton1_Click()
Dim zeiLe, enDe As Long
zeiLe = ActiveCell.Row
enDe = Sheets("gearbeitet").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("gearbeitet").Rows(enDe + 1).Value = ActiveSheet.Rows(zeiLe).Value
ActiveSheet.Rows(zeiLe).Delete
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C3:C50")) Is Nothing Then
If Target.Offset(0, 2).Value = "" Then Target.Offset(0, 2) = Now
End If
End Sub
mfg rolf