Halo & sorry.
Habe mich wohl an mehreren Stellen unverständlich ausgedrückt.
Das zweite Abfrage Fenster ist nicht nötig.
Im Ersten Fenster soll ein Ja das Makro starten, ein Klick auf nein soll nur das Abfragefenster schließen und das Makro nicht starten.
Makro stoppt und kennzeichnet folgenden Bereich gelb …
With Worksheets("Etiketten").Range("F1")
'lfd. Nr. einlesen und um 1 eröhen
lngNr = .Value + 1
'und neue lfd. Nr. zurückschreiben
.Value = lngNr
End With
Wert aus Tabellenblatt Etikett F1 soll kopiert werden und im Tabellenblatt PP Bico Bunt in Spalte A
in die erste leere Zelle eingefügt und dann um eins erhöht werden, daneben das Aktuelle Datum.
In der selben Zeile in Spalte D der Wert aus Tabellenblatt Etikett C9 kopiert und eingefügt.
Ich möchte das Makro einer Schaltfläche zuweisen.
Gruß
Hans