Thema Datum  Von Nutzer Rating
Antwort
28.01.2016 14:07:39 Thilo
Solved
28.01.2016 14:12:34 Patrick
NotSolved
28.01.2016 14:17:40 Gast79496
NotSolved
28.01.2016 14:25:21 Patrick
NotSolved
28.01.2016 14:49:46 Thilo
NotSolved
28.01.2016 19:28:30 Gast4751
NotSolved
Rot InputBox
 30.01.2016 12:11:05 Patrick
NotSolved
01.02.2016 14:18:06 Thilo
NotSolved
03.02.2016 22:15:03 Patrick
NotSolved

Ansicht des Beitrags:
Von:
Patrick		 Datum:
30.01.2016 12:11:05		 Views:
868		 Rating:
     
Antwort:
  Ja
Thema:
InputBox		 
So hier der Anfang, tut mir leid das es etwas länger gedauert hat als ich angekündigt habe: dieser code in die Userform, und natürlich die Items dazu anlegen. Ich kann auch gerne die Datei hochladen wenn dir das hilft.

Private Sub CommandButton1_Click()
' soll mit den Infos noch irgendwas passieren? wenn ja kann das hier rein :)
UserForm1.Hide
End Sub

Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub

Private Sub ListBox1_Click()

Dim x As Integer

For i = 0 To 10

If ListBox1.Selected(i) Then

x = i

End If

Next i

If x = 1 Or x = 2 Then  'Hier dran denken das der oberste Eintrag den Wert 0 hat

TextBox1.Visible = True
Label2.Visible = True

Else

TextBox1.Visible = False
Label2.Visible = False

End If
End Sub

Private Sub UserForm_Activate()

TextBox1.Visible = False
Label2.Visible = False

ListBox1.Clear

' hier wäre es auch möglich eine Liste mit Ländern aus einer Tabelle auszulesen :)

ListBox1.AddItem "Land 0" ' bekommt den Wert 0
ListBox1.AddItem "Land 1" ' bekommt den Wert 1 usw
ListBox1.AddItem "Land 2"
ListBox1.AddItem "Land 3"

End Sub

 

Was dann weiter passieren soll weiß ich jetzt nicht so genau, lässt sich aber alles in der einen Userform zusammenfassen. Kann dich gerne weiter unterstützen :)

Gruß
Patrick

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
28.01.2016 14:07:39 Thilo
Solved
28.01.2016 14:12:34 Patrick
NotSolved
28.01.2016 14:17:40 Gast79496
NotSolved
28.01.2016 14:25:21 Patrick
NotSolved
28.01.2016 14:49:46 Thilo
NotSolved
28.01.2016 19:28:30 Gast4751
NotSolved
Rot InputBox
 30.01.2016 12:11:05 Patrick
NotSolved
01.02.2016 14:18:06 Thilo
NotSolved
03.02.2016 22:15:03 Patrick
NotSolved