Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1372to1376
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
Inhaltsverzeichnis

Textbox Text makieren

Textbox Text makieren
10.08.2014 15:43:32
Kurt

Hallo zusammen,
ich habe folgendes im Makro für die UF stehen:
Dim na
na = ActiveSheet.Range("A2").Value
Me.TextBox1 = "Testversion_Report" & " ( " & na & " )" & " - Aktuelles " & (Format(Date, "mmyyyy"))
Me.TextBox1.SelStart = 54
Me.TextBox1.SelLength = 2
Me.TextBox1.SetFocus
Das ist soweit in Ordnung aber wenn der Name "na" der in der Zelle A2 steht
länger oder kürze steht, wird natürlich nicht makiert wie ich es möchte.
Es sollte immer "mm" makiert werden, egal wie lang oder kurz der
Name ist.
Geht das überhaupt ???
gruß
Kurt

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

Betreff
Datum
Anwender
Anzeige
AW: Textbox Text makieren
10.08.2014 15:49:54
Hajo_Zi
Hallo Kurt,
Option Explicit
Private Sub UserForm_Activate()
Dim na
na = ActiveSheet.Range("A2").Value
Me.TextBox1 = "Testversion_Report" & " ( " & na & " )" & " - Aktuelles " & (Format(Date, " _
mmyyyy"))
Me.TextBox1.SelStart = InStr(TextBox1, "Aktuelles") + 9
Me.TextBox1.SelLength = 2
Me.TextBox1.SetFocus
End Sub

AW: Textbox Text makieren
10.08.2014 16:00:14
Hajo_Zi
Hallo Kurt,
um doppeltest "Aktuelles" zu beachten.
Option Explicit
Private Sub UserForm_Activate()
Dim na
na = ActiveSheet.Range("A2").Value
Me.TextBox1 = "Testversion_Report" & " ( " & na & " )" & " - Aktuelles " & (Format(Date, " _
mmyyyy"))
Me.TextBox1.SelStart = InStrRev(TextBox1, "Aktuelles") + 9
Me.TextBox1.SelLength = 2
Me.TextBox1.SetFocus
End Sub
Gruß Hajo

Anzeige
Hallo Hajo, SUPER habe gerade getestet ! -)
10.08.2014 16:33:57
Kurt

AW: Hallo Hajo, SUPER habe gerade getestet ! -)
10.08.2014 16:34:38
Hajo_Zi
was ist offen? Das konnte ich nicht lesen.
Gruß Hajo

AW: Hallo Hajo, SUPER habe gerade getestet ! -)
10.08.2014 16:42:40
Kurt
Nichts ist offen !!!
Gruß
Kurt

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige