Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zahlenreihe erstellen

Zahlenreihe erstellen
Artur
Hallo Excel-Profis,
bitte um Hilfe - ich brauche eine kleine Makro-Routine für ein größeres Programm.
(Bitte komplett auch mit DIM etc..., da ich nicht der Profi bin )
in einem Tabellenblatt sind 10 Optionsfelder (diese stehen für die Zahlen 1-10)
durch beliebiges Klicken dieser Optionsfelder soll nun eine Zahlenreihe ab
der Zelle (A10) (für gerade Zahlen) bzw ab der Zelle (B10) (für ungerade Zahlen)
beliebig lange nach unten gebildet werden : (mit leer lassen)
Beispiel:
A(10) - B(10)
2 - leer lassen
4 - leer lassen
leer lassen - 7
8 - leer lassen
leer lassen - 1
leer lassen - 3
2 - leer lassen
leer lassen - 1
leer lassen - 9
usw.
img510.imageshack.us/i/optfelder.jpg
Kriegt das einer Hin ? Vielen Dank schon mal und Grüße
Artur
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Zahlenreihe erstellen mit SelectionChange
24.01.2011 17:48:29
Erich
Hi,
probier mal (im Code der Tabelle, in der es laufen soll):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lngL As Long
If Target.Count = 1 Then
If Target.Column 
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
danke
25.01.2011 16:10:38
Artur
Genau sowas in der Art habe ich gesucht, danke Erich.....aber noch 2 Fragen:
was muss noch rein, wenn das erst ab A10 bzw B10 runter laufen soll ?
und zweitens: muss ich unbedingt ein DIM reinmachen ? Ich hab mal ohne DIM
probiert und läuft trotzdem....*grins*
Anzeige
AW: danke
25.01.2011 18:50:41
Erich
Hi Artur (dies ist eine Anrede),
da bin ich wohl dem Irrtum erlegen, die von dir hochgeladene Grafik
http://img510.imageshack.us/i/optfelder.jpg/ (funktionierender Link) hätte eine Bedeutung.
Dort stehen in A9:B9 die Worte "Gerade" und "Ungerade", was dazu führt,
dass die Zahlen wie gewünscht darunter, also ab Zeile 10, eingetragen werden.
In deiner Tabelle ist der Bereich A9:B9 jetzt leer?
"muss ich unbedingt ein DIM reinmachen ?" Nein, musst du nicht.
Du musst dir auch das hier auch nicht durchlesen/ansehen:
Zu Option Explicit schau auch mal z. B. hier: Hilfe zur Selbsthilfe
und hier:
http://www.online-excel.de/excel/singsel_vba.php?f=4
http://www.vbarchiv.net/faq/allg_optionexplicit.php
http://www.vb-seminar.de/vb_27.htm
Wenn du in VBA im Menü Extras - Optionen, Karte "Editor"
die Option "Variablendeklaration erforderlich" aktivierst,
schreibt der VBA-Editor automatisch "Option Explicit" als erste Zeile in jedes neue Modul.
Und hier noch ein minimal ergänzter Code, bei dem immer unterhalb der Zeile 9
begonnen wird:

Option Explicit         ' Immer zu empfehlen!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lngL As Long
If Target.Count = 1 Then
If Target.Column 
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort - (Dies ist ein Gruß.)
Anzeige
AW: danke
26.01.2011 11:38:27
Artur
sehr gut, nochmals Danke und Grüße
Artur
;
Anzeige
Anzeige

Infobox / Tutorial

Zahlenreihe in Excel erstellen


Schritt-für-Schritt-Anleitung

Um eine Zahlenreihe in Excel zu erstellen, kannst du eine einfache VBA-Makro-Routine verwenden, die auf die Auswahl von Optionsfeldern reagiert. Hier sind die Schritte, um dies zu erreichen:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Doppelklicke auf das entsprechende Tabellenblatt in der Projektansicht.
  3. Füge den folgenden Code ein:
Option Explicit ' Immer zu empfehlen!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim lngL As Long
    If Target.Count = 1 Then
        If Target.Column = 1 Then ' Für gerade Zahlen
            lngL = Cells(Rows.Count, 1).End(xlUp).Row + 1
            If lngL >= 10 Then
                Cells(lngL, 1).Value = lngL * 2 ' Gerade Zahlen
            End If
        ElseIf Target.Column = 2 Then ' Für ungerade Zahlen
            lngL = Cells(Rows.Count, 2).End(xlUp).Row + 1
            If lngL >= 10 Then
                Cells(lngL, 2).Value = lngL * 2 - 1 ' Ungerade Zahlen
            End If
        End If
    End If
End Sub
  1. Schließe den VBA-Editor und teste dein Makro, indem du die Optionsfelder in deiner Tabelle auswählst.

Häufige Fehler und Lösungen

  • Fehler: Zahlen erscheinen nicht in der richtigen Zeile.

    • Lösung: Stelle sicher, dass die Variablen lngL korrekt initialisiert sind und dass du die richtigen Spalten für gerade und ungerade Zahlen verwendest.
  • Fehler: Das Makro funktioniert nicht.

    • Lösung: Überprüfe, ob die Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Vertrauensstelleneinstellungen > Einstellungen für Makros und aktiviere die Option.

Alternative Methoden

Wenn du keine VBA-Makros verwenden möchtest, kannst du auch die AutoFill-Funktion in Excel nutzen:

  1. Gib die erste Zahl der Reihe in die Zelle ein (z. B. 2 für gerade Zahlen).
  2. Ziehe das untere rechte Eck der Zelle nach unten, um die Zahlenreihe fortzusetzen.
  3. Halte dabei die STRG-Taste gedrückt, um die Reihe nur mit geraden oder ungeraden Zahlen zu füllen.

Praktische Beispiele

Hier sind einige praktische Beispiele zur Nutzung der Zahlenreihe in Excel:

  • Wenn du eine Zahlenliste erstellen möchtest, die nur gerade Zahlen enthält, kannst du mit der obenstehenden VBA-Routine von 2 bis 100 gehen.
  • Um eine Zahlenreihe fortzusetzen in einer anderen Spalte, kannst du denselben Code verwenden, indem du die entsprechenden Spaltennummern änderst.

Tipps für Profis

  • Nutze den Option Explicit Befehl im VBA-Code, um sicherzustellen, dass alle Variablen deklariert sind. Dies hilft, Fehler zu vermeiden.
  • Experimentiere mit verschiedenen Startwerten und Schritten in deinem VBA-Code, um flexiblere Zahlenreihen zu generieren.
  • Du kannst auch ein Formular erstellen, um die Eingabe für die Zahlenreihe zu erleichtern.

FAQ: Häufige Fragen

1. Muss ich unbedingt ein DIM reinmachen?
Nein, du musst nicht zwingend eine DIM-Deklaration verwenden, jedoch ist es eine gute Praxis, um die Lesbarkeit des Codes zu erhöhen und Fehler zu vermeiden.

2. Wie kann ich die Zahlenreihe in einer anderen Excel-Version anwenden?
Die oben genannten Schritte und der VBA-Code sind in den meisten Excel-Versionen (ab 2007) anwendbar. Überprüfe, ob die Makrofunktion aktiviert ist, um das Makro auszuführen.

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