Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textfelder per Knopfdruck erstellen und befüllen

Forumthread: Textfelder per Knopfdruck erstellen und befüllen

Textfelder per Knopfdruck erstellen und befüllen
17.11.2016 10:45:58
Bonduca
Hallo,
ich möchte gerne mit VBA Textfelder per Knopfdruck erstellen und befüllen.
In Spalte A stehen Begriffe. Es sollen auf Knopfdruck so viele Textfelder wie Begriffe in Spalte A sind erstellt werden und die Begriffe sollen auch gleich in den Textfeldern erscheinen.
Hat jemand eine Idee?
Besten Dank!
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textfelder per Knopfdruck erstellen und befül
17.11.2016 11:13:05
Michael
Hallo!
Fügt die Textfelder in Spalte B, immer neben der jeweiligen Zelle aus A, ein. Textbox-Eigenschaften orientieren sich an der Zelle aus A
Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets(1)
Dim Texte As Range, t As Range
With Ws
Set Texte = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
For Each t In Texte
.Shapes.AddTextbox(msoTextOrientationHorizontal, t.Offset(, 1).Left, _
t.Offset(, 1).Top, t.Offset(, 1).Width, _
t.Offset(, 1).Height).TextFrame.Characters.Text = t.Text
Next t
End With
End Sub
LG
Michael
Anzeige
AW: Nicht getestet!
17.11.2016 11:13:36
Max2
So vielleicht ?
(Nicht getestet!) 

For Each rngZelle In rngBereich
If rngZelle.Value  "" Then
Worksheets("TabelleXY").Shapes.AddTextbox(msoTextOrientationHorizontal, _ 100, 100, 100, 50) ' _
Anpassen
.TextFrame.Characters.Text = "Irgend ein Text" 'oder .Cells(x, y).Value
End If
Next rngZelle

Anzeige
Warum offen? Es gibt schon mal 2 Antworten, owT
17.11.2016 11:32:46
Michael
AW: Warum offen? Es gibt schon mal 2 Antworten, owT
17.11.2016 11:36:21
Max2
Als ich meinen Beitrag geschrieben habe gab es noch keine Antwort und ich war mir nicht sicher ob meine Version verwendbar ist :)
Da hilft Forumsliste aktualisieren...
17.11.2016 15:35:35
Michael
Max,
denn Als ich meinen Beitrag geschrieben habe gab es noch keine Antwort
doch, ich war ja vor Dir, Du hast sie nur noch nicht gesehen ;-).
Und bzgl. ich war mir nicht sicher ob meine Version verwendbar ist
dazu kann sich ja dann der/die Fragestellerin in einer Rückantwort äußern und ggf. offen stellen.
LG
Michael
Anzeige
AW: Da hilft Forumsliste aktualisieren...
17.11.2016 16:24:56
Bonduca
Hallo Michael,
Es funktioniert einwandfrei!Einfach toll!
Vielen lieben Dank!
Jetzt ist noch ein Thema aufgekommen:
Wie kann man die Farbe und Textgröße des Textfeldes per VBA verändern?
Wenn z.B. in Spalte B "gut" oder "schlecht" steht, soll das Textfeld grün oder rot eingefärbt werden.
Die Schriftgröße soll standardmäßig auf 8 gesetzt werden.
Hast du da vielleicht noch einen Vorschlag für mich :) ?
Anzeige
Warum probierst Du das nicht einfach aus...
17.11.2016 16:51:21
Michael
Bonduca?
Mit meinem Codegerüst kannst Du doch perfekt experimentieren...
Aber fragen ist irgendwie einfacher, gell?! ¯\_(ツ)_/¯
Sub TextfelderErstellen()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets(1)
Dim Texte As Range, t As Range
With Ws
Set Texte = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
For Each t In Texte
With .Shapes.AddTextbox(msoTextOrientationHorizontal, t.Offset(, 2).Left, _
t.Offset(, 2).Top, t.Offset(, 2).Width, _
t.Offset(, 2).Height)
.TextFrame.Characters.Text = t.Text
.TextFrame2.TextRange.Font.Size = 8
Select Case t.Offset(, 1).Text
Case Is = "rot"
.TextFrame.Characters.Font.Color = RGB(255, 0, 0)
Case Is = "grün"
.TextFrame.Characters.Font.Color = RGB(0, 176, 80)
End Select
End With
Next t
End With
End Sub
LG
Michael
Anzeige
;

Forumthreads zu verwandten Themen

VBA Ausgabe in neue Datei
MarkusL

Hallo,
ich habe folgendes Problem:
In einer Datei befinden sich nachfolgende Datensätze
Jahr Monat Feld_1 Feld_2 Feld_3 Feld_4 Feld_5 usw.
es sollen nun per VBA nach Abfrage von Jahr und Monat ein neuer Datensatz in einer neuen Datei erzeugt werden, der allerdings nur noch die F...
08.08.2008 17:42:00
Thread-ID: 1000377
3 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
neue Datei erstellen und beschreiben
Toby


Hmm, wahrscheinlich für euch ein kleines Problem
habe aber im archiv nichts gefunden!
ich erstelle ein neues file und möchte dann die neue Datei mit Daten beschreiben.
aber leider schreibt er mir immer ins file in dem ich das makro starte!
ich hatte schon mol so ein Proble...
29.10.2008 13:07:00
Thread-ID: 1020251
9 Beiträge
Makro in neuer Datei erstellen
Kurt

Guten Morgen Allerseits,
ich hoffe mir kann jemand weiterhelfen.
Problem:
Ich erstellt eine TXT Datei per Makro, nun möchte ich das
zusätzlich ein Commandbutton erstellt wird, mit folgendem Inhalt:
Private Sub CommandButton1_Click() Dim z As Long z = Range("a6").End(xlDo...
13.11.2008 10:47:23
Thread-ID: 1024104
7 Beiträge
Daten per Makro in Textdatei schreiben
Etzed

Servus,
ich habe folgendes Problem. In einer Excel Tabelle verwalte ich die Mitglieder eines Vereins mit Kontodaten für die Buchungen. Ich brauche jetzt für meine Bank eine Datei in der die Kontodaten der Mitglieder die per Bankeinzug bezahlen enthalten sind.
Diese Daten stehen bei mir...
17.11.2008 13:57:09
Thread-ID: 1025212
4 Beiträge
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
per VBA prn-Datei erstellen
Ron

hallo,
weiß jemand von euch wenn ich per makro eine Exceltabelle als prn-Datei ausdrucken will wie ich diese automatisch mit einem vorher ermittelten Namen abspeichern kann?
Danke
Gruß Ron
19.11.2008 17:22:00
Thread-ID: 1026126
5 Beiträge
Makro per VBA in Datei erstellen
Marko

Hallo zusammen,
folgendes Problem:
ich habe eine Datei mir mehreren Tabellenblätter die Formeln enthalten.
Per VBA exportiere ich die Datei und enferne dabei die vorhandenen Makros sowie ersetzte die Formeln durch Werte.
Nun würde ich abschließend in den Export ein neues Makro i...
01.07.2009 17:22:37
Thread-ID: 1085801
3 Beiträge
Tabellenblätter autom. erstellen und ausfüllen
Robert

Hallo Leute
ich habe hier eine Mappe in der ich eine Vorlage für die Prüfung von Maschinen hab.
Ich brauch pro Maschine ein Tabellenblatt und daher würde ich diese gerne automatisch erstellen wenn in der Geräteliste ein Gerät eingetragen wird.
Des Weiteren soll in den automatisch er...
07.07.2009 20:30:38
Thread-ID: 1086950
7 Beiträge
Anzeige
Neue Datei erstellen
Stefanglander

Hallo Forum,
ich habe eine Datei in der auf Blatt 1 im Bereich C2:C27 Namen stehen.
Ich möchte nun mit einem Makro ausgelößt durch einen CMB das für Zelle im Bereich C2:C27 die nicht leer ist eine neue Datei mit dem Namen der jeweiligen Zelle angelegt wird.
Als Vorlage soll das Bla...
02.08.2009 19:37:22
Thread-ID: 1093084
3 Beiträge
VBA beim anlegen neuer Datei mit kopieren
Stefanglander

Mal wieder ich,
Hallo Leute
ich habe ein Code von Hajo in meiner Datei eingebaut.
Es geht um den Kalender der sich beim betreten der Zelle einblendet ( ein super Teil, kann ich nur empfehlen).
Nun lege ich mittels folgendem Code eine neue Mappe an:
Sub Tab2() Dim strFile As...
16.08.2009 19:31:38
Thread-ID: 1096268
4 Beiträge
Anzeige
neue Exceldatei incl. Makro automatisch erstellen
skaddy

Hallo zusammen
Ich erstelle mit einen Makro aus dem Excel heraus ein Wordfile, welches ich wiederum mit Teilinhalte aus Excel beschreibe. Nun möchte ich dem neu erstellten Wordfile noch gerne ein Makro (also im .doc) mitgeben mit welchem ich dann im Word mit einem Hotkey noch ein WordMakro...
17.09.2009 23:02:47
Thread-ID: 1103727
11 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige