Thema Datum  Von Nutzer Rating
Antwort
Rot Falsche Anzeige im Listenfeld
 24.09.2016 12:01:59 vbanob
NotSolved
24.09.2016 14:43:04 Gast94654
NotSolved
24.09.2016 21:02:30 vbnob
NotSolved
24.09.2016 21:26:17 vbanob1
Solved

Ansicht des Beitrags:
Von:
vbanob		 Datum:
24.09.2016 12:01:59		 Views:
1330		 Rating:
     
Antwort:
  Ja
Thema:
Falsche Anzeige im Listenfeld

Liebe Spezialisten,

habe eine Maske erstellt, bei der zunächst Namen aus einem Listenfeld ausgewählt werden und dann ausgewählte Daten betrachtet,

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub CommandButton1_Click()
Spalte = 2
zeile = (ListBox1.ListIndex + 2)
If ListBox1.ListIndex = -1 Then Exit Sub
Worksheets(12).Cells(zeile, Spalte + 11) = Me.TextBox5
If Me.ComboBox1 <> "" And IsNumeric(Me.ComboBox1) Then Worksheets(12).Cells(zeile, Spalte + 9) = CDbl(Me.ComboBox1)
If Me.ComboBox2 <> "" And IsNumeric(Me.ComboBox2) Then Worksheets(12).Cells(zeile, Spalte + 10) = CDbl(Me.ComboBox2)
End Sub
 
Private Sub CommandButton2_Click()
Unload UserForm3
End Sub
   
Private Sub ListBox1_Click()
Spalte = 2
zeile = (ListBox1.ListIndex + 2)
Me.TextBox1 = Worksheets(12).Cells(zeile, Spalte)
Me.TextBox2 = Worksheets(12).Cells(zeile, Spalte + 1)
Me.TextBox3 = Worksheets(12).Cells(zeile, Spalte + 2)
Me.TextBox4 = Worksheets(12).Cells(zeile, Spalte + 8)
Me.TextBox5 = Worksheets(12).Cells(zeile, Spalte + 11)
Me.ComboBox1 = Worksheets(12).Cells(zeile, Spalte + 9)
Me.ComboBox2 = Worksheets(12).Cells(zeile, Spalte + 10)
End Sub
   
Private Sub UserForm_Initialize()
 
Me.ComboBox2.AddItem "1"
Me.ComboBox2.AddItem "1,5"
Me.ComboBox2.AddItem "2"
Me.ComboBox2.AddItem "2,5"
Me.ComboBox2.AddItem "3"
Me.ComboBox2.AddItem "3,5"
Me.ComboBox2.AddItem "4"
Me.ComboBox2.AddItem "4,5"
Me.ComboBox2.AddItem "5"
Me.ComboBox2.AddItem "5,5"
Me.ComboBox2.AddItem "6"
  
Me.ComboBox1.AddItem "1"
Me.ComboBox1.AddItem "1,5"
Me.ComboBox1.AddItem "2"
Me.ComboBox1.AddItem "2,5"
Me.ComboBox1.AddItem "3"
Me.ComboBox1.AddItem "3,5"
Me.ComboBox1.AddItem "4"
Me.ComboBox1.AddItem "4,5"
Me.ComboBox1.AddItem "5"
Me.ComboBox1.AddItem "5,5"
Me.ComboBox1.AddItem "6"
  
End Sub

beziehungsweise bearbeitet werden können.

Problem: Die Reihenfolge der Namen im Listenfeld stimmt nicht mit der im Arbeitsblatt überein. Beispiel - der siebte Name im Listenfeld müsste entsprechend des Arbeitsblattes (siehe unten) eigentlich "Hauser" sein. Die zugehörigen Daten rechts werden auch korrekt angezeigt. Vermutlich muss ich das Listenfeld zunächst leeren und neu laden. Kann mir da jemand auf die Sprünge helfen? Habe den Code angehängt.

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Falsche Anzeige im Listenfeld
 24.09.2016 12:01:59 vbanob
NotSolved
24.09.2016 14:43:04 Gast94654
NotSolved
24.09.2016 21:02:30 vbnob
NotSolved
24.09.2016 21:26:17 vbanob1
Solved