|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.12.2010 14:58:36 |
Jonas |
|
|
|
16.12.2010 15:19:04 |
Severus |
|
|
 Aw:Aw:Formeln automatisch weiterführen |
16.12.2010 15:53:49 |
Jonas |
|
|
|
16.12.2010 16:37:18 |
Severus |
|
|
|
16.12.2010 17:45:47 |
Jonas |
|
|
Von:
Jonas |
Datum:
16.12.2010 15:53:49 |
Views:
865 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Formeln automatisch weiterführen |
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:
Private Sub CommandButton1_Click()
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
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 |
|
|
Aw:Aw:Formeln automatisch weiterführen |
16.12.2010 15:53:49 |
Jonas |
|
|
|
16.12.2010 16:37:18 |
Severus |
|
|
|
16.12.2010 17:45:47 |
Jonas |
|
|