Thema Datum  Von Nutzer Rating
Antwort
Rot Excel nächte freie Zeile oder Doppelte überschreiben
 13.08.2015 14:03:51 Christian
NotSolved

Ansicht des Beitrags:
Von:
Christian		 Datum:
13.08.2015 14:03:51		 Views:
1785		 Rating:
     
Antwort:
  Ja
Thema:
Excel nächte freie Zeile oder Doppelte überschreiben

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel nächte freie Zeile oder Doppelte überschreiben
 13.08.2015 14:03:51 Christian
NotSolved