Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1688to1692
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
1688to1692
1688to1692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

String in Textfeld an Cursor einfügen

String in Textfeld an Cursor einfügen
27.04.2019 11:14:31
Sebastian
Hallo,
ich möchte gerne in einem UserForm in einem Textfeld an der Cursorposition einen String Per Button einfügen.
Ich habe schon ein bissel probiert aber eine richtige Lösung ist das nicht. Bei Umbrüchen im Textfeld funktioniert das nicht wirklich. Hat jemand einen Idee wie man das elegant und einfach lösen kann?
Vielen Dank für Hilfe
Mein Code bisher:
Private Sub CommandButton1_Click()
Pos = TextBox1.SelStart + TextBox1.SelLength
TextBox1 = Left(TextBox1, Pos) & "MeinName" & Mid(TextBox1, Pos)
End Sub

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
null Fehlerbeschreibung: "Funktioniert nicht!" owT
27.04.2019 11:44:47
EtoPHG

AW: null Fehlerbeschreibung: "Funktioniert nicht!" owT
27.04.2019 11:47:19
Sebastian
OK Sorry,
der Fehler ist, dass es dann irgendwo eingefügt wird und nicht an der gewünschten Stelle
VG Sebastian
Irgendwo, kann ich mir schlecht vorstellen...
27.04.2019 11:57:00
EtoPHG
Sebastian,
Bevor du Deine Befehle ausführst, kannst Du doch mal mit 
Debug.Print TextBox1.SelStart, TextBox1.SelLength

Die beiden Werte im Direktfenstern des VBE ansehen und überprüfen.
Gruess Hansueli
AW: Irgendwo, kann ich mir schlecht vorstellen...
27.04.2019 12:18:49
Sebastian
Ich weiß jetzt nicht genau wie du das meinst - ich habe aber mal schnell ein Beispiel hochgeladen.
https://www.herber.de/bbs/user/129433.xlsm
Immer wenn ich im Textfeld den Namen einfügen will, da wo der Cursor steht, macht er z.B. einen Doppelpunkt oder ein Umbruch :-(
Anzeige
AW: Irgendwo, kann ich mir schlecht vorstellen...
27.04.2019 12:52:08
EtoPHG
Hallo Sebastian,
Dann ersetze mal deinen Code im CommandButton, durch diesen: 
With TextBox1
Pos = .SelStart + .SelLength + _
(Len(Left(.Text, .SelStart)) - _
Len(Replace(Left(.Text, .SelStart), vbCrLf, vbNullString))) / 2
TextBox1 = Left(.Text, Pos - .SelLength) & "Thomas" & Mid(.Text, Pos + 1)
End With
Gruess Hansueli
AW: Irgendwo, kann ich mir schlecht vorstellen...
27.04.2019 12:38:57
Matthias
Moin!
Bei einer Textbox mit Multiline liefert .selpos einen falschen Wert. Es wird je Zeilenumbruch nur 1 Zeichen genommen anstatt 2. Das könntest du natürlich berechnen. Zählen wie oft ein Zeilenumbruch im Text bis zum .selpos vorkommt. Die Anzahl dann der position hinzufügen. Das aber nur bei multiline Textboxen. Das zumindest, wenn du bei deinem Code bleiben willst.
Da du aber den Namen an Stelle des selektierten Textes (entweder der Text oder die POsition) einfügst, sollte der COde hier auch das gewünschte machen. 
Private Sub CommandButton1_Click()
Me.TextBox1.SelText = "MeinName"
End Sub
VG
Anzeige
AW: String in Textfeld an Cursor einfügen
27.04.2019 12:23:17
Sepp
Hallo Sebastian,
probiere es so.
Private Sub CommandButton1_Click()
  Dim objDataObject As MSForms.DataObject
    
  Set objDataObject = New MSForms.DataObject
  objDataObject.SetText "MeinName"
  objDataObject.PutInClipboard
  TextBox1.SetFocus
  Me.ActiveControl.Paste
  
  Set objDataObject = Nothing
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Anzeige
AW: String in Textfeld an Cursor einfügen
27.04.2019 12:30:10
Sebastian
Perfekt - das ist die Lösung :-) Vielen Dank
AW: String in Textfeld an Cursor einfügen
27.04.2019 12:41:05
Matthias
Moin!
Das bier wäre kürzer und ohne Datenobjekte.
Private Sub CommandButton1_Click()
Me.TextBox1.SelText = "MeinName"
End Sub
VG
Bravo... Matthias, kurz und bündig!
27.04.2019 13:50:21
EtoPHG
Man (ich) kann mir das Leben auch unnötig schwer machen ;-)
Gruess Hansueli
AW: String in Textfeld an Cursor einfügen
27.04.2019 13:56:59
Sebastian
Das ist die Beste und einfachste Lösung :-)
Auf die Idee muss man erstmal kommen - Danke, Vielen Dank

313 Forumthreads zu ähnlichen Themen

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Anzeige
Zeichen in Zelle automatisch kürzen
Andreas

Guten Tag,
ich habe Zellen mit jeweils 12 Stellen ausgefüllt (z.B. 000012345678) Davon hätte ich nun gerne automatisch die ersten 4 gelöscht (sodaß in diesem Beispiel dann in der Zelle nur 12345678 verbleibt)
Ist das mit Excel-Bordmitteln machbar?
Danke für Hilfe voarab,
Andreas...
09.10.2008 13:57:00
Thread-ID: 1015344
4 Beiträge
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Anzeige
Zelle des erstes Vorkommen eines Zeichens ausgeben
-s

Hallo Forum,
ich habe in Zeile 1 in jeder Spalte einen Buchsteben stehen:
a|b|c|c|c|e|
Wie kann ich die Zelle ausgeben lassen, in der beispielsweise das "c" das erste mal vorkommt? Als Ergebnis soll dann C1 ausgegeben werden.
Besten Dank!
-s
07.12.2008 21:32:00
Thread-ID: 1030929
4 Beiträge
Zeichenanzahl einer Textbox festlegen
Heinz

Hallo Leute
Habe eine Frage zum setzen einer Zeichenanzahl in einer Textbox.
Ich habe eine UF mit Textboxen, wo max.31 Zeichen enthalten sein dürfen.
Wie kann man diese bitte beschränken ?
Danke
Heinz
25.12.2008 21:05:00
Thread-ID: 1035243
5 Beiträge
Anzahl der Zeichen in einer Zelle
Jan

Guten Morgen
Welcher Befehl zählt die Zeichen in einer Zelle?
Danke
Gruß Jan
07.01.2009 08:38:00
Thread-ID: 1037436
3 Beiträge
Nur bestimmte Zeichen in Zelle
wolle

Erstmal ein Hallo an Alle und alles gute in 2009!
Ich hätte folgende Frage:
Wie kann ich es machen, dass in Spalte B von Zelle B10 bis Zelle Bxx nur die Zeichen "J" "j" "N" "n" eingeben werden können und bei Eingabe eines anderen Zeichens ein kleines Popup erscheint, das den Bediener in...
09.01.2009 11:22:25
Thread-ID: 1038162
3 Beiträge
zählen bestimmter Zeichen in einer Zelle
Georg

Hallo Excel Welt,
wie kann ich die Anzahl bestimmter Zeichen (z.B. Kommas) in einer Zelle zählen?
Beispiel:
A2 = 12, 34, 2, 134
B2 = 3 (es sind drei Kommas in der Zelle A2) = dafür benötige ich die Lösung
Oder kann ich die Anzahl der (durch Kommas getrennten) Zahlen direkt...
21.01.2009 16:03:36
Thread-ID: 1042267
6 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

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
3
4
2
3
4
2
2
5
2
11
11
2
4
4
1
2
4
5
10
2
1
2
2