Ich habe da ein langes Makro.
Das schreibt mir unter anderem auch das Datum der Zeilenverschiebung in die (ActiveCell.Row, 8).
Jetzt möchte Ich noch nur den aktuellen Monat in die ActiveCell.Row, 9) eintragen lassen.
Wie schaff ich das?
Bitte um eure Hilfe
Sub ZeileVerschiebenStückmicrosoft()
Dim wks2 As Worksheet
Set wks2 = Sheets("ZWK")
Dim wks3 As Worksheet
Set wks3 = Sheets("Stück")
Dim lgLetzte As Long
lgLetzte = wks2.[a65536].End(xlUp).Row + 1
Dim wks3LastRow As Long
wks3LastRow = wks3.[a65536].End(xlUp).Row + 1
Cells(ActiveCell.Row, 1).Select
If IsNumeric(ActiveCell) And ActiveCell <> "" Then
Cells(ActiveCell.Row, 1).Select
Else
MsgBox "Da haben Sie die falsche Zeile erwischt"
Sheets("FTDM").Select
Cells(ActiveCell.Row, 1).Select
Exit Sub
End If
Dim intFrage As Integer
intFrage = MsgBox("Wollen sie den Auftrag " & Cells(ActiveCell.Row, 1).Value & " , mit dieser Zeichnungsnummer " & Cells(ActiveCell.Row, 2).Value & " , in die ZWK verschieben?", vbYesNo, "Rückfrage")
If intFrage = 7 Then
Sheets("FTDM").Select
Cells(ActiveCell.Row, 1).Select
Exit Sub
End If
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 7)).Copy
ActiveSheet.Paste wks2.Cells(lgLetzte, 1)
If Cells(ActiveCell.Row, 4) = "m" Or Cells(ActiveCell.Row, 4) = "g" Then
ActiveSheet.Paste wks3.Cells(wks3LastRow, 1)
wks3.Cells(wks3LastRow, 8) = Date & " " & Time
Else
Sheets("FTDM").Select
Cells(ActiveCell.Row, 1).Select
End If
Rows(ActiveCell.Row).Delete
End Sub