Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.10.2025 18:27:08
Formel anstelle XVWERWEIS für alte Excel-Version
07.10.2025 15:42:10
Identische-Tabellen-identische Sub's funktionieren nicht...
07.10.2025 09:25:19
Bedingte Formatierung mit bezug auf anderes TabellenBlatt
07.10.2025 08:24:37
Formel mit dynamischer Name aus Zelle
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1468to1472
1468to1472
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wie mittels VBA Nummerierung automatisieren?

Forumthread: Wie mittels VBA Nummerierung automatisieren?

Wie mittels VBA Nummerierung automatisieren?
11.01.2016 15:44:36
Kalle
Hallo zusammen,
ich mit folgendem Problem beschäftigt und komme hier nicht mehr wirklich weiter:
Ich suche nach einem VBA-Befehl, welcher auf einer bestehenden Nummerierung basierend zeilenweise rückwärts "hochzählt".
Beispiel:
Spalte 1 Spalte 2
? Hans
? Tim
? Gustav
3 Hans
2 Olaf
1 Peter
Basierend auf dieser Aufstellung erstellt der zu programmierende VBA-Befehl automatisch die folgende Nummerierung (6,5,4 von oben nach unten), wobei die auszufüllenden Zeilen in Spalte 1 variieren können...
Ich freue mich über Vorschläge, wie man das Problem angehen könnte...
Viele Grüße
Kalle

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wie mittels VBA Nummerierung automatisieren?
11.01.2016 16:14:40
Beni
Hallo Kalla
Dim i As Interger
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 ' letzte Zeile bis 1
Cells(i, 2) = i
Next i
Gruss Beni

AW: Wie mittels VBA Nummerierung automatisieren?
11.01.2016 16:21:05
ChrisL
Hi Kalle
Eher so... ;)
Sub t()
Dim i As Integer, y As Integer
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 ' letzte Zeile bis 1
y = y + 1
Cells(i, 1) = y
Next i
End Sub
cu
Chris

Anzeige
AW: Wie mittels VBA Nummerierung automatisieren?
11.01.2016 16:22:44
Sebastian
Bin kein Profi, so sollte es auch gehen:
Option Explicit 
Sub Test()
Dim x As Integer, y As Integer
x = 3 'Spalte in der die ersten Werte stehen
y = Application.WorksheetFunction.CountA(Range("B" & x & ":B10000")) 'Bereich anpassen
Do Until y = 0
If Range("B" & x)  "" Then 'Spalte B anpassen
Range("A" & x) = y  'Spalte A anpassen
y = y - 1
End If
x = x + 1
Loop
End Sub

Anzeige
;
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige