Hilfe bei Schaltfläche

[painkiller]

Hi 

Ich habe es jetzt mal so weit das es bei einer bestimmten Zelle funktioniert.
Nun möchte ich aber mehrere Prüfmittel markieren dann auf den Button, und diese dann in den Lieferschein in zb. E20/E21/ usw einfügen.
Geht das?

Code:

Private Sub CommandButton1_Click()



    Range("A2334").Select
    Selection.Copy
    Sheets("LS").Select
    Range("E20").Select
    ActiveSheet.Paste
   
   
End Sub

[schauan]

Hallöchen,

das ist aber nicht die Variante mit dem Autofilter.

[painkiller]

Hallo zusammen 

Ich bräuchte nochmal eure Hilfe
Ich habe eine Liste mit Prüfmittel bei welchen ich den Kalibrierstatus abfragen kann.
Bedeutet wenn das Prüfmittel noch im Intervall ist, ist der Status grün , wenn abgelaufen dann rot.
Nun möchte ich aber noch wenn z.b. in Kalibrierdatum unbekannt eintrage das gelbe Symbol angezeigt wird.
Wie kann ich das machen?

Danke euch