If ComboBox2.ListIndex -1 Then
TextBox6.Text = Cells(1, "B").Offset(ComboBox2.ListIndex, 0)
TextBox7.Text = Cells(1, "C").Offset(ComboBox2.ListIndex, 0)
Else
MsgBox "Nicht in Liste"
End If
Private Sub UserForm_Activate()
Dim arr
With Me.ComboBox1
.ColumnCount = 1
arr = Workbooks("Lieferanten.xlsm").Sheets("Kunden").Range("A1:A65536")
.List = arr
End With
Dim arra
With Me.ComboBox2
.ColumnCount = 1
arra = Worksheets("Artikelstamm").Range("A1:A65536")
.List = arra
End With
With Me.ComboBox3
.ColumnCount = 1
arra = Worksheets("Artikelstamm").Range("A1:A65536")
.List = arra
End With
With Me.ComboBox4
.ColumnCount = 1
arr = Workbooks("Kostenstellen.xlsm").Sheets("Konten").Range("B1:B65536")
.List = arr
End With
Me.TextBox13.Value = Format(Now, "dd.mm.yyyy")
Me.TextBox14.Value = Format(Now, "dd.mm.yyyy")
ComboBox1.ListIndex = 0
ComboBox2.ListIndex = 0
ComboBox3.ListIndex = 0
ComboBox4.ListIndex = 0
End Sub
| A | |
| 13 | 1602,005 |
| 14 | 1700,0025 |
| 15 | 3007,401 |
| 16 | 5000,02 |
| Formatierte Tabellen (Artikelstamm) | |||
| Bereich | Name | Vorlage | Vorlage orig. |
| $A$1:$E$176 | Tabelle1 | Tabellenformat - Mittel 2 | TableStyleMedium2 |
| Excel-Inn.de |
| Hajo-Excel.de |
| XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007 |
| Add-In-Version 25.14 einschl. 64 Bit |