|
Hallo,
ist es möglich über einen VBA zu programmieren, dass in einem Tabellenblatt alle Zeilen markiert, kopiert und in ein Tabellenblatt "Gesamt" eingefügt werden, in denen mindestens eine Spalte ausgefüllt ist?
Kurz zum Layout: In den Zeilen B6 bis F6 stehen Überschirften wie Kundennummer etc. In den Zeilen darunter sollen meine Kollegen wöchentlich ihre neuen Kunden eingeben, anschließend auf eine Schaltfläche drücken und dadurch sollen alle ausgefüllten Datensätze automatisch in eine Tabellenblatt "Gesamt" kopieren.
Ich habe es bisher nur geschafft zu programmieren, dass alle Zeilen markiert und kopiert werden, sobald die erste (B6) und die letzte (F6) Spalten ausgefüllt sind. Da aber nicht bei allen Kunden immer beide ausgefüllt werden können bräuchte ich einen Code der die Zeilen markiert und kopiert, sobald eine der Spalten B6-F6 ausgefüllt sind.
Kann mir da jemand helfen? :)
Hier mein bisheriger Code:
Sub Schaltfläche1_BeiKlick()
Range("B7", Range("F7").End(xlDown)).Select
Selection.Copy
End Sub
Danke und LG, Jan
|