Office: Suche VBA Hilfe beim Kopieren bestimmter Zellen bzw. nur kopieren wenn was drinne ist

Hallo Forumsgemeinde!

Ich suche mal wieder Hilfe bei einer Datei wo ich als Kleinunternehmen angebote schreiben kann.
In den ersten zwei tabellenblättern stehen quasi preislisten.
wenn ich hier die stückzahlen eingebe, soll per makro die betroffene zeile kopiert werden und
wenn nichts drinne steht, soll nichts unternommern werden.
ich habe es nun mit dem recorder aufgenommen das alles kopiert wird, sollte nun aber hilfe dabei haben, dass überprüft wird ob die betroffenen zellen leer sind usw.
ich habe es unten noch genauer beschrieben. Eine Datei lade ich mit hoch.




'Hier steht das ganze Material mit den Preisen (Blatt Material).
'Es soll auf dem Sheet "Material" von Zelle D5 bis D84 überprüft werden, ob was drinne steht.
'Wenn ja, dann die betroffende Zellen von A bis D kopieren
'Wenn nein, dann nichts unternehmen bzw. die nächste zelle kontrollieren.

Code:

    Sheets("Material").Select
    Range("A5:D84").Select
    Selection.Copy

'Hier stehen die Arbeitszeiten mit den Preisen (Blatt Reparaturarbeiten).
'Es soll auf dem Sheet "Reparaturarbeiten" von Zelle D5 bis D84 überprüft werden, ob was drinne steht.
'Wenn ja, dann die betroffende Zellen von A bis D kopieren
'Wenn nein, dann nichts unternehmen.

Code:

   
    Sheets("Reparaturarbeiten").Select
    Range("A5:D84").Select
    Application.Copy
    Selection.Copy

'Nun sollen auf Sheet "Angebot" alle gesammelten Daten untereinander eingefügt werden. Und zwar ab A16.`
'Wichtig, es soll nur der Zellinhalt eingefügt werden, nicht die Ränder der Zellen oder sowas.

Code:

    Sheets("Angebot").Select
    Range("A16").Select
    ActiveSheet.Paste
End Sub

Besten Dank!

Gruß
Marcel

 

Keiner ne Idee, oder habe ich es zu schlecht beschrieben?

Gruß
Marcel

 

Hallo Marcel,

in der beiliegenden Excel-Datei habe ich Dir das enthaltene Makro abgeändert und ergänzt, sodass es jetzt Deine Wünsche erfüllen sollte, wenn Du die Tastenkombination Alt-F8, gefolgt von der EINGABE-Taste, drückst.

 

Hallo, danke für deine Antwort.
Ich bin erst morgen wieder im Geschäft und werde es dann testen und Rückmeldung geben.

Vielen Dank und noch schöne Ostern.

MfG
Marcel