Clever-Excel-Forum

Normale Version: Textbox zählen, laufende Nr. vorgeben
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo zusammen,
ich habe eine ComboBox mit einer großen Auswahl und 2 TextBoxen erstellt.
Wenn ich in der ComboBox z.B. "Äpfel" auswähle, bekomme ich in einer Textbox meine Artikelnr. angezeigt (die ich selbst in der Combobox programmiert habe)
Wie kann ich in der anderen TextBox eine laufende Nummer programmieren?
Ich würde gerne sagen, wenn die Textbox mit einer Artikelnr. gefüllt ist (Artikelnr. kommt aus ComboBox) dann gebe Pos. 10 an (automatisch zählen)

Pos.             Artieklnr.                Combobox
10                12345                    Äpfel
20
30
etc.

Kann mir jemand helfen?
Hallo,

kannst Du es mit anderen Worten noch einmal erklären.
zum Beispiel nach folgendem Muster:

erste Auswah in Combox =xy dann Textbox1=dies und Textbox2=das
zweite Auswah in Combox =xyz dann Textbox1=was anderes und Textbox2=das + das

oder auch anders
(27.02.2017, 16:51)atilla schrieb: [ -> ]Hallo,

kannst Du es mit anderen Worten noch einmal erklären.
zum Beispiel nach folgendem Muster:

erste Auswah in Combox =xy dann Textbox1=dies und Textbox2=das
zweite Auswah in Combox =xyz dann Textbox1=was anderes und Textbox2=das + das

oder auch anders
ok ich versuche es Blush :19:
Also die 2te Textbox soll sobald irgendeine Auswahl in der ComboBox getroffen wurde
Also in der ComboBox wähle ich irgendeine beliebige Auswahl z.B. Äpfel aus, dadurch schreibt sich automatisch in der 1 Textbox die Artikelnr. hinein ..... was auch gut so ist :D
In der 2ten Textbox soll dann (wenn die 2te Textbox eine Artikelnr. schreibt) eine laufende Positionsnr. (wie auf einer Rechnung erscheinen)
Ich hoffe, es ist verständlich, was ich meine...
Mein Ansatz wäre: Aber es funktioniert leider nicht :@
Private Sub TextBox1_Change()
Dim TextBox1_Change As String
If ComboBox2 = True Then
TextBox1 = 10
ElseIf TextBox2 = Wrong Then
TextBox1 = "-"
End If
End Sub
Sag mal (ganz im Ernst, aber dennoch nicht böse gemeint):
Solltest Du nicht, bevor Du den VBE öffnest, zumindest rudimentäre Kenntnisse besitzen?
Was wird das (siehe auch den anderen Thread)?
Praktikantenbeschäftigung?

Fragt sich Ralf
(27.02.2017, 17:51)RPP63 schrieb: [ -> ]Sag mal (ganz im Ernst, aber dennoch nicht böse gemeint):
Solltest Du nicht, bevor Du den VBE öffnest, zumindest rudimentäre Kenntnisse besitzen?
Was wird das (siehe auch den anderen Thread)?
Praktikantenbeschäftigung?

Fragt sich Ralf
Sorry Ralf bin in VB ein absoluter Neuling..(siehe auch den anderen Thread)
Wäre also nett, wenn du weiterhelfen könntest
Hallo Pia,

bin zwar nicht der Ralf, aber da das schon wieder ein paar tage hängt ein paar Hinwesie von mir.

Code:
Private Sub TextBox1_Change()
Dim TextBox1_Change As String '<-- man sollte einen anderen Namen verwenden
If ComboBox2 = True Then '<-- wieso True und wieso 2? Sollte da nicht etwas drin stehen, z.B. die Äpfel?
TextBox1 = 10
ElseIf TextBox2 = Wrong Then '<-- Wrong kenne ich so nicht
TextBox1 = "-"
End If
End Sub

Also, am Anfang hattest Du ja eine Combobox und zwei TextBoxen, oder hab ich da was übersehen? Die Nummer könntest Du doch schon vergeben, wenn Du die Auswahl in der ComboBox1 vornimmst. Im Prinzip so:

Code:
Private Sub ComboBox1_Change()
Textbox1=ComboBox1.Value
Textbox2=Textbox2+10
End Sub