Autor
|
Thema: Automatische Durchnummerierung (1015 mal gelesen)
|
thewolff Mitglied
Beiträge: 140 Registriert: 03.06.2003
|
erstellt am: 14. Jun. 2004 10:39 <-- editieren / zitieren --> Unities abgeben:
Hallo Leute, für meine Materialbestellung brauche ich noch eine automatische Durchnummerierung der einzelenen Zeilen. Ich starte mein erstes Makro, das sucht nach Lagerware, löscht diese aus der Liste, dann wird nach Normtypen gesucht usw. Als letzes werden noch einige Einträge per Hand vorgenommen. Nun ist die Bestellung fertig, und soll ab Zeile 15 automatisch durchnummeriert werden in den Zeilen wo auch Text steht. Wie kann ich das in einem Makro ausführen? Ich muss suchen ob die Zelle B15 einen Wert enthält um der Zeile A15 die 01 zuzufügen, dann wenn B16=Wert, A16=02 oder x+1. Wenn B39=Nix, dann Ende Nummerierung. Ich habe keine Ahnung wie ich das in einer Makrosprache durchführen kann........
------------------ Gruß Marco Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
startrek Moderator Architekt
Beiträge: 1361 Registriert: 13.02.2003 .
|
erstellt am: 14. Jun. 2004 11:52 <-- editieren / zitieren --> Unities abgeben: Nur für thewolff
Hi Marco, ganz grob, etwa so: Sub x() Dim i&, x& For i = 15 To Cells(Rows.Count, 2).End(xlUp).Row If Cells(i, 2) <> "" Then x = x + 1 Cells(i, 1) = x Else: Exit For End If Next End Sub Gruss Nancy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
thewolff Mitglied
Beiträge: 140 Registriert: 03.06.2003
|
erstellt am: 14. Jun. 2004 12:02 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|