Live-Forum - Die aktuellen Beiträge
Datum
Titel
03.10.2025 22:18:19
03.10.2025 18:57:58
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

SPALTE MIT ZAHLEN FÜLLEN

Forumthread: SPALTE MIT ZAHLEN FÜLLEN

SPALTE MIT ZAHLEN FÜLLEN
04.02.2003 12:55:20
ivan

HALLO IHR LIEBEN!!
wie kann ich spalte D mit einer zahlenfolge 1;2;3;4;unsw.
automatisch füllen,
wenn links C oder rechts E einträge stehen??
DAS PROBLEM:
wenn ein user nur 50 einträge hat dann werden hier bei meinem bestehenden code 
zahlen bis 10000 gefüllt.die ich dann wieder löschen muß!!
 
 Sub zahlen()
 Application.ScreenUpdating = False
    Sheets("Tabelle1").Select
    Range("d1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("D1:D2").Select
    Selection.AutoFill Destination:=Range("D1:D10000"), Type:=xlFillDefault
 Application.ScreenUpdating = True
 End Sub

DANKE 
IVAN 

     Code eingefügt mit Syntaxhighlighter 1.16



Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Darfs auch ne Formel sein?
04.02.2003 13:16:06
Heidrun

Hi Ivan,

mit der Formel in d3: "=wenn(oder(c3<>"";e3<>"");d2+1;"") geht es auch. Die Formel kannst Du einfach nach unten kopieren.

Tschau
Heidrun

Re: SPALTE MIT ZAHLEN FÜLLEN
04.02.2003 13:17:00
Steffen D

Hi,

hiermit müsste es gehen: (getestet!)

Sub zahlen()
Application.ScreenUpdating = False
Sheets("Tabelle1").Activate
lz = Range("D1").CurrentRegion.Rows.Count
Range("D1") = 1
Range("D2").FormulaR1C1 = "2"
Range("D1:D2").AutoFill Destination:=Range("D1:D" & lz), Type:=xlFillDefault
Application.ScreenUpdating = True
End Sub

Gruß
Steffen D

Anzeige
Re: Darfs auch ne Formel sein?
04.02.2003 13:22:31
ivan

HI HEIDRUN
DANKE FÜR DEINE RASCHE ANTWORT.
aber mit einer formel kann ich nix anfangen weil ich anschließend sortieren muß.
ivan

Re: SPALTE MIT ZAHLEN FÜLLEN
04.02.2003 13:24:39
ivan

hi steffen d
super werd ich gleich auprobieren und dir schreiben ob es gefunkt hat!!
DANKE FÜR DEINE MÜHE
IVAN

Re: SPALTE MIT ZAHLEN FÜLLEN
04.02.2003 14:01:00
ivan

hi steffen d
super funkt jetzt kann ich etwas zeit sparen beim ablauf weil ich die zahlen die zuviel waren nicht löschen muß!!

nur ein kleines problemhchen hätt ich noch!!

beispiel:
no women no schrei 1 bob marley
sos                2 abba
                   3
                   4
3 und 4 ist noch zu viel!!!
das resultiert daher das ich beim einlesen vom verzeichniss
nur *.mp3 einlese aber meine xls ist auch in diesem verzeichniss.
und noch ein unterverzeichniss gibt es auch.
diese beiden liest er mit ein aber man kann sie nicht erkennen
auch nicht wenn ich in der tabell3 in die zelle klicke.
was kann ich da noch machen???
DANKE 
IVAN

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Spalte mit fortlaufenden Zahlen füllen in Excel


Schritt-für-Schritt-Anleitung

  1. Öffne dein Excel-Dokument und gehe zu dem Arbeitsblatt, in dem du die Spalte füllen möchtest.
  2. Wähle die Zelle D1 aus und gib die Zahl 1 ein.
  3. Gehe zur Zelle D2 und gib die Zahl 2 ein.
  4. Markiere die Zellen D1 und D2.
  5. Ziehen die Füllmarkierung (das kleine Quadrat in der unteren rechten Ecke der Auswahl) nach unten, um die Zahlen fortlaufend zu füllen. Alternativ kannst du auch die Funktion AutoFill verwenden:
    Sub zahlen()
       Application.ScreenUpdating = False
       Sheets("Tabelle1").Activate
       lz = Range("D1").CurrentRegion.Rows.Count
       Range("D1") = 1
       Range("D2").FormulaR1C1 = "2"
       Range("D1:D2").AutoFill Destination:=Range("D1:D" & lz), Type:=xlFillDefault
       Application.ScreenUpdating = True
    End Sub
  6. Führe den Code aus, um die Excel-Spalte mit fortlaufenden Zahlen zu füllen.

Häufige Fehler und Lösungen

  • Problem: Zahlen werden über 10.000 gefüllt.

    • Lösung: Stelle sicher, dass der Code die aktuelle Anzahl der Einträge berücksichtigt. Verwende CurrentRegion, um die Anzahl der Zeilen zu ermitteln.
  • Problem: Formel funktioniert nicht wie gewünscht.

    • Lösung: Achte darauf, dass keine Zellen leer sind, wenn du die Formel verwendest. Eine Formel wie =WENN(ODER(C3<>"";E3<>"");D2+1;"") kann hier hilfreich sein.

Alternative Methoden

  • Mit Formeln füllen: Anstatt VBA zu verwenden, kannst du auch Formeln nutzen. Gib in D3 die folgende Formel ein:

    =WENN(ODER(C3<>"";E3<>"");D2+1;"")

    Diese Formel kannst du einfach nach unten kopieren, um die Spalte mit Werten zu füllen.

  • Tastenkombination: Wenn du nur einige Zellen füllen möchtest, kannst du auch CTRL + D verwenden, um den Inhalt der obersten Zelle nach unten zu kopieren.


Praktische Beispiele

  1. Beispiel 1: Du hast eine Liste von Produkten in Spalte C und möchtest in Spalte D fortlaufende Nummern für jeden Eintrag erstellen.
  2. Beispiel 2: Wenn du eine Liste von Bestellungen hast und die Spalte E leer ist, kannst du die Formel in D3 verwenden, um die fortlaufenden Werte zu generieren, wenn in E Einträge vorhanden sind.

Tipps für Profis

  • Verwende die Funktion MAX: Um die nächste fortlaufende Zahl zu finden, kannst du die Funktion =MAX(D:D)+1 verwenden, um sicherzustellen, dass du keine doppelten Zahlen erzeugst.
  • Datenüberprüfung: Setze eine Datenüberprüfung ein, um sicherzustellen, dass nur gültige Werte in deine Spalte eingegeben werden, falls du die Zellen manuell bearbeitest.

FAQ: Häufige Fragen

1. Wie kann ich die Spalte nur bis zur letzten Zeile mit Daten füllen?
Verwende den Code mit CurrentRegion, um die Anzahl der benötigten Zeilen dynamisch zu ermitteln.

2. Kann ich auch mit einer Formel fortlaufende Zahlen erzeugen?
Ja, du kannst die Formel =WENN(ODER(C3<>"";E3<>"");D2+1;"") verwenden und nach unten kopieren, um die Spalte mit Werten zu füllen. Achte jedoch darauf, dass du später die Daten sortieren möchtest, da Formeln nicht immer die beste Lösung sind.

3. Was tun, wenn ich leere Zellen in der Liste habe?
Leere Zellen können dazu führen, dass die fortlaufenden Zahlen nicht korrekt erzeugt werden. Stelle sicher, dass alle relevanten Zellen gefüllt sind oder verwende eine Formel, die dies berücksichtigt.

Beliebteste Forumthreads (12 Monate)

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