Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1196to1200
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1196to1200
1196to1200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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*
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige