Thema Datum  Von Nutzer Rating
Antwort
Rot UserForm Listbox
 24.03.2015 15:58:58 Strolchi
NotSolved

Ansicht des Beitrags:
Von:
Strolchi		 Datum:
24.03.2015 15:58:58		 Views:
1390		 Rating:
     
Antwort:
  Ja
Thema:
UserForm Listbox

Vielleicht kann mir hier jemand weiterhelfen, ich bin langsam am verzweifeln. Ich habe mir eine UserForm erstellt in Excel um jeden Tag Daten einzupflegen. Soweit habe ich auch alles hinbekommen, nun habe ich nur noch ein Problem. Ich suche in der Listbox einen Eintrag ruas klicke diesen an, dann springt er im Excel Sheet an die richtige stelle, soweit alles perfekt. Nun möchte ich das er mir die Inhalte der Textboxen auch aktualisiert wenn ich in eine andere Spalte klicke, das macht er auch soweit nur nicht wenn ich einen Eintrag mit dem gleichen Bezug habe. Ich vermute es ist nur ein kleiner Fehler in meinem Code aber leider komme ich hier nicht weiter.

 

?
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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Private Sub ListBox1_Click()
   Dim lZeile As Long
        
     TextBox5 = ""
     TextBox6 = ""
     TextBox7 = ""
     TextBox8 = ""
     TextBox11 = ""
     TextBox12 = ""
     TextBox13 = ""
     TextBox14 = ""
     TextBox15 = ""
     TextBox16 = ""
     TextBox17 = ""
     TextBox18 = ""
     TextBox19 = ""
     TextBox20 = ""
     TextBox21 = ""
     TextBox22 = ""
     TextBox23 = ""
     TextBox24 = ""
        
     If ListBox1.ListIndex >= 0 Then
      
         lZeile = 2
         Do While Trim(CStr(Tabelle1.Cells(lZeile, 3).Value)) <> ""
          
             If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 3).Value)) Then
              
                 
                 TextBox1 = Trim(CStr(Tabelle1.Cells(lZeile, 3).Value))
                 TextBox2 = Tabelle1.Cells(lZeile, 8).Value
                 TextBox3 = Tabelle1.Cells(lZeile, 9).Value
                 TextBox4 = Tabelle1.Cells(lZeile, 10).Value
                 TextBox5 = Tabelle1.Cells(lZeile, 19).Value
                 TextBox6 = Tabelle1.Cells(lZeile, 20).Value
                 TextBox7 = Tabelle1.Cells(lZeile, 21).Value
                 TextBox8 = Tabelle1.Cells(lZeile, 22).Value
                 TextBox9 = Tabelle1.Cells(lZeile, 24).Value
                 TextBox10 = Tabelle1.Cells(lZeile, 25).Value
                 TextBox11 = Tabelle1.Cells(lZeile, 26).Value
                 TextBox12 = Tabelle1.Cells(lZeile, 27).Value
                 TextBox13 = Tabelle1.Cells(lZeile, 28).Value
                 TextBox14 = Tabelle1.Cells(lZeile, 30).Value
                 TextBox15 = Tabelle1.Cells(lZeile, 31).Value
                 TextBox16 = Tabelle1.Cells(lZeile, 32).Value
                 TextBox17 = Tabelle1.Cells(lZeile, 34).Value
                 TextBox18 = Tabelle1.Cells(lZeile, 37).Value
                 TextBox19 = Tabelle1.Cells(lZeile, 38).Value
                 TextBox20 = Tabelle1.Cells(lZeile, 41).Value
                 TextBox21 = Tabelle1.Cells(lZeile, 43).Value
                 TextBox22 = Tabelle1.Cells(lZeile, 44).Value
                 TextBox23 = Tabelle1.Cells(lZeile, 45).Value
                 TextBox24 = Tabelle1.Cells(lZeile, 49).Value
                  
                                               
                  
                               
                 Exit Do
              
             End If
          
             lZeile = lZeile + 1
          
         Loop
         End If
         Cells(ListBox1.ListIndex + 2, 3).Select
         End Sub

 

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 UserForm Listbox
 24.03.2015 15:58:58 Strolchi
NotSolved