Kopieren
04.08.2004 07:56:29
Erich
Wieder mal ein Problem.
Wie kann man erreichen das die Zeile nur einmal kopiert wird ?
An der Datei arbeiten mehere Personen, und das Blatt wo hinein kopiert wird
ist ausgeblendet.
'##### Kopiert die selectierte Zeile in das Tabellenblatt MSG ####
Private Sub cmdMSG_Click()
Dim i%
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1).Value = Date Then
Rows(i).Copy Destination:=Sheets("MSG").Cells(Sheets("MSG").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
End If
Next
Range("A1:A100").clear
MsgBox "Der Personaleinsatz wurde eingetragen ! "
End Sub
Ich hoffe ich habe es einigermaßen erklären können.
Gruss Erich