Moin zusammen,
ich möchte folgende Sache machen. Ich möchte die Zellen L3 - O3 vom Blatt A durch Knopfdruck in Blatt B, Spalte B - E kopieren, undzwar unter die letztbeschriebene Zeile. Im gleichen Atemzug soll in der Spalte A in Blatt B in der zugehörigen Spalte A der neuen Zeile eine ID um eins erhöht werden. Achja, die Zellen L3 - O3 haben ein Zahlenformat, was ich gerne mitkopieren möchte ABER die restliche Formatierung soll nicht übernommen werden (Linien und Füllfarben).
Mein erster Ansatz ist folgender:
Sub Kopieren2()
Sheets("Prüfen").Range("L3:O3").Copy Destination:=Sheets("Aktueller bestand").Cells(Sheets("Aktueller Bestand").Rows.Count, 2).End(xlUp).Offset(1, 0)
End Sub
Der kopiert aber alle Formatierung und erhöht die laufende ID nicht.
Und eine zweite Frage:
Der Befehl soll ausgelöst werden in:
Private Sub CommandButton3_Click()
...
End Sub
Wie kann ich die Sub Kopieren2() in dem Button integriere, als Funktion?
|