Fortlaufende Nummer bis zu unbestimmter Zelle

Hallo alle zusammen!
Ich habe leider ein Problem.
Ich benötige ein Makro um eine Fortlaufende Nummer in Spalte C einzufügen bis zur Letzten befüllten Spalte von D. Außerdem (falls das möglich ist) sollte sich das makro die zuletzt verwendete zahl merken. Um dort weiter zu zählen wo er in einer anderen datei schon war.
Ungefähr so:
Tabelle 1
C d
1000001 Text
1000002 Text
Tabelle 2 (andere Datei
C d
1000003 Text
1000004 Text
Zum Hintergrund ich arbeite mit einem Programm indem ich oft Daten Importieren werden muss und erstelle deswegen Makros um die Csv Dateien in Excel umzumodelieren.
Das hier ist dann hoffentlich das Letzte teil im Puzzle um das Ganze zum Laufen zu bringen.
Für rechtschreibfehler entschuldige ich mich schonmal und Hoffe auf eure Hilfe.
Sorry wegen dem Beispiel dort oben kenne mich hir auf der Seite noch nicht so gut aus!
MFG
Patrick

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub nummern() Const Datei = "C:\DeinPfad\Nummer.meins" ' .meins, weil das ziemlich sicher von keiner anderen Software verw. wird Const start_nr = "1000001" Dim nummerStr As String Dim zahl As Long Dim DateiNr As Integer Dim von As Long, bis As Long, i As Long Dim zahlen As Variant ' als Array, damit's fetzt If Dir(Datei) = "" Then DateiNr = FreeFile Open Datei For Output As #DateiNr Print #DateiNr, start_nr & " " Close #DateiNr nummerStr = start_nr MsgBox "Datei " & Datei & " wurde mit Wert " & start_nr & " erzeugt." Else DateiNr = FreeFile Open Datei For Input As #DateiNr Line Input #DateiNr, nummerStr Close #DateiNr End If MsgBox nummerStr zahl = Trim(nummerStr) * 1 von = 1 ' ggf. anpassen, falls Überschriften/Leerzeilen bis = Range("D" & Rows.Count).End(xlUp).Row zahlen = Range("C" & von & ":C" & bis) For i = von To bis zahlen(i, 1) = zahl + i - 1 Next Range("C" & von & ":C" & bis) = zahlen DateiNr = FreeFile Open Datei For Output As #DateiNr Print #DateiNr, zahlen(bis, 1) + 1 & " " Close #DateiNr End Sub

Sub LfdNummerSetzen() 'Trägt in Spalte C in jede Zelle ab Zeile 1 eine fortlaufende Nummer ein, bis zur letzten gefü _ llten 'Zelle in Spalte D (aktives Blatt) Dim Start As Long: Start = ThisWorkbook.Worksheets("MyTestTab").Range("StartCounter").Value Dim leZeile As Long Dim i As Long Dim j As Long leZeile = ActiveWorkbook.ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row Application.ScreenUpdating = False j = Start For i = 1 To leZeile ActiveWorkbook.ActiveSheet.Cells(i, 3).Value = j j = j + 1 Next ThisWorkbook.Worksheets("MyTestTab").Range("StartCounter").Value = j Application.ScreenUpdating = True End Sub

Patrick,
...dass es jetzt bei Dir zu Fehlern kommt - ich hab Dir halt auch wenig Erklärung mitgeliefert. Bitte entschuldige. Du hast das Add In im Endeffekt anders genutzt, als es gedacht war (bzw. als ich aus Deiner Anfrage verstanden habe).
"StartCounter" ist ein definierter Name der sich auf Zelle A1 des Tabellenblattes "MyTestTab" des Add In bezieht. Ein Add In ist im Grunde eine Excel-Arbeitsmappe, die ausgeblendet ist. Ich nutze daher das Tabellenblatt der ausgeblendeten Arbeitsmappe um den Zähler der laufenden Nummer dort zu speichern.
Du schreibst, dass Du den Code in Deine persönliche Makro-Arbeitsmappe kopiert hast. Das ist aber nicht notwendig. Speichere mein Add in an einem beliebigen Speicherort. Öffne Excel, Menüband, Register "Entwicklertools" (wenn nicht vorhanden über Optionen einblenden), Add ins. Klicke auf "Durchsuchen..." und begib Dich zum Speicherort des Add ins, Add in auswählen und OK. In der Liste der verfügbaren Add Ins dann ggf. noch sicherstellen, dass "Mytest" angehakt ist.
Ab diesem Zeitpunkt wirkt mein Makro immer in der "aktiven Tabelle" - mit den Tastaturbefehlen, die ich Dir geschrieben habe.
In Spalte D müssen natürlich Daten vorhanden sein, damit in Spalte C die fortlaufende Zahl eingetragen wird - es ging ja um das Spaltenende von D.
Habe es jetzt bei mir getestet - im Grunde funktioniert es, wie geplant. Auch bei mehreren Tabellenblättern in einer oder mehreren Mappen. Wenn Du allerdings eine neue Instanz von Excel öffnest, steht dort das Add in nicht zur Verfügung (also wenn Du eine neue Mappe nicht über zB [Strg + N] öffnest oder über das Menüband-Symbol, sondern bspw. nochmal Excel startest).
Hilft Dir das schon mal weiter?
LG
Michael

Beliebteste Forumthreads (12 Monate)

Fortlaufende Nummer bis zu unbestimmter Zelle

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fortlaufende Nummer bis zu unbestimmter Zelle

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread