Formel mittels TextBox eingeben

Forumthread: Formel mittels TextBox eingeben

26.03.2009 21:03:00

Frank

Hallo und Guten Abend Zusammen!!!
Der Hilflose meldet sich mit folgender Frage: Kann ich aus einer UF heraus mittels TextBox eine Formel in ein Blatt schreiben lassen. Wenn ja, wie?
Danke!!!
Gruß Frank H.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW:.. .Formula = Userform1.TextBox1 o.T

26.03.2009 21:11:13

Gerd

Gruß Gerd

AW: AW:.. .Formula = Userform1.TextBox1 o.T

26.03.2009 21:36:05

Frank

Hallo Gerd!!!
Ich bin einfach zu blöd!!! Die Formel steht bereits beim Aufruf der UF in der TextBox1. Nun wird der neue Datensatz immer in die erste freie Zeile eingetragen. Mittels folgendem Code:
Application.ScreenUpdating = False
Dim Dia As UserForm
Dim lng As Long
Dim Treffer As Range
Dim i As Integer
If Me.TextBox1.Value = "" Then
MsgBox "Sie müssen einen Wert in das erste Textfeld schreiben!"
Exit Sub
End If
If Val(Replace(TextBox5.Text, ",", ".")) > 0 Then
Me.TextBox6 = "0,00"
End If
If Val(Replace(TextBox6.Text, ",", ".")) > 0 Then
Me.TextBox5 = "0,00"
End If
Set Treffer = DATEN.Columns(1).Find(what:=Me.TextBox1.Value, _
LookAt:=xlWhole)
If Treffer Is Nothing Then
lng = Range("A65536").End(xlUp).Offset(1, 0).Row
Else
i = MsgBox("Dieser Satz wurde bereits erfasst! Überschreiben?", _
vbYesNo + vbQuestion)
If i = 6 Then
lng = Treffer.Row
Else
Exit Sub
End If
End If
If Me.TextBox4.Value = "" Then
Me.TextBox4.Value = TextBox7.Value
End If
Set Dia = frmDaten
Worksheets("DATEN").Activate
With Dia
Cells(lng, 1).Value = .TextBox1.Value
Cells(lng, 2).Value = CDate(TextBox2.Text)
Cells(lng, 3).Value = .TextBox3.Value
Cells(lng, 4).Value = .TextBox4.Value
Cells(lng, 5).Value = .TextBox5.Value * 1
Cells(lng, 6).Value = .TextBox6.Value * 1
End With
With ThisWorkbook
If Not .Saved Then .Save
End With
Application.ScreenUpdating = True
Unload Me
End Sub
Wie muss ich meinen Code nun ändern, dass die Formel aus TextBox1 in Spalte A an der ersten freien Stelle auftaucht und auch eine Formel ist?
Kannst du dich noch einmal bemühen? Danke!!!
Gruß Frank H.

AW: AW:.. .Formula = Userform1.TextBox1 o.T

26.03.2009 21:45:35

Gerd

Hallo Frank,
was trägst Du beispielsweise in Textbox1 ein?
Gruß Gerd

AW: AW:.. .Formula = Userform1.TextBox1 o.T

26.03.2009 22:05:12

Frank

Hallo Gerd!
Beim Aufruf der UF steht in TextBox1: =ZEILE()-13
Gruß Frank H.!

AW: AW:.. .Formula = Userform1.TextBox1 o.T

26.03.2009 22:49:09

Gerd

Hallo Frank,
ich habe es nicht komplett nachgebaut.


Sub a()
Dim Treffer As Range
Dim blnFormelvorhanden As Boolean
Dim x, i As Long
'x = "=ZEILE()-13"
x = CStr(Userform1.TextBox1.Text)
For i = 1 To Cells(Rows.Count, 1).End(xlUp)
If Cells(i, 1).FormulaLocal = x Then blnFormelvorhanden = True: Exit For
Next
If blnFormelvorhanden Then
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).FormulaLocal = x
End If
End Sub

Gruß Gerd

Beliebteste Forumthreads (12 Monate)

Forumthread: Formel mittels TextBox eingeben

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Formel mittels TextBox eingeben

Forumthread: Formel mittels TextBox eingeben

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread