Hallo zusammen,
ich habe da mal eine Frage. Ich habe dieses Makro gebastelt, das bestimmte Werte aus meinem Arbeitsblatt "Bestellung2015" in ein andere Blatt "Auftragsspeicher" kopiert. Das funktioniert auch sehr gut. Jetzt möchte ich aber, dass wenn der Wert in ("Bestellung2015").Range("G18") im Auftragsspciher in der Spalte A bereits vorhanden ist dieser Wert überschrieben wird und nicht als neue Zeile angefügt wird.
Kann mir da jemand helfen?
Sub Auftragsspeicher()
Dim lngLetze As Long
With Worksheets("Auftragsspeicher") '<=anpassen
'erste freie Zeile:
lngletzteA = .Cells(Rows.Count, "A").End(xlUp).Row + 1
'Wert kopieren:
Application.ScreenUpdating = False
.Cells(lngletzteA, "A").Value = Worksheets("Bestellung2015").Range("G18").Value
.Cells(lngletzteA, "B").Value = Worksheets("Bestellung2015").Range("D24").Value
Sheets("Auftragsspeicher").Select
.Cells(lngletzteA - 1, "CR").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Bestellung2015").Select
Application.ScreenUpdating = True
MsgBox "Daten im Auftrags-Speicher hinterlegt!"
'Felder ausfüllen:
End With
End Sub
|