Formel mit importieren

Moin,
ich versuche gerade ein TXT-File mit Werten und einem # als Trennzeichen einzulesen. Das klappt mit Zahlen und Texten hervorragend, nun würde ich aber gerne auch eine Variable direkt mit einlesen, geht das auch?

=WENN(ODER(blatt1!GY8=1;blatt1!GY8=2);blatt1!GX8/(1 - (EXP(-1*(4700*blatt1!GX8/132127))));"")

Diese Formel soll in einer Zelle stehen, eingelesen wird blatt2 - und es soll mit Werten von blatt1 gerechnet werden.
Nur wenn ich das machen, dann gibt es nach dem Import der Daten einen Zeilenumbruch, bzw. eine Leerzeile nach der Zeile in der die Formel mit importiert werden soll und blatt1 wird zu 'blatt1'
Muss man eine Formel wenn man sie 1:1 mit einlesen will irgendwie 'markieren'? In Quotes setzen oder was in der Art?
Tommi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tommi,
Luc's Vorschlag funktioniert wenn du das Gleichheitszeichen manuell ersetzt.
In einem Makro (Excel=Deutsch, Systemeinstellungen=Deutsch) funktioniert es bei mir unter Excel 2010 nicht. Liegt wahrscheinlich an den deutschen Einstellungen, die hier nicht mit dem US-VBA harmonieren.
Hier muss Zelle für Zelle der Formeltext neu eingetragen werden.
Gruß
Franz
Makrobeispiel:

Sub Text_Formel_Import()
' Text_Formel_Import Makro
Dim varDatei, Zelle As Range
varDatei = Application.GetOpenFilename(Filefilter:="Text (*.txt),*.txt", _
Title:="Bitte Textdatei mit Importdaten auswählen")
If varDatei = False Then Exit Sub
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & varDatei, Destination:=Range("$A$1"))
.Name = "Text_Formel"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = False
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1250
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "#"
.TextFileColumnDataTypes = Array(1, 1, 1, 2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
With Worksheets("Blatt2")
'In Spalte 4 (D) den Text in Formeln umwandeln
With .Range(.Cells(1, 4), .Cells(.Rows.Count, 4).End(xlUp))
.NumberFormat = "General"
For Each Zelle In .Cells
With Zelle
.FormulaLocal = .Text
End With
Next
.EntireColumn.AutoFit
End With
.Calculate
End With
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
End Sub

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread