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

Ansicht des Beitrags:
Von:
Gast87287		 Datum:
12.08.2019 20:09:18		 Views:
406		 Rating:
     
Antwort:
  Ja
Thema:
Kopieren und einfügen

Last In First Out

<Wie kann ich die Sub Kopieren2() in dem Button integriere, als Funktion?

>Was um Himmels willen soll da eine Funktion? - mit Funktionen hascht du nach Rückgabewerten!

Private Sub CommandButton3_Click()
     Kopieren2
End Sub


Sub Kopieren2()

    Sheets("Prüfen").Range("L3:O3").Copy
    With Sheets("Aktueller Bestand").Cells(Sheets("Aktueller Bestand").Rows.Count, 2).End(xlUp).Offset(1, 0)
      .PasteSpecial 12
      .Offset(, -1) = .Offset(-1, -1) + 1
    End With
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

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