Hallo zusammen,
ich bitte um Abhilfe bei folgendem Problem.
Ich lasse per Makro 5 Sekunden-Zeitschritte in ein Tabellenblatt schreiben. Dies geschieht bis ein genau berrechneter Zeitpunkt erreicht ist. Danach folgen noch ein explizite Zeitpunkte.
Siehe Quellcode:
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
Mein Problem ist nun, dass ich in den Zellen C2 bis H"X" Formeln eingefügt habe.
Ich möchte nun, dass automatisch die Formeln bis zur letzten Zeile (also bis Zeile "b" nach durchlaufen des Codes) eingefügt werden.
Danach werden, sofern noch "alte" Werte in dem Tabellenblatt stehen, alle übrigen Werte gelöscht.
Do Until Cells(b, 2) = ""
Cells(b, 2) = ""
b = b + 1
Loop
End
End
End Sub
Ich denke, ihr bemerkt, dass ich eher Laie auf dem Gebiet der VBA-Programmierung bin. Kommentare über den Stil des Codes sind also unangebracht. Ich wäre euch sehr verbunden, wenn jemand eine Idee hat.
Vielen Dank im Vorraus.
|