Alle DBRW-Formeln mittels Makro in Werte umwandeln

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo zusammen..
sorry... Also soweit natürlich nicht. Die DBRW-Formeln ist eben aus TM1, oder jetzt Cognos eine Datenbanformeln mit der wir Werte aus der Cognos-Datenbank ziehen. Und wenn ich dann eben einen Report wegschicken möchte hab ich bisher immer alles kopiert und dann in Werte umgewandelt, so dass der nächste der den Report öffnet keine Fehlermeldung bekommt da ja nichts aktualisiert werden kann weil er keine Verbindung zu Cognos hat.
Aber das komplette kopieren und in Werte ersetzen ist eben nicht so wirklich sinnvoll, da auch Verknüpfungen etc. ersetzt werden.
Kann man das irgendwie mittels VBA umsetzen dass das ganze File nach dieser Formel durchsucht wird und die dann durch Werte ersetzt?
Nochmals sorry für die Verwirrung...
DANKE und Gruss
Nik

Hallo Nik,
habe jetzt doch mal gegoogelt und eine informative Seite gefunden : Bei DBRW handelt es sich offenbar um ein Excel-AddIn von IBM !?!?
http://publib.boulder.ibm.com/infocenter/ctm1/v9r4m1/index.jsp?topic=/com.ibm.swg.im.cognos.tm1_ref.9.4.1.doc/tm1_ref_id12154wrk_dbrw.html
Hier ein Codeansatz, der alle Zellen, deren enthaltene Funktion mit =DBRW( beginnt, durch ihre Werte ersetzt :

Sub DBRW_durch_Werte_ersetzen()
Dim rngZ As Range, ws As Worksheet, bolSchutz As Boolean
For Each ws In Worksheets
ws.Activate
bolSchutz = False
Set rngZ = Cells.Find("=DBRW(", LookIn:=xlFormulas, lookat:=xlPart)
While Not rngZ Is Nothing And Not bolSchutz
If ws.ProtectContents = False Then
rngZ.Value = rngZ.Value
Set rngZ = Cells.FindNext(rngZ)
Else
bolSchutz = True
MsgBox "Im folgenden Blatt konnten keine Ersetzungen vorgenommen werden, da es  _
geschützt ist :" & _
vbLf & vbLf & ws.Name, vbCritical, "Bitte Blatschutz entfernen !"
End If
Wend
Next
End Sub

Gruß, NoNet

Hast Du Interesse, andere Excel-Begeisterte kennenzulernen ? - Dann komme zum
Exceltreffen 11.-13.10.2013 in Duisburg
http://www.exceltreffen.de/index.php?page=230
Es sind noch genügend Plätze für Interessenten frei - schau doch mal rein !

Const adRelBer$ = "…" Dim ber As Range, relBer As Range Set relBer = ActiveSheet.Range(adRelBer) For Each ber in relBer If ber.HasFormula Then If Left(ber.Formula, 6) = "=DBRW(" Then ber.FormulaLocal = ber.Value End If Next ber

Sub DBWR_raus() Dim Zelle As Range For Each Zelle In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23) ' alle Zellen mit _ Formeln If Left(Zelle.FormulaLocal, 6) = "=DBWR(" Then Zelle.Value = Zelle.Value End If Next End Sub

Sub DBWR_raus() Dim Zelle As Range 'Nur alle Zellen mit Formeln For Each Zelle In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23) If Left(Zelle.FormulaLocal, 6) = "=DBRW(" Then Zelle.Value = Zelle.Value Next End Sub

Sub DBRW_raus() Dim Zelle As Range 'Nur alle Zellen mit Formeln For Each Zelle In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23) If InStr(Zelle.FormulaLocal, "DBRW(") > 0 Then Zelle.Value = Zelle.Value Next End Sub

Sub DBRW () Dim Zelle As Range 'Nur alle Zellen mit Formeln For Each Zelle In ActiveWorkbook.Cells.SpecialCells(xlCellTypeFormulas, 23) If InStr(Zelle.FormulaLocal, "DBRW(") > 0 Then Zelle.Value = Zelle.Value Next End Sub

Beliebteste Forumthreads (12 Monate)

Alle DBRW-Formeln mittels Makro in Werte umwandeln

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Alle DBRW-Formeln mittels Makro in Werte umwandeln

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread