Thema Datum  Von Nutzer Rating
Antwort
Rot Kopieren und einfügen
12.08.2019 17:55:21 Stefsn
Solved
12.08.2019 20:09:18 Gast87287
*****
NotSolved
13.08.2019 08:57:37 Gast306
NotSolved

Ansicht des Beitrags:
Von:
Stefsn
Datum:
12.08.2019 17:55:21
Views:
86
Rating: Antwort:
 Nein
Thema:
Kopieren und einfügen

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?

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Kopieren und einfügen
12.08.2019 17:55:21 Stefsn
Solved
12.08.2019 20:09:18 Gast87287
*****
NotSolved
13.08.2019 08:57:37 Gast306
NotSolved