Nummerierung aller befüllten Zeilen

Sub nummerieren() Dim i As Long Dim Zeilen As Integer Range("E17").Select Zeilen = Selection.CurrentRegion.Rows.Count For i = 17 To Zeilen If Cells(i, 1).Interior.ColorIndex = xlNone Then Cells(i, 1).Value = Application.WorksheetFunction.Max(Range("A:A")) + 1 End If Next i End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub nummerieren() Dim i As Long, Nr As Long Dim Zeilen As Long Zeilen = Range("E17").CurrentRegion.Rows.Count For i = 17 To 17 + Zeilen - 2 If Cells(i, 1).Interior.ColorIndex = xlNone Then Nr = Nr + 1 Cells(i, 1).Value = Nr End If Next i End Sub

Hi,
danke für die Info. Laut geany.org eine "lightweight-IDE" bzw. ein "Editor" - aha. Ich verwende gerne den "Synwrite": der ist (auch für gewerbliche Zwecke) kostenlos (im Gegensatz zu Phase5): der hat Syntax-hiliting für alle möglichen Sprachen, eignet sich aber auch gut, um mal eine .csv genau anzuschauen.
FP bringt keine Bibliothek für den Zugriff auf die Zwischenablage mit; Lazarus hat eine...
Der Beitrag wurde nicht mehr angezeigt. Zum Glück lade ich mir turnusmäßig meine "100 Beiträge" runter und stecke sie je in ein Tabellenblatt.
Heißt: ich hab's gerade nachgelesen.
Interessante Geschichte. Bei so was würde ich auch gern mal mitarbeiten...
Die Dateinamen werden gehasht, damit sie einfacher zu vergleichen sind?
Ich denke da immer ein Scripting.dictionary: das ist anscheinend nicht direkt begrenzt (3 Mio. sollten schon gehen), und der Vorzug ist halt der "indizierte" Zugriff, d.h. "schreibe einen Datensatz" findet automatisch heraus, ob er schon da ist und überschreibt ihn: dabei kann man ja hochzählen oder Strings anhängen (Pfad + Trennzeichen) und das hinterher auswerten.
Na denn, viel Spaß,
Michael

Hallo Michael,
nein, die Dateinamen werden nicht gehasht, sondern die Bilder selbst. Diese haben alle unterschiedliche Namen und das sind ja selbst nur Strings, die sich einfach vergleichen ließen. Ich habe das etwas missverständlich ausgedrückt im anderen Thread.
Mit dem Dictionary habe ich ehrlich gesagt noch nie gearbeitet. Aber da es eine Technologie ist, die im RAM gehalten wird, nützt mir das in diesem Fall auch eher wenig nehme ich an. Für meine Zwecke ist eine richtige Datenbank besser geeignet. Zumal ich nach der Auswertung, welches Bild an mehr als einem Account hängt, noch manuell sichten muss, welche Bilder der Ergebnismenge und damit, welche Accounts, denn wirklich relevant sind.
Dazu verwende ich die Berichtsfunktion der DB. Ich lasse mir die Ergebnismenge als HTML Datei mit allen zugehörigen Bildern und relevanten Textfeldern generieren. Die öffne ich dann im Browser, scrolle munter drauf los und bin gespannt, ob der ganze Aufwand sich denn auch in entsprechenden Funden wiederspiegelt ;-)
Übergehen muss ich dabei alle Bilder, die offensichtlich von unserem Auftraggeber geklaut sind, weil die von vielen Leuten einfach verwendet werden, die absolut gar nix mit einander zu tun haben. Ausserdem alle Bilder, die offensichtlich gebrauchte Gegenstände zeigen. Das ist eine ziemliche Sisyphus Arbeit, bei der ich keinen Ansatz sehe, wie man das automatisieren kann. Da willst Du dann unter Garantie nicht mehr gerne mitarbeiten ;-)
Gruß,
Zwenn

Sub nummerieren() Dim i As Long Dim Zeilen As Long Dim Zaehler As Long Zaehler = 1 Zeilen = Cells(Rows.Count, 5).End(xlUp).Row For i = 17 To Zeilen If Cells(i, 1).Interior.ColorIndex = xlNone Then Cells(i, 1).Value = Zaehler Zaehler = Zaehler + 1 End If Next i End Sub

Beliebteste Forumthreads (12 Monate)

Nummerierung aller befüllten Zeilen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread