Einzelnen Beitrag anzeigen
Alt 09.01.2018, 10:05   #5
Juragerb
MOF User
MOF User
Standard

Ja das ist die alte Funktion, ich hab jetzt einen Reiter "Check" erstellt in den die gesammte Zeile kopiert wird. Ab hier möchte ich, dass die Bestellung erst dann weitergeleitet wird wenn bei Freigabe ein Name eingegeben wurde. Zurzeit wird die Bestellung beim entern des Punktes "Bestellt am" weitergeleitet. Der Code sieht wie folgt aus:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 25 Then
If IsDate(Target.Value) Then
Worksheets("Check").Rows(Target.Row).Copy Destination:=Worksheets("In Arbeit").Cells(Worksheets("Check").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
'Worksheets("Check").Rows(Target.Row).Hidden = True 'ausblenden
Worksheets("Check").Rows(Target.Row).Delete 'löschen
End If
End If

End Sub
Juragerb ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten