Thema Datum  Von Nutzer Rating
Antwort
01.01.2011 19:05:37 David
NotSolved
Blau Aw:Problem mit Makro
 03.01.2011 21:04:10 Holger
NotSolved
03.01.2011 21:53:00 David
NotSolved
04.01.2011 09:27:02 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
03.01.2011 21:04:10		 Views:
799		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Problem mit Makro
David schrieb am 01.01.2011 19:05:37:

Hallo,
zunächst möchte ich euch allen ein frohes neues Jahr wünschen.
Nun zu meinem Problem.
Ich muss fürs Studium ein Makro programmieren.
Mit dem Makro soll eine beliebig lange Tabelle mit der Formel S=S1* (2*n+1)
berechnet werden.
Die Variable n bezieht sich auf einen Wert in einer anderen Tabelle.
Die Spalte mit den Werten für S1 soll beliebig lang sein.
So sieht meim Makro zurzeit aus:

Sub Sberechnen()
n = Cells(Tabelle1!C6) ' n stammt aus Tabelle 1'
x = Cells(ActiveCell.Row, ActiveCell.Column - 2) 'x entspricht S1'
Do Until Cells(ActiveCell.Row, ActiveCell.Column - 2) = "" ' für beliebig lange Spalte x'
S = x * (2 * n + 1)
Loop
End Sub

Ich hoffe ihr könnt mir helfen, denn ich finde den oder die Fehler nicht.
Mfg David


Hallo David,
ich würde wohl kein Problem mit dem Makro habe, wenn ich nur verstehen, was du eigentlich willst. Was ist den dieses S1? Ist es eine bestehende Spalte oder soll irgendetwas rekursiv berechnet werden? Was soll mit dem errechneten S geschehen? Ich schlage vor, du spezifizierst deine Vorstellungen etwas konkreter. Wenn du das nicht kannst, füge das Anfangsstück des gewünschten Ergebnisses bei.
Deine Do-Loop-Schleife kann nicht funktionieren, weil sie auf der stelle tritt. Studiere nachfolgedes Beispiel. Vielleicht kommst du dann ja sekebst zurecht.
r=ActiveCell.Row
c=ActiveCell.Column - 2
Do Until Cells(r, c) = ""
cells(ja, wohin damit?)=Cells(r, c) * (2 * n + 1)
r=r+1
Loop

Wahrscheinlich geht alles auch einfacher, aber ich wollte mich nicht zu sehr von deinem Ansatz entfernen, weil ich ja nicht weiß, was das Ganze soll.
Gruß
Holger



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
01.01.2011 19:05:37 David
NotSolved
Blau Aw:Problem mit Makro
 03.01.2011 21:04:10 Holger
NotSolved
03.01.2011 21:53:00 David
NotSolved
04.01.2011 09:27:02 Holger
NotSolved