Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.12.2010 14:58:36 |
Jonas |
|
|
|
16.12.2010 15:19:04 |
Severus |
|
|
|
16.12.2010 15:53:49 |
Jonas |
|
|
Aw:Formeln automatisch weiterführen |
16.12.2010 16:37:18 |
Severus |
|
|
|
16.12.2010 17:45:47 |
Jonas |
|
|
Von:
Severus |
Datum:
16.12.2010 16:37:18 |
Views:
875 |
Rating:
|
Antwort:
|
Thema:
Aw:Formeln automatisch weiterführen |
Jonas schrieb am 16.12.2010 15:53:49:
Severus schrieb am 16.12.2010 15:19:04:
Tut mir echt leid, aber ich habe keine Ahnung was Du willst.
Du fängst mit einer Do-Loop Schleife an die läuft, bis teins < a ist. Aber in der ganzen Schleife kommt kein teins vor.
dann weist Du Zellen die Werte teins, tzwei und tdrei zu, hast aber nirgends diesen Variablen Werte zugewiesen. Ich habe daher keine Ahnung wie ich Dir helfen soll.
Severus
Hallo Hr. Snape,
es war nur ein Auszug aus dem Quellcode. Ich dachte nciht, dass er von Nöten wäre.
Aber hier der gesamte:
Wenn ich Dich richtig verstanden habe geht es nur um das Fortschreiben der Formeln. Das sollte mit der Ergänzung zwischen den Rauten erledigt sein.
Private Sub CommandButton1_Click()
Dim lngZeile As Long
Dim lngSpalte As Long
If TextBox1.Text = "" Then
MsgBox (" Bitte Grundfläche des Raumes angeben!")
Else
grundf = TextBox1.Text
Worksheets("Makro_Werte").Activate
Cells(16, 1) = grundf
End If
Worksheets("makro_werte").Activate
teins = Cells(11, 5)
tzwei = Cells(15, 5)
tdrei = Cells(17, 5)
Worksheets("output").Activate
a = 5
b = 2
Do Until teins < a
Cells(b, 2) = a
a = a + 5
b = b + 1
Loop
Cells(b, 2) = teins
c = b + 1
Cells(b + 1, 2) = tzwei
Cells(c, 3) = Cells(c - 1, 3)
Cells(b + 2, 2) = tdrei
Cells(b + 2, 3) = 0
b = b + 3
#####################################################################
For lngZeile = 3 To b
For lngSpalte = 3 To 8
Cells(lngZeile, lngSpalte).FormulaR1C1 = Cells(lngZeile - 1, lngSpalte).FormulaR1C1
Next lngSpalte
Next lngZeile
#####################################################################
Do Until Cells(b, 2) = ""
Cells(b, 2) = ""
b = b + 1
Loop
End
End
End Sub
Ich hoffe, du kannst mir vlt. nun weiterhelfen.
Danke
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
16.12.2010 14:58:36 |
Jonas |
|
|
|
16.12.2010 15:19:04 |
Severus |
|
|
|
16.12.2010 15:53:49 |
Jonas |
|
|
Aw:Formeln automatisch weiterführen |
16.12.2010 16:37:18 |
Severus |
|
|
|
16.12.2010 17:45:47 |
Jonas |
|
|