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
Anzeige