Office: automatische Nummerierung

Hallo,

ich habe eine Exceltabelle und möchte, das per Makro die Spalte J gezählt wird und dann in Spalte A beginnend mit 1 die Zeilen durchnummeriert werden.

Ich weiss das mann das auch händisch sehr einfach machen kann, aber dieses Makro soll Teil eines größeren Makros werden.

Bisher habe ich nur das zählen per Makro geschrieben:

w = metaplan.Cells(Rows.Count, 10).End(xlUp).Row

Erschwerend kommt hinzu, dass die Nummerierung erst ab Zeile 6 (aber beginnend mit 1) erfolgen soll. Das bedeutet also, das bei 10 Datensätzen die Zeilen 6 bis 10 in der Spalte A mit 1 bis 5 auszufüllen sind.

Vielen Dank schonmal.

seppco

:)

 

Hi,

meinst Du so:

Code:

 

Hallo zusammen,

der flinke Jürgen war schneller, aber da mein Code nun auch fertig ist... *wink.gif*

Code:

Grüße
EarlFred

 

hiho

Aller guten Dinge sind Drei *wink.gif*

Code:

 

Hallo Zusammen,

dann möchte ich meine Variante auch noch los werden *Smilie
Code:

 

Also vielen Dank für die Antworten. Das ging ja super schnell.

Ich habe mich für die Variante von Backowe entschieden, da dies am ehesten meinem Makroschreibstil entspricht.

Danke nochmal und bis zum nächsten Problem.

seppco

 

edit
^^

denkfehler von mir

 

Hallo Zusammen,

habe hier mal den Code von Backowe getestet:

funktioniert in meiner Anwendung (nummeriert fortlaufend und überspringt eingefügte Leerzeilen)

Frage: Wie muss bzw. kann der Code geändert werden, damit nach der Leerzeile wieder mit 1 angefangen wird beim nummerieren?

Gruß Gerhard

 

Mache aus:

n = n + 1
End If

n = n + 1
else
N = 1
End If

 

Hallo WS-53,

danke für deine Hilfe.

Funktioniert bestens *top *top

Gruß Gerhard

 

Hallo WS-53,
Hallo Forum,

brauche die Nummerierung nun auch noch nach einer anderen Sortierung.

Kann man/ kannst du den Code:

so ändern, dass er anhand von 2 Kriterien (Seriennr. u. Lieferdatum) wie im Anhang nummeriert?

Gruß Gerhard

 

Hallo Gerhard,

bei deinem Beispiel gibt es zu einer Serie immer nur ein Lieferdatum. Wenn also eine Serie nicht an verschiedenen Tagen ausgeliefert wird, dann brauchst du auch keine 2 Bedingungen.

Aber bezogen auf deine Beispielmappe geht es mit:

Code:

 

Hallo WS-53,

funktioniert. Vielen Dank. Wieder nen Schritt weiter.

Gruß Gerhard

 

Hallo WS-53,
Hallo liebe Forenmitglieder,

der gepostete Code ist eine gute Vorlage für meine Bedürfnisse.
Was muss ich im Code abändern, um eine fortlaufende Nummerierung (Steps in Spalte "G") mit mit Unterbrechnung von ca. 10 bis 16 Zeilen mit "0" zu haben?
(Super wäre natürlich noch, wenn Nummerierung bei 0 anfängt mit letzten 0 Wert aus Zelle "E" vor den richtigen Daten über 0. Für das Diagram und die löschung der Zeilen wäre das hilfreich)

Zum Hintergrund:
In den Spalten "D" habe ich Messwerte für einen Motor Stromverbrauch.
In den Spalten "E" habe ich Messwerte für die dazugehörige Motorenpositionen.

Die Messwerte der Motorpositionen in Spalte "E" grösser als 0 fangen mal bei Zeile 2 oder Zeile 130 an
(Das kommt immer drauf an wie schnell die Kollegen nach Aufzeichnungsbeginn die Messung starten).
Nun ist es so das in der Spalte "E" (Motorposition) die Werte ansteigen (von 1 bis 600), dann wieder abnehmen (600 bis 0) und ich ca. 16 Zeilen dazwischen mit Nullwerten habe und in der 17 Zeile wieder ein paar Motorpositionen über von 0 - 200 und dann wieder abnehmend habe.

Die Steps in "G" brauche ich später für ein Diagram wo ich mehrere Messungen anzeigen und übereinander legen kann.
Die Messvorrichtung hat leider keine definierten Positionen zum Messen, daher dieser Krückenweg.



Sub StepsVorLöschen()
Dim i As Long
Dim n As Long

n = 1

With ActiveSheet
' Überschriftendefinition je importierte Log Datei
Cells(1, 7) = "Step"
Cells(1, 9) = "P1 Sollwert ø"
Cells(1, 10) = "P2 Istwert ø"
Cells(1, 11) = "P3 Istwert ø"
Cells(1, 12) = "Motorstrom ø"
Cells(1, 13) = "MotorPosition ø"

Cells(1, 15) = "P1 Sollwert Diff"
Cells(1, 16) = "P2 Istwert Diff"
Cells(1, 17) = "P3 Istwert Diff"
Cells(1, 18) = "Motorstrom Diff"
Cells(1, 19) = "MotorPosition Diff"

'Steps der Importierten Messwerte ab 0 um später die nicht benötigten importierten Zeilen zu löschen

For i = 2 To .Cells(Rows.Count, 5).End(xlUp).Row
If .Cells(i, 5) 0 Then
.Cells(i, 7) = n
n = n + 1
End If
Next

.Cells.EntireColumn.AutoFit

End With

End Sub


---

Eine entsprechende Arbeitsmappe stelle ich euch gerne zur Verfügung, falls ihr die benötigt.

Vielen Dank im voraus.

Liege Grüsse

Christian

 

Hallo WS-53,
Hallo liebe Forenmitglieder,

der gepostete Code ist eine gute Vorlage für meine Bedürfnisse.
Was muss ich im Code abändern, um eine fortlaufende Nummerierung (Steps in Spalte "G") mit mit Unterbrechnung von ca. 10 bis 16 Zeilen mit "0" zu haben?
(Super wäre natürlich noch, wenn Nummerierung bei 0 anfängt mit letzten 0 Wert aus Zelle "E" vor den richtigen Daten über 0. Für das Diagram und die löschung der Zeilen wäre das hilfreich)

Zum Hintergrund:
In den Spalten "D" habe ich Messwerte für einen Motor Stromverbrauch.
In den Spalten "E" habe ich Messwerte für die dazugehörige Motorenpositionen.

Die Messwerte der Motorpositionen in Spalte "E" grösser als 0 fangen mal bei Zeile 2 oder Zeile 130 an
(Das kommt immer drauf an wie schnell die Kollegen nach Aufzeichnungsbeginn die Messung starten).
Nun ist es so das in der Spalte "E" (Motorposition) die Werte ansteigen (von 1 bis 600), dann wieder abnehmen (600 bis 0) und ich ca. 16 Zeilen dazwischen mit Nullwerten habe und in der 17 Zeile wieder ein paar Motorpositionen über von 0 - 200 und dann wieder abnehmend habe.

Die Steps in "G" brauche ich später für ein Diagram wo ich mehrere Messungen anzeigen und übereinander legen kann.
Die Messvorrichtung hat leider keine definierten Positionen zum Messen, daher dieser Krückenweg.

Code:

Eine entsprechende Arbeitsmappe stelle ich euch gerne zur Verfügung, falls ihr die benötigt.

Vielen Dank im voraus.

Liege Grüsse

Christian[/quote]