Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
19.04.2024 11:45:34
Anzeige
Archiv - Navigation
220to224
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
220to224
220to224
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formeln auslesen

Formeln auslesen
19.02.2003 11:39:46
CelinaD
Hi Forumsgemeinde, ich habe folgendes Problem:

ich habe ein Tabellenblatt voll mit Formeln in den Zellen

jetzt möchte ich diese Formeln "auslesen". Händisch geht das ja ohne Probleme, ich starte eine Makroaufzeichnung, gehe zb. in die Zelle A1, klicke mit der Maus kurz in die Eingabeleiste, drücke Enter und der Makrorecorder übernimmt mir die Formel in die gerade aufgezeichnete Sub.

das ganze sieht dann zb so aus:

Sub Makro1()
Range("B7").Select
activecell.FormulaR1C1 = "=SUM(R[-6]C:R[-6]C[5])"
End Sub

lieber wäre mir natürlich:
'
Range("b7").FormulaR1C1 = "=SUM(R[-6]C:R[-1]C)"

nun würde ich das ganze aber gerne automatisieren, damit ich sämtliche Formel eines tabellenblattes in eine sub hineinbekomme ums sie zb. bei fehlern einfach wieder "zurückzuspielen".

da sich ca 600 formeln in diesem tabellenblatt befinden ist das händische auslesen nicht das gelbe vom ei

kann mir jemand helfen??

danke erstmals!

c

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Formeln auslesen
19.02.2003 12:09:12
Steffen D

Hi,

ich habe mich gerade damit mal beschäftigt!
dieses Makro scannt alle Tabellen nach formeln und speichert diese schon als Code in die Datei "C:\Formeln.txt" ab

Probier das aus.

Gruß
Steffen D

Sub formeln_speichern()
Dim wks As Worksheet
Dim Zelle As Range, arFormeln() As String
ReDim arFormeln(0) As String
For Each wks In Worksheets
For Each Zelle In wks.UsedRange
If Zelle.HasFormula Then
ReDim Preserve arFormeln(UBound(arFormeln) + 1) As String
arFormeln(UBound(arFormeln)) = "Worksheets(""" & wks.Name & """).Range(""" & _
Zelle.Address(False, False) & """).FormulaLocal = """ & Zelle.FormulaLocal & """"
End If
Next Zelle
Next wks
'in textdatei schreiben
Open "c:\Formeln.txt" For Output As #1
For i = 1 To UBound(arFormeln)
Print #1, arFormeln(i)
Next i
Close #1
End Sub

Anzeige
Re: Formeln auslesen
19.02.2003 12:17:15
Steffan

Hallo Celina,

wie wärs mit einem Backup-Blatt für die Formeln?

Steffan.



Re: Formeln auslesen
19.02.2003 15:09:47
DANKE - EINFACH GENIAL O.T.

.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige