Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1840to1844
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
1840to1844
1840to1844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textbausteine in VBA

Textbausteine in VBA
14.08.2021 09:32:21
Julian
Halli hallo. Ich probiere mich gerade in Vba aus.
Ich habe mir ein Oberfläche gebastelt mit textfeld1, in das später ein Fliestext rein soll.
Dieser soll sich aus Textbausteinen zusammensetzen. Die Inhalte der Textbausteine soll in Command_Buttons stehen, die rechts neben dem Textfeld1 stehen ca. 20 Stück.
Taxtfeld1.Value = command button1.Value
Textfeld1.Value = command button2.Value
Usw. Usw....
das war meine Idee dazu... Klappt natürlich überhaupt nicht.
Hat einer eine Idee, wie ich das hinbekommen könnte? Lg

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textbausteine in VBA
14.08.2021 09:45:49
PeTeR
Hallo Julian,
evtl. so:
ActiveSheet.Shapes.Range(Array("Button 1")).Select
txt = Selection.Characters.Text
ActiveSheet.Shapes.Range(Array("Textfeld 1")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = txt
Viel Erfolg und schönes WE
PeTeR
AW: Textbausteine in VBA
14.08.2021 09:53:09
Julian
Bestimmt alles richtig... Aber ich verstehe leider kein Wort :D. Könntest du das etwas erklären?
AW: Textbausteine in VBA
14.08.2021 09:48:08
ralf_b
du mußt dem Textfeld einen Text zuweisen.
Die Value-Eigenschaft des Buttons ist dafür ungeeignet.
Du solltest im Clickevent-Sub des Buttons einen Text zum Textfeld zuweisen

Private Sub CommandButton1_Click()
Textbox1.text = " Das ist ein Text"
End Sub

Anzeige
AW: Textbausteine in VBA
14.08.2021 09:54:44
Julian
Ja das scheint eine gute Lösung zu sein, aber es sollen ja aus mehreren Command_Button ein Fliestext entstehen. Bei deiner Version wird ja nur der aktuelle cmd berücksichtigt. Lg
AW: Textbausteine in VBA
14.08.2021 12:50:06
ralf_b
Was du schlussendlich in dem clickevent tust, sprich wie viele Texte du von irgendwoher(Tabelle, Inhalte von Programmvariablen) zu deinem Text zusammenbaust,ist deine Sache.
Vielleicht solltest du erstmal Klarheit schaffen. Hast du eine Userform erstellt oder deine Controls auf dem Arbeitsblatt?
Warum nicht einfach ...
14.08.2021 09:49:03
lupo1
... auf die Buttons Kurzinfos geben wie:
Absag
Zusag
WVorl
Vlegg
... um beim Anklicken Texte entsprechend einzufüllen?
Anzeige
AW: Warum nicht einfach ...
14.08.2021 09:57:42
Julian
Diesem Vorschlag kann ich leider nicht folgen? Ich glaub ich verstehe es einfach nicht :(
AW: Textbausteine in VBA
14.08.2021 10:30:43
Matthias
Hallo,
da frag ich mich allerding bei ...


Taxtfeld1.Value = command button1.Value


heißt es wirklich: Taxtfeld1
heißt es wirklich: command button1 (mit Leerzeichen?)
Ich glaub wohl eher nicht.
Gruß Matthias
AW: Textbausteine in VBA
14.08.2021 10:37:33
Julian
Ja das sind Tippfehler. Habe ich nur schnell geschrieben... Funktioniert aber auch nicht, wenn man es richtig schreibt.
AW: Textbausteine in VBA
14.08.2021 10:59:15
onur
Du solltest dankbar sein, dass sich überhaupt Jemand meldet (trotz der fehlenden Beispielsdatei und der mageren/irreführenden Beschreibung.
Was genau verstehst du z.B. unter "Fliesstext"
Anzeige
AW: Textbausteine in VBA
14.08.2021 11:23:43
Werner
Hallo,
meinst du das hier?

Private Sub CommandButton1_Click()
Shapes("Textfeld 1").TextFrame.Characters.Text = Shapes("Textfeld 1").TextFrame.Characters.Text _
& " " & CommandButton1.Caption
End Sub
Gruß Werner
AW: Textbausteine in VBA
14.08.2021 13:09:59
Julian
danke erstmal an alle.... stimmt das habe ich völlig vergessen.
https://www.herber.de/bbs/user/147618.xlsm
Hier habe ich meine Datei mal hochgeladen. Vll. wird es dann etwas ersichtlicher, was ich vorhabe.
Am Ende des Tages soll aus allen möglichen Sätzen ein "Aufsatz" entstehen, den ich mir dann einfach aus dem Textfeld kopieren kann.
LG und nochmals Danke an alle Ideengeber!
Anzeige
AW: Textbausteine in VBA
14.08.2021 13:42:58
onur
Die Textbox muss Multiline=True sein:

Private Sub Übernehmen_Click()
TextBox1 = TextBox1 & vbLf & Übernehmen.Caption
End Sub
DAS für ALLE Buttons
AW: Textbausteine in VBA
14.08.2021 13:54:07
Julian
Super danke!
Das Funktioniert schon fast wie gedacht. Das Einzige, was noch stört ist ein Platzhalterzeichen, was mit in den Textkopiert wird. Hast du noch ne Idee, wie ich das rausbekommen könnte? Dann wäre es schon perfekt und ich spare mir viel Arbeit :D
LG
AW: Textbausteine in VBA
14.08.2021 14:31:22
onur
Die Textbox muss Multiline=True sein
AW: Textbausteine in VBA
14.08.2021 14:50:39
Julian
Wahnsinn... Es kann doch so einfach sein. :D besten Dank!!!
Anzeige
Gerne !
14.08.2021 14:55:29
onur

300 Forumthreads zu ähnlichen Themen

In derTextBox das Format ändern
edie

Hallo zusammen,
würde gerne, wenn es möglich wäre, das Datum in der TextBox im Format TT.MM.YYYY
zurückschreibe in die Zelle A1 im Format YYYY-MM-TT 00:00 z. B. 2008-07-01 00:00
Wenn es möglich ist dann wie?
Hat jemand eine Idee und kann weiter helfen?
Danke im Voraus.
...
13.08.2008 15:27:49
Thread-ID: 1001560
3 Beiträge
Anzeige
Spalten als Text formatieren
Steffen

Hallo Leuts,
ich möchte gern die spalten B, D und F als Text formatieren. Habe da aber irgendeinen fehler drin.
ActiveSheet.Columns("B:B,D:D,F:F").NumberFormat = "@"
Das Format ändert sich leider nicht in Text.
Grúß
Steffen
15.09.2008 09:49:00
Thread-ID: 1009678
7 Beiträge
Formateierung von Textboxen in einer Userform
Textboxen

Hallo, nochmal 'ne warscheinlich blöde Frage:
Wie man Schriftart, Farbe etc. für Textboxen einstellt, bekomme ich hin. Aber
wie lege ich fest, dass es sich um das Format "Zahl" mit x Kommastellen oder
ähnliches handeln soll? - Hintergrund:
Auf einer Userform muß der Benutzer in...
16.09.2008 16:24:26
Thread-ID: 1010158
2 Beiträge
Anzeige
VBA Querdruck DinA5 auf DinA4 Hochformat
Peter

Hallo,
habe eine Userform die ich aufrufe, dort sind 2 CommandButtons auf die entweder auf DinA5 oder DinA4 gedruckt werden soll.
Habe nun den Makrorecorder laufen lassen.
Private Sub CommandButton1_Click() 'Sub Karte_Druck() ' Karte_Druck Makro Din A 4 Application.ScreenUpdating...
07.12.2008 11:40:36
Thread-ID: 1030830
3 Beiträge
VBA Bedingte Formatierung
Peter

Hallo,
möchte gern das Abhängig von A1 in der ein "w" oder ein "m" steht, das A2:Z22 alles entweder rosa (w)
oder hell bLau (m) ist.
Habt Ihr eine Idee?
Beim Druck soll nachher alles wieder schwarz weiß sein.
Gruß Peter
09.12.2008 22:32:36
Thread-ID: 1031538
20 Beiträge
Textbox und das Zeitformat
Rechsteiner

verstehe nicht viel von VBA, leider, habe die Eingabemaske ein bisschen abgeändert. Funktioniert eigentlich für meine bedürfnisse gut.
Das Problem: wenn ich über die Maske Zeit eintrage funktioniert es wunderbar, wenn ich aber im Tabellenblatt die Zeiten ändere bekomme ich in der Maske nich...
15.12.2008 16:28:00
Thread-ID: 1033081
4 Beiträge
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 Beiträge
Datum in Textzeile - Probleme mit Format
Andreas

Hallo zusammen,
ich habe in Excel 2003 ein einfaches Rechnungsformular gebastelt. In diesem Formular gibt es eine Zelle mit dem Zellnamen "RE_Datum" und "Rechnungsbetrag". In diesen Zellen stehen das Datum der Rechnung und der Rechnungsbetrag in Euro. Nun möchte ich am Ende der Rechnung ein...
06.01.2009 20:32:00
Thread-ID: 1037351
3 Beiträge

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
3
6
1
1
2
19
3
21
2
7
6
9
1
3
15
1
1
2
3
2
2
2
5
1