Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Addieren mittels Makro

Addieren mittels Makro
20.01.2003 08:04:39
Gunter
Hallo Leute,
ich habe lange Zahlenkolonnen, bei denen ich immer 50 dazuzählen muß. Ich habe versucht, mir einen Makro zu basteln, der folgendermaßen aussieht.

' Makro3 Makro
' Makro am 20.01.2003 von Gunter Blumhagen aufgezeichnet
'
' Tastenkombination: Strg+a
'
ActiveCell.FormulaR1C1 = "=1115+50"
Range("B16").Select
End Sub

Das Ergebnis stimmt aber nur in der Ersten Zelle, bei der Zweiten nimmt das Makro den Wert hier 1115 mit. Das darf jedoch nicht sein. Wie kann ich hier Abhilfe schaffen.

Gunter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Addieren mittels Makro
20.01.2003 08:19:14
Joachim K
Wenn der Bereich von A1 bis A10 addiert werden soll.
zB:

Sub ADD()
Dim rng As Range
Application.DisplayAlerts = False
For Each rng In [a1:a10]
rng.Value = rng.Value + 50
Next rng
Application.DisplayAlerts = True
End Sub

Gruß Joachim

Re: Addieren mittels Makro
20.01.2003 08:22:50
Steffen D
Hi,

dazu musst du zuerst die erste zelle markieren und dann dieses makro ausführen.

Gruß
Steffen D

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige