Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1592to1596
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen per Knopfdruck füllen kopieren und speicher

Zeilen per Knopfdruck füllen kopieren und speicher
22.11.2017 19:49:44
Jakob
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Klar geht das
23.11.2017 02:33:33
CitizenX
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
Anzeige
AW: Klar geht das
23.11.2017 07:42:36
Jakob
Super. Genau das.
Vielen vielen Dank Steffen.
Gruß

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige