bestimmter Wert in Textbox
Ingo
ich habe eine Exceltabelle, die wie folgt aussieht:
Tabelle1
| B | C | D | |
| 1 | Datum | Zweck | Betrag |
| 2 | 27.01.2011 | Einkauf | 1,00 |
| 3 | 27.01.2011 | Essen | 2,00 |
| 4 | 27.01.2011 | Unterkunft | 3,00 |
| 5 | 28.01.2011 | Einkauf | 4,00 |
| 6 | 28.01.2011 | Essen | 5,00 |
| 7 | 28.01.2011 | Unterkunft | 6,00 |
| 8 | 29.01.2011 | Einkauf | 7,00 |
| 9 | 29.01.2011 | Essen | 8,00 |
| 10 | 29.01.2011 | Unterkunft | 9,00 |
| 11 | 30.01.2011 | Einkauf | 10,00 |
| 12 | 30.01.2011 | Essen | 11,00 |
| 13 | 30.01.2011 | Unterkunft | 12,00 |
Tabellendarstellung in Foren Version 5.43
Dazu habe ich eine Userform, womit das Datum mit einer Combobox ausgewählt wird. In der Combobox wird jeweils das Datum nur einmal aufgeführt und die Beträge aller drei Zwecke in Textboxen dargestellt.
Hier der Code dazu:
Private Sub UserForm_Initialize()
Dim Zelle As Range
For Each Zelle In Worksheets("Tabelle1").Range("B:B")
If IsDate(Zelle.Value) Then
If Zelle.Offset(-1, 0).Value Zelle.Value Then
ComboBox1.AddItem Zelle
End If
End If
Next
End Sub
Der Code dazu:
Private Sub ComboBox1_Change()
TextBox1 = Worksheets("Tabelle1").Cells(ComboBox1.ListIndex + 2, 4)
TextBox2 = Worksheets("Tabelle1").Cells(ComboBox1.ListIndex + 3, 4)
TextBox3 = Worksheets("Tabelle1").Cells(ComboBox1.ListIndex + 4, 4)
End Sub
https://www.herber.de/bbs/user/74903.xls
Kann mir jemand dabei weiterhelfen?
Gruß
Ingo