Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
148to152
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
148to152
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Einlesen von Formeln

Einlesen von Formeln
16.08.2002 13:32:31
Hannah
Nochmal hallo an alle

Mein Programm klappt soweit ganz gut. Es ist jetzt nur noch ein kleiner Fehler drin. Und zwar wenn ich aus einer Excel Datei eine Formel in einen String einlese(2.89465836*LN(Z2S)) sieht sie später so aus 2.89465836*LN('Z2S') <-- Wie kann ich VBA sagen das es die anführungsstriche weglassen soll???

Gruß Hannah

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

Betreff
Datum
Anwender
Anzeige
Re: Einlesen von Formeln
16.08.2002 13:51:09
Martin Beck
Hallo Hannah,

kannst Du mal den (relevanten) Code posten?

Gruß
Martin Beck

Re: Einlesen von Formeln
16.08.2002 13:54:51
Hannah
Open strPfad For Input As #1

Input #1, strFile

Close #1

Do
intZaehler1 = 1
Call Read_Line(strFile, strline) 'Jede Zeile wird gelesen
Do
Call read_Word(strline, 1, strword) ' Jedes Wort wird gelesen
If IsNumeric(strword) Then
Worksheets("Tabelle1").Cells(intZaehler2, intZaehler1) = strword
Else
intZaehler1 = intZaehler1 + 1
Loop Until strline = ""
intZaehler2 = intZaehler2 + 1
Loop Until strFile = ""


Ich hoffe das hilft dir


End Sub

Anzeige
Re: Einlesen von Formeln
16.08.2002 14:10:19
Hannah
Der wichtigste Teil ist eigentlich:

If IsNumeric(strword) Then
Worksheets("Tabelle1").Cells(intZaehler2, intZaehler1) = strword
Else:
End If

Hinter das Else: muss dann eigentlich die Zelle als Formel formatiert werden!

Re: Einlesen von Formeln
16.08.2002 14:28:58
Martin Beck
Hallo Hannah,

ich bin leider überfragt und kann nur raten. Wie wäre es mit

Worksheets("Tabelle1").Cells(intZaehler2, intZaehler1).Formula = strword

Kann's leider nicht testen.

Martin Beck

P.S. Ich nehme an, Strword enthält die Formel als String.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige