Userform Text mit Klick entfernen

[StrammerMax]

Ah... es gab doch ein kleines Problem.
Und zwar habe ich mehrere Register - und es funktioniert nur, wenn ich auf dem entsprechenden Register starte.

Wenn ich auf einem anderen Register starte bekomme ich den Fehler.

Weiß jemand, wie ich das so hinbekomme, dass das Textfeld erst markiert wird, wenn ich auf die entsprechende Registerkarte wechsle?

Die Registerkarte auf der das Textfeld liegt heißt Page2

[00202]

Hallo, :19:

so - Zählung fängt bei 0 an: :21:
[attachment=21805]

Und nenne doch in Zukunft die Fehlernummer und den Fehlertext - dann wäre es gleich klar gewesen. :17:

[StrammerMax]

Perfekt - funktioniert einwandfrei. Vielen Dank.


Edit: Wenn ich einen Titel eingebe - die Daten nicht direkt übernehme, dann das Tabellenblatt wechsle und wieder zurück auf die Titelauswahl gehe ist der eingegebene Titel wieder weg - das sollte nach Möglichkeit nicht passieren.

[00202]

Hallo, :19:

dann so: :21:
[attachment=21807]

[StrammerMax]

Top :23:

[StrammerMax]

Andere Frage:

Ich lese aus einer Zelle auf einem Arbeitsblatt einen Prozentwert aus und möchte diesen in meiner Userform anzeigen.
Aktuell lese ich den Wert in ein Textfeld ein.

Aus 10,5% wird dann aber natürlich 0,105 in der Userform. Wie schaffe ich es, dass in der Userfrom 10,5% angezeigt wird? Und das am besten nicht in einem Textfeld, da dieser Wert statisch ist und nicht geändert werden soll.

Einen Datentypen für Prozent gibt es soweit ich weiß nicht direkt.

Code:

Private Sub RK1_Click()
   Worksheets("Input").Activate
   Range("C10").Value = "Risikoklasse 1"
   MindestrenditeNachSteuern.Value = Worksheets("Input").Range("C17") ' lädt Wert der Mindestrendite nach Steuern aus Feld C17
   MindestrenditeVorSteuern.Value = Worksheets("Input").Range("C16") ' lädt Wert der Mindestrendite vor Steuern aus Feld C16
End Sub

[00202]

Hallo, :19:

um Formate aus dem Tabellenblatt in TextBoxen in einer UserForm zu übertragen nimm statt "Nichts" oder ".Value" ".Text": :21:

Code:

TextBox1.Value = Range("A1").Text

[StrammerMax]

Vielen Dank :78:

[StrammerMax]

Ein letztes Mal bräuchte ich heute noch eure Hilfe.

Ich habe eine Checkbox. Sobald diese True wird erscheint ein Textfeld.

Ich möchte, dass der Curser sofort in die Textbox springt, sobald ich die Checkbox aktiviere.

Das funktioniert soweit auch - aber wenn ich die Checkbox dann wieder deaktiviere kommt ein Laufzeitfehler 2110 an der Stelle .SetFocus.

Das Textfeld in das er springen soll heißt Laenderaufschlag

Code:

Private Sub CheckBox2_Click()
   If meinFormular.CheckBox2.Value = True Then
       meinFormular.Laenderaufschlag.Visible = True
   End If
   If meinFormular.CheckBox2.Value = False Then
       meinFormular.Laenderaufschlag.Visible = False
   End If
   If meinFormular.CheckBox2.Value = True Then
       meinFormular.Label10.Visible = True
   End If
   If meinFormular.CheckBox2.Value = False Then
       meinFormular.Label10.Visible = False
   End If
    If meinFormular.CheckBox2.Value = True Then
       meinFormular.Label11.Visible = True
   End If
   If meinFormular.CheckBox2.Value = False Then
       meinFormular.Label11.Visible = False
   End If
   
   If MultiPage1.Value = 1 Then
       With Laenderaufschlag
           .SetFocus: .SelStart = 0: .SelLength = Len(.Text)
       End With
   End If
   
   
End Sub
Private Sub Laenderaufschlag_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   Laenderaufschlag = ""
   

   
End Sub

[00202]

Ein letztes Mal bräuchte ich heute noch eure Hilfe.

Hallo, :19:

das ist klar, denn der Code läuft bei jedem Klick auf die CheckBox komplett durch. Wenn die TextBox ausgeblendet ist läuft "If MultiPage1.Value = 1..." trotzdem. In ein ausgeblendetes Objekt kannst Du keinen Cursor setzen. Schreibe es mal so (ungetestet): :21:

Code:

If MultiPage1.Value = 1 And CheckBox2.Value = True Then