Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Textbox Text makieren

Betrifft: Textbox Text makieren von: Kurt
Geschrieben am: 10.08.2014 15:43:32

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

  

Betrifft: AW: Textbox Text makieren von: Hajo_Zi
Geschrieben am: 10.08.2014 15:49:54

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
GrußformelHomepage


  

Betrifft: AW: Textbox Text makieren von: Hajo_Zi
Geschrieben am: 10.08.2014 16:00:14

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


  

Betrifft: Hallo Hajo, SUPER habe gerade getestet ! -) von: Kurt
Geschrieben am: 10.08.2014 16:33:57




  

Betrifft: AW: Hallo Hajo, SUPER habe gerade getestet ! -) von: Hajo_Zi
Geschrieben am: 10.08.2014 16:34:38

was ist offen? Das konnte ich nicht lesen.

Gruß Hajo


  

Betrifft: AW: Hallo Hajo, SUPER habe gerade getestet ! -) von: Kurt
Geschrieben am: 10.08.2014 16:42:40

Nichts ist offen !!!
Gruß
Kurt


 

Beiträge aus den Excel-Beispielen zum Thema "Textbox Text makieren"