Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
936to940
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
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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



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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige