VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: tobias	Datum: 21.07.2009 11:10:29	Views: 1439	Rating:	Antwort:
Thema: Aw:befehl zahl aufzählen
Hallo marco, bin bei VBA-Profi, daher wird meine Lösung nicht perfekt sein. Aber funktionieren tut es :-) Lösung: Sub Aufzählung() Dim Zahl Dim Zähler Zahl = InputBox("Wert eingeben:", "Zahleneingabe") If Zahl = "" Then Exit Sub Zähler = 1 Range("A1").Select Do While Zahl > 0 ActiveCell.Value = Zähler Zähler = Zähler + 1 Zahl = Zahl - 1 If Zahl = 0 Then End ActiveCell.Offset(0, 1).Value = Zähler Zähler = Zähler + 1 Zahl = Zahl - 1 If Zahl = 0 Then End ActiveCell.Offset(0, 2).Value = Zähler Zähler = Zähler + 1 Zahl = Zahl - 1 If Zahl = 0 Then End Selection.Offset(1, 0).Select Loop End Sub Gruß Tobias marco schrieb am 20.07.2009 16:36:27: hallo, ich habe folgendes problem: ich möchte eine zahl(die in einer userform ausgerechnet wird), z.b 30, in einer mappe in den ersten 3 spalten aufzählend (also 1,2,3,4,....,29,30) ausgegeben haben. die zahlen sollen so aufgezählt werden: 1 2 3 4 5 6 7 8 9 ......... kann mir da jemand helfen?? danke

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen