Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Zeilen per Knopfdruck füllen kopieren und speicher


Betrifft: Zeilen per Knopfdruck füllen kopieren und speicher von: Jakob
Geschrieben am: 22.11.2017 19:49:44

Hallo Zusammen,

Ich hoffe auf eure Hilfe.
Ich möchte per Knopfdruck eine Nummer in excel einfügen kopieren und die Liste speichern.

Beispiel
Zeile A1= F-00003535
Zeile B1= 00003535

Jetzt drücke ich ein Knopf und es passiert folgendes

Zeile A2=F-00003536
Zeile B2=00003536

Dann wird die Zeile A2 kopiert und die excelliste gespeichert
Die Nummer ist immer fortlaufend F-00003537 usw.

Geht das?

Mit freundlichen Grüßen + schönen Abend
Jakob

  

Betrifft: Klar geht das von: CitizenX
Geschrieben am: 23.11.2017 02:33:33

Hi,

erstelle dir eine Button und weise ihm den Code zu:

Option Explicit

Private Sub CommandButton1_Click()
    Dim lngLast&, n&, myStr$, myCopy$
    Dim myCell As Object, oClipBoard As Object
    myStr = "F-"
    Set oClipBoard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
     
        lngLast = Cells(Rows.Count, 1).End(xlUp).Row
        Set myCell = Cells(lngLast, 1)
        
        If InStr(myCell, myStr) Then
            n = CLng(Replace(myCell, myStr, 0)) + 1
            myCell.Offset(1, 0) = myStr & Format(n, "00000000")
            myCell.Offset(1, 1).FormulaR1C1 = "=SUBSTITUTE(RC[-1],""" & myStr & ""","""")"
            myCell.Offset(1, 0).Copy
        Else
            myCell = myStr & Format(n, "00000000")
            myCell.Offset(0, 1).FormulaR1C1 = "=SUBSTITUTE(RC[-1],""" & myStr & ""","""")"
            myCell.Copy
        End If
        
        'Inhalt in Zwischenablage kopieren
        With oClipBoard
            .GetFromClipboard
             myCopy = .GetText
            .Clear
            .SetText myCopy
            .PutInClipboard
        End With
    
        ThisWorkbook.Save
End Sub
VG
Steffen


  

Betrifft: AW: Klar geht das von: Jakob
Geschrieben am: 23.11.2017 07:42:36

Super. Genau das.
Vielen vielen Dank Steffen.

Gruß


Beiträge aus den Excel-Beispielen zum Thema "Zeilen per Knopfdruck füllen kopieren und speicher"