Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
772to776
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
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code copy/insert erweitern

Code copy/insert erweitern
12.06.2006 13:31:39
volker
Hai Leute,
Mein Code liest die letzte beschriebene Zelle der Spalte A (Workbook "Seriennummern" Sheet "RearCabinet") aus.
In der aktuellen Liste wird diese Nummer (im Sheet "Sticker") in A1 geschrieben. In B1 steht eine Stückzahl (Tische) wenn hier bspw. 5 steht wird in Zelle A2= A1+1; A3= A2+1; .....
Das klappt mit dem untenstehenden makro.
Nun möchte ich diese erzeugten Nummern aber auch in meine Seriennummernliste (aus der der erste Wert geholt wurde) zurückschreiben, und zwar in die erste freie Zeile der Spalte A Sheet "RearCabinet"(von oben nach unten).
Um eben diese Seriennummernliste aktuell zu halten.
Hoffe ich habs rüber gebracht, DANKE volker

Sub Seriennummer()
Dim zei, i As Integer
Workbooks.Open "P:\vw\Eigene Dateien\Seriennummern.xls"
zei = Worksheets("RearCabinet").Range("A65536").End(xlUp).Row
With ThisWorkbook.Worksheets("Sticker")
For i = 1 To .Range("B1")
.Cells(i, 1) = Cells(zei, 1) + i
Next i
End With
Workbooks("Seriennummern.xls").Close 0
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code copy/insert erweitern
12.06.2006 13:59:58
u_
Hallo,
dau speicherst die Datei nicht.
ändere:
Workbooks("Seriennummern.xls").Close True
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
AW: Code copy/insert erweitern
12.06.2006 14:09:49
volker
Hai,
Close True hab ich nun reingeschrieben.
Aber das makro hat ja noch keine Anweisung dass es in diese TAbelle überhaupt was reinschreiben soll.
Im Moment werden die Daten nur in der geöffneten (ThisWorkbook) nieder geschrieben. In der Tabelle Seriennummer das ja noch.
Danke für die Mühe, Gruss Volker
AW: Code copy/insert erweitern
12.06.2006 14:17:37
u_
Hallo,
aber das ist dir doch hier
https://www.herber.de/forum/messages/771706.html
schon beantwortet worden.
Nur eben mit close True anstatt Close 0
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
Anzeige
Ups, DANKE ja super jetzt passts
12.06.2006 14:23:25
volker
Viel Grüsse volker

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige