Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1064to1068
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1064to1068
1064to1068
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel mittels TextBox eingeben

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.

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

Betreff
Datum
Anwender
Anzeige
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.
Anzeige
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

Anzeige

326 Forumthreads zu ähnlichen Themen

Textformatierung in einer Formel
Dieterlem

Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
27.10.2008 19:55:00
Thread-ID: 1019731
3 Beiträge
Anzeige
Formel mit Text Datum und wert in Zeitreihe
Karel

Hallo Forum,
Habe ein bezahl blatt mit betragen in eine Spalte wird eingetragen als Text Bezahlt oder Offen wie kann ich an hand von Datum und Text (bezalt oder Offen) diese wert in eine Zeitreihe darstellen ab Zelle i11 und i12
Tabelle1

 BCDEFGHIJKLMN11   &...
19.11.2008 20:37:00
Thread-ID: 1026214
5 Beiträge
Formel wenn dann zellvergleich Text
Karel

Hallo Forum,
wie kann ich Zellwert C mit Zellwert E vergleichen ausgaben in Zelle A
wenn C und D Leer dsnn A auch Leer
Tabelle1

 ABCDE2Ausgabe Textwert Textwert3Offen Bezahlt Offen4Bezahlt Bezahlt Bezahlt5Offen Bezahlt  6Of...
28.11.2008 20:04:52
Thread-ID: 1028782
5 Beiträge
Anzeige
Text in einer Spalte formatieren
Martin

Hallo
in einer Zelle habe ich sehr viel Text hineingeschrieben. Möchte für den Ausdruck die Spalte aber nur ca. 5 cm breit formatieren. Der Text soll dann automatisch Linie für Linie untereinander zu stehen kommen. Keine Ahnung wie das möglich ist. Wenn ich die Spalte schmaler formatiere bl...
04.01.2009 10:57:00
Thread-ID: 1036687
5 Beiträge
Formel WENN DANN
Hirtenanna

Hallo Gemeinde,
wende mich heute mit einem Formelproblem an Euch, wo ich bisher keine Lösung für ergoogeln bzw. im Forum finden konnte. Weiß nur, das es sich wohl um eine WENN DANN Formel handeln muß.
Also:
Ich habe in den Zellen V4 R4 N4 J4 F4 Z4 Zeiten stehen, welche als Summe in...
25.01.2009 12:12:00
Thread-ID: 1043536
11 Beiträge
Formel mit festem Textinhalt
Felix

Hallo Zusammen
Könnte mir jemand diese Formel überprüfen warum sie nicht geht!
C8 = ist der Name der Gesellschaft
C9 = ist das Datum z.b. 31.Dezember 2008
="Abschlussmemo für die "&TEXT(Stammdaten!$C$8;"per")&TEXT(Stammdaten!$C$9;"TT. MMMMMMMM JJJJ")
Für Eure hilfe...
30.01.2009 21:22:49
Thread-ID: 1045527
3 Beiträge
Text in Zelle abfragen und formatieren
Bernd

Hallo Zusammen,
folgendes Problem: In einer Tabelle mit mehreren Spalten beinhaltet eine Spalte einen Text. Wie kann ich aus dieser Spalte eine bestimmte Zeichenfolge auslesen/erkennen und die betreffende Zelle dann farblich formatieren? Zum Beispiel beinhaltet eine Zelle den Text ABCDEF. W...
19.02.2009 15:19:00
Thread-ID: 1052173
5 Beiträge
Formel: Wenn bestimmte Werte aus Spalte 1, dann...
andi

Hallo zusammen.
Folgendes Problem stellt sich mir: Ich habe eine Onlineumfrage gemacht. Nun habe ich in einer Spalte Werte zwischen 1 und 6. Diese stehen für verschiedene Studienrichtungen (Psychologie,Bio,Medizin,etc). In der Spalte neben dran habe ich die Werte, wenn in der Umfrage auf d...
21.03.2009 16:54:54
Thread-ID: 1062504
2 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
9
4
4
2
4
10
2
4
1
2
2
5
1
1
1
6
8
2
10
1
6
5
6
6