Datumswerte SVERWEIS Combobox

Forumthread: Datumswerte SVERWEIS Combobox

27.04.2017 10:36:44

Christian

Moin alle zusammen,
Problem:
In einen Formular(Userform) habe ich eine Combobox, welche mir Werte aus der Tabelle Grafik anzeigt. Im Combofeld wird dann ein bestimmter Wert rausgezogen. In den darunter liegenden Textfelder sollen dann Datumswerten zum Wert aus einer anderen Tabelle Planung rauszieht.
Mein Code bis jetzt. Zudem sind in einen paar Zeilen keine Werte vorhanden, daher mein Versuch mit SpecialCells.
Fehlermeldung:
Eigenschaft Value konnte nicht gesetzt werden.Typenkonflikt


Private Sub ComboBox1_Change()
Me.TextBoxMSN = Me.ComboBox1.Column(0)
'Sverweis aus Tabelle Planung
'CF-1
Me.TextCF_1.Value = WorksheetFunction.VLookup([F2:F32], Sheets("Planung").[B1:V32], 5,  _
False)
On Error Resume Next
[F2:F32].SpecialCells(xlCellTypeConstants, 16).ClearContents
'CF-2
Me.TextCF_2.Value = WorksheetFunction.VLookup([J2:J32], Sheets("Planung").[B1:V32], 9,  _
False)
On Error Resume Next
[J2:F32].SpecialCells(xlCellTypeConstants, 16).ClearContents
'CF-3
Me.TextCF_3.Value = WorksheetFunction.VLookup([N2:N32], Sheets("Planung").[B1:V32], 13,  _
False)
On Error Resume Next
[N2:N32].SpecialCells(xlCellTypeConstants, 16).ClearContents
'CF-4
Me.Text_CF4.Value = WorksheetFunction.VLookup([R2:R32], Sheets("Planung").[B1:V32], 17,  _
False)
On Error Resume Next
[R2:F32].SpecialCells(xlCellTypeConstants, 16).ClearContents
'CF-5
Me.Text_CF5.Value = WorksheetFunction.VLookup([V2:V32], Sheets("Planung").[B1:V32], 21,  _
False)
On Error Resume Next
[V2:V32].SpecialCells(xlCellTypeConstants, 16).ClearContents
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Grafik!B7:B34"
End Sub

Vielen Dank für eure Mühe
Viele Grüße
Christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datumswerte SVERWEIS Combobox

27.04.2017 11:02:17

ChrisL

Hi Christian
Der erste Wert vom Sverweis ist das Suchkriterium und nicht eine Matrix/Bereich.
=SVERWEIS(Suchkriterium, Matrix, Spaltenindex, [Bereich Verweis])
Für die nächsten Schritte bitte um Beispieldatei, weil die Datentypen müssen vermutlich noch umgewandelt werden, was man nur anhand des Codes nicht beurteilen kann.
cu
Chris

AW: Datumswerte SVERWEIS Combobox

27.04.2017 11:08:26

Christian

Moin Chris,
ich denke bei der Umwandlung liegt das Problem. Das Suchkriterium soll der Wert in der Combobox sein. Kann ich im Sverweis auf diesen Wert verweisen? Bzw. auf mein Textfeld in der Userform? Wie bekomme ich die Umwandlung in Datumswerte in VBA hin?
Vielen Dank
Viele Grüße
Chris

AW: Datumswerte SVERWEIS Combobox

27.04.2017 11:36:47

Werner

Hallo Christian,

Private Sub ComboBox1_Change()
Me.TextCF_1 = Format(WorksheetFunction.VLookup(Me.ComboBox1.Column(0), _
Sheets("Planung").Range("B1:V32"), 5, False), "DD.MM.YYYY")
End Sub

Gruß Werner

AW: Datumswerte SVERWEIS Combobox

27.04.2017 12:29:38

Christian

Oh man Werner, du bist mein Held :) Wahnsinn, es läuft.
Vielen Dank
Viele Grüße
Christian

AW: Gerne u. Danke für die Rückmeldung. o.w.T.

27.04.2017 13:44:48

Werner

Beliebteste Forumthreads (12 Monate)

Forumthread: Datumswerte SVERWEIS Combobox

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread