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

Zeilen per Knopfdruck füllen kopieren und speicher

Forumthread: 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
Anzeige

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ß

Forumthreads zu verwandten Themen

Problem mit Drag&Drop und kopieren (VBA)
Micha

Hallo liebe Spezialisten,
ich habe mal wieder ein Problem und hoffe auf Hilfe :-)
Hier im Forum habe ich den folgenden Code zum deaktivieren von „Drag&Drop“ bekommen.
Private Sub Workbook_Activate() 'Verhindert Drag&Drop (Teil-1) Application.CellDragAndDrop = False End Sub...
17.09.2008 10:34:00
Thread-ID: 1010266
2 Beiträge
VBA Zeilen kopieren bis...
Silvi

Hallo,
kann mir bitte mal jemand bei folgendem Makro helfen:
'Rows("2:2").Select
Selection.Copy
Range("A3").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Activate
Loop
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlValu...
13.10.2008 13:13:04
Thread-ID: 1016022
13 Beiträge
Anzeige
Filtern und Kopieren - VBA
Wolfgang

Hallo,
gestern konnte ich von Daniel viele gute Tipps und Hinweise erhalten, um meine Frage zu klären. Mit dem folgenden Code möchte ich erreichen, dass gefilterte Daten in "Grunddaten" in die Tabelle "Altdaten" kopiert werden und diese Datensätze dann in "Grunddaten" gelöscht werden. Das k...
09.11.2008 10:21:00
Thread-ID: 1023032
7 Beiträge
Zeilen selektiv kopieren und löschen
stelud

Hallo,
folgendes Beispiel mit 5 Zeilen :
A B C D
12 12 555 2222
13 13 555 2222
14 14 555 2222
24 24 600 2244
25 25 555 2222
28 28 555 2222
29 29 555 2222
30 30 555 2222
34 34 600 2244
39 39 555 2222
Ich möchte nun alle Zeilen, bei den...
17.11.2008 10:11:00
Thread-ID: 1025093
11 Beiträge
Wert bestimmt Anzahl der zu kopierenden Zeilen VBA
Maja

Hallo,
ich Suche eine Formel mit der ich folgenden Code modifizieren kann:
Sub Uebergabe() Dim i As Integer Dim k As Integer Dim iRowT As Integer Const zz = 1 flagg = False Sheets("Vorlage_Angebot_Sicht").Activate Sheets("Vorlage_Angebot_Sicht").Range("D2").Select i = 0 iRowT = 10 Do...
18.12.2008 13:24:00
Thread-ID: 1033843
5 Beiträge
Anzeige
Makro: Datei (feste Werte) kopieren und versenden
Niko

Hallo zusammen,
bin absoluter VBA-Neuling habe jedocg per google unten stehendes Makro gefunden.
Es hilft mir jedoch nur zum Teil. Ich möchte eine Arbeismappe (welche mehrere Sheets enthält) und mit vielen Verknüpfungen befüllt ist als Versanddatei ohne diese Verknüpfungen erstellen un...
03.06.2009 12:27:02
Thread-ID: 1078831
3 Beiträge
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 Beiträge
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
VBA verschiedene Zellen auswählen und ausgeben
Roger

Hallo zusammen
Ich hab folgenden VBA Code um Daten von Excel in Word auszugeben, das funktioniert einwandfrei. Nun möchte ich den aber so abändern das er mir nur die Zellen M7, N24 und P7, Q24 und S7, T24 in Word ausgibt. Was muss ich da abändern?
Private Sub CommandButton1_Click() Dim...
23.07.2009 18:29:31
Thread-ID: 1090473
4 Beiträge
Zeilen einfügen und kopieren
bug-i

Hallo, ich brauche eure Hilfe:
Folgende Beispietabelle:
Merkmal - Text
1 - Text1
3 - Text2
1 - Text3
1 - Text4
2 - Text5
1 - Text6
Ich möchte jetzt für jede Zeile, die ein Merkmal größer als 1 hat danach eine neue Zeile mit gleichem Inhalt einfügen.
Die T...
05.08.2009 10:11:39
Thread-ID: 1093668
2 Beiträge
EXCEL-VBA: Zeilen einfügen, wenn
Brinkmeyer

Hallo,
ich habe das Problem eines sehr großen Formulars. Ich möchte gern, dass Zeilen nur angezeigt werden, wenn eine bestimmte Zelle einen Inhalt hat. - So kann das Formular bei leeren Zellen kleiner gehalten werden...
Hat jemand eine Idee?
06.08.2009 19:27:26
Thread-ID: 1094141
2 Beiträge
Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige