Excel makro

Computer: Software & Programmierung Office Software
1

Guten Tag,

ich hab da ein problem und hoffe mir kann einer dabei helfen.
und zwar, ich möchte in mehreren excel tabellen mehrere formel ausrechnen lassen.
man könnte jetzt die formel in ein feld reinschreiben und dann runterziehen, aber x-tausend zeilen und mehreren tabellen wär das etwas unständlich und deshalb möchte ich mir ein makro machen.

ich hab mal mit der funktion makro aufzeichen es versucht für eine formel zu lösen.
sieht dann so aus

Range(„F8“).Select
ActiveCell.FormulaR1C1 = „=SECOND(R[1]C[-4]-RC[-4])“
Range(„F8“).Select
Selection.AutoFill Destination:=Range(„F8:f1800“), Type:=xlFillDefault
Range(„F8:f1800“).Select

nur das problem ist nicht jede tabelle hört bei f1800 auf manche sind länger oder auch kürzer. excel soll das soweit machen bis in der spalte A keine werte mehr stehen.

und da ist mein problem, wie geht das?
ich hoffe mein problem ist etwas klar geworden, wenn nicht einfach nachfragen

danke schonmal im vorraus

2

man könnte jetzt die formel in ein feld reinschreiben und dann
runterziehen, aber x-tausend zeilen und mehreren tabellen wär
das etwas unständlich und deshalb möchte ich mir ein makro
machen.
nur das problem ist nicht jede tabelle hört bei f1800 auf
manche sind länger oder auch kürzer. excel soll das soweit
machen bis in der spalte A keine werte mehr stehen.

Hallo Tobi,

Sub tt()
Dim Zei As Long
Zei = Range(„A“ & Rows.Count).End(xlUp).Row
Range(„F8:F“ & Zei).FormulaR1C1 = „=SECOND(R[1]C[-4]-RC[-4])“
End Sub

Gruß
Reinhard

3

danke das funktioniert schonmal…könnte man das auch so machen, dass das makro eine zeile früher aufhört?

4

danke das funktioniert schonmal…könnte man das auch so
machen, dass das makro eine zeile früher aufhört?

Hallo Tobi,

kein Problem,

Sub tt()
Dim Zei As Long
Zei = Range(„A“ & Rows.Count).End(xlUp).Row-1
Range(„F8:F“ & Zei).FormulaR1C1 = „=SECOND(R[1]C[-4]-RC[-4])“
End Sub

Gruß
Reinhard

5

ok vielen dank

6

hätte da jetzt ein anderes problem. und zwar hab ich per makro ein diagramm erstellt. das eine achse muss aber später noch verändert werden. hatte mich auch schon versucht, aber nur mit kleinem erfolg

ActiveSheet.ChartObjects(„Diagramm 11“).Activate
ActiveChart.SeriesCollection(1).ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).MinimumScale = -500
ActiveChart.Axes(xlCategory).MinimumScale = -50
ActiveChart.Axes(xlCategory).MaximumScale = 2500
ActiveChart.Axes(xlCategory).MaximumScale = 1000
ActiveChart.Axes(xlCategory).MinorUnit = 100
ActiveChart.Axes(xlCategory).MinorUnit = 10

nur leider ist die diagramm nummer nicht immer 11, in jeder excel tabelle ist sie anders.
frage, wie kann man das lösen?

7

nur leider ist die diagramm nummer nicht immer 11, in jeder
excel tabelle ist sie anders.
frage, wie kann man das lösen?

Hallo Tobi,

jedes evtl. Makro muß ja wissen welches Diagramm du meinst.
Ist es jeweils nur eines im Blatt ist das einfach.
Wenn es mehrere Diagramme mußt du irgendwie dem makro sagen an was es das Diagramm kann was du meinst, am Titel oder an sonstwas.

Und weil das ja eine Anfrage ist die mit der alten nix zu tun hat ist es besser du stellst sie hier als neue Anfrage ein.
Ergänzt mit den Informationen, die ich oben implizit erfrage.

Gruß
Reinhard