Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

AutoAusfüllen

Forumthread: AutoAusfüllen

AutoAusfüllen
03.09.2003 14:08:26
*toddy*
Hallo zusammen,
habe da ein Problem mit AutoAusfüllen bei Excel :
Ich möchte einen fortlaufenden NummernKreis erstellen indem ich eine "Vorgabe"Nummer in ein Feld eintrage, mit der rechten MausTaste die auszufüllenden Felder aufziehe und "DatenReihe ausfüllen" klicke : dieser MenüPunkt ist jedoch NICHT anwählbar wenn die Nummer länger als 15 Zeichen ist.
Feld ist TEXT, STANDARD geht aber auch nicht, macht eher noch mehr Streß weil fortlaufende Nullen in der Zelle "geklaut" werden.
Danke schon mal und Gruß
toddy
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: AutoAusfüllen
03.09.2003 20:54:10
Reinhard
Hallo toddy,
folgendes Makro geht von der Zahl in der aktiven Zelle aus und geht die Spalte runter und erhöht die Zahl jeweils um eins, Die Länge der Zahl ist egal.
Gruß
Reinhard


Sub AutoAusfüllenUnten()
If Not IsNumeric(ActiveCell.Value) Then
MsgBox "Nicht nur Zahlen"
Exit Sub
End If
Zeile = ActiveCell.Row
Spalte = ActiveCell.Column
Laenge = Len(Cells(Zeile, Spalte).Value)
a = InputBox("Eingabe Anzahl", "Wieviele Zellen sollen ausgefüllt werden?")
If a = "" Or Not IsNumeric(a) Or a < 0 Then
MsgBox "Zahlen bitte"
Exit Sub
End If
For n = 1 To a
pos = Laenge
Kette = Cells(Zeile, Spalte).Value
ue = 0
Mid(Kette, Laenge, 1) = Chr(Asc(Mid(Kette, Laenge, 1)) + 1)
If Asc(Mid(Kette, Laenge, 1)) = 58 Then ue = 1
While ue = 1
Mid(Kette, pos, 1) = "0"
Mid(Kette, pos - 1, 1) = Chr(Asc(Mid(Kette, pos - 1, 1)) + 1)
pos = pos - 1
If Asc(Mid(Kette, pos, 1)) < 58 Then ue = 0
Wend
Zeile = Zeile + 1
Cells(Zeile, Spalte).Value = Kette
Next n
End Sub

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