Ich habe zwecks Verständnis die Datei angehängt.
https://www.herber.de/bbs/user/125844.xlsm
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 |