Guten Tag,

ich wende mich an euch mit einer spannenden Frage und hoffe ,dass mir jemand ein paar Tipps geben möchte.


Mein Projekt:

Erschaffung einer Textbox, die ich durch einmaliges anklicken "NACHEINADER" durchlaufen kann.

Bedeutet:

Click = 1. Eintrag - wenn ich noch einmal clicke, soll auf den 2. Eintag geändert werden.

Alles im Code untergebracht. (Ich möchte keine "Hilfsliste" auf der Mappe) schön wäre es wenn ich , keine weiteren Steuerelemente verwenden muss.

Nur eine Textbox.


1-5 Eintrag

z.B.

• Rechnung erstellen
• Paket wiegen
• Portoberechnen
• Kommissionierung prüfen
• Warenpreis ermitteln
• Ende - Auftrag abgeschnlossen

Ich habe schon mal mit einer Lösung angefangen, aber da sind am Anfang des Strings immer diese unschönen Ziffern die ich umgehen möchte.

Vielen Dank, ich bin gespannt, ob Ihr mir weiterhelfen könnt. Bin kein Profi.

Gruß

VBA- Starter

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)


' !!! Der Inhalt der Textbox ist mit .value auf "1 - Hinweise beginnen" voreingestellt. Dann klappt der Durchlauf.


Treiber = Left(TextBox1, 1)


Select Case Treiber

    Case 1:
    TextBox1.Value = "2 - Rechnung erstellen"
    
    Case 2:
    
    TextBox1.Value = "3 - Paket wiegen"
    
    Case 3:
    
    TextBox1.Value = "4 - Portoberechnen"
    
    Case 4:
    
    TextBox1.Value = "5 - Kommissionierung prüfen "
    
    Case 5:
    
    TextBox1.Value = "2 - -Ende - Auftrag abgeschnlossen"

End Select

'    Set MyData = New DataObject
'
'    MyData.SetText TextBox1.Text
'    MyData.PutInClipboard
    
    TextBox1.SelStart = 4
    TextBox1.SelLength = Len(TextBox1)
    TextBox1.Copy