Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

MONATSENDE

Forumthread: MONATSENDE

MONATSENDE
05.01.2008 13:12:25
john
Hallo Leute
Ich habe in diesem Forum ein Makro von Hajo_Zi gefunden.

Sub UpdateAnalysis()
Dim rng As Range
For Each rng In ActiveSheet.UsedRange
If rng.HasFormula Then
rng.FormulaLocal = rng.FormulaLocal
End If
Next rng
End Sub


Mit diesem Makro kann ich die Formel MONATSENDE wieder zum laufen bringen in der Excelversion 2007.
Leider löscht dieses Makro bei einer Arrayformel die geschwungenen Klammern.
Ein zweites Problem ist dass ich in mehreren Registern diese Formel(MONATSENDE) wieder zum laufen bringen muss. Die Formel befindet sich immer in der gleichen Spalte. Es wäre gut ein Makros zu haben, dass immer den gleichen Bereich z.Bspl. BL21:BM80 ansprechen kann.
Vielen Dank im Voraus.
Gruss Stefan

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MONATSENDE
05.01.2008 13:23:27
Daniel
Hi
probier mal das hier aus:
in einer 2. Schleife wird jedes Sheet deines workbooks durchlaufen und die Änderung im von dir angegebenen Zellbereich durchgeführt.
dabei wird berücksichtigt, ob Array-Formeln oder Normale Formeln vorhanden sind.

Sub UpdateAnalysis()
Dim rng As Range
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
For Each rng In sh.Range("BL21:BM80")
If rng.HasFormula Then
If rng.HasArray Then
rng.FormulaArray = rng.FormulaArray
Else
rng.FormulaLocal = rng.FormulaLocal
End If
End If
Next rng
Next sh
End Sub


Gruß, Daniel

Anzeige
AW: MONATSENDE
05.01.2008 13:38:00
john
Ich habs gleich ausprobiert. Geht super!
Herzlichen Dank
Gruss Stefan

AW: MONATSENDE
05.01.2008 13:24:00
Hajo_Zi
Hallo Stefan,
es war kein makro von mir, ich habe es nur gepostet. Der Code wurde von Thomas Ramel erstellt. Den Fehler habe ich jetzt korrigiert.

Sub UpdateAnalysis1()
With ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
If .HasArray Then
.FormulaArray = .FormulaArray
Else
.FormulaLocal = .FormulaLocal
End If
End With
End Sub



Anzeige
AW: MONATSENDE
05.01.2008 13:49:00
john
Lieber Hajo
Entschuldige, dass ich Dich als Autor genommen habe. Aber drotzdem herzlichen Dank für die Änderung.
Gruss Stefan
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige