Thema Datum  Von Nutzer Rating
Antwort
26.03.2012 18:03:28 Gast19678
NotSolved
Blau VBA -
26.03.2012 18:40:44 Till
Solved
26.03.2012 18:58:47 Gast75670
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
26.03.2012 18:40:44		 Views:
1017		 Rating:
     
Antwort:
 Nein
Thema:
VBA -

Hi,

Private Sub test()
'&=as long
'#=as double
Dim arr, X#, I&, E&
Dim OG#, UG#, SW#

    UG = InputBox("Untergrenze") 'Untergrenze
    OG = InputBox("Obergrenze") 'Obergrenze
    SW = InputBox("Schrittweite") 'Schrittweite
    E = (OG - UG) / SW
    ReDim arr(E, 1)
    
    For X = UG To OG Step SW
        
        arr(I, 0) = X
        arr(I, 1) = X ^ 2
        I = I + 1
        
    Next X
    Range(Cells(1, 1), Cells(1 + E, 2)).Value = arr
    
End Sub

Warum eigentlich so lange Variablennamen?

 

Gruß

Till

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

Thema Datum  Von Nutzer Rating
Antwort
26.03.2012 18:03:28 Gast19678
NotSolved
Blau VBA -
26.03.2012 18:40:44 Till
Solved
26.03.2012 18:58:47 Gast75670
NotSolved