Mit Combobox suchen und in der Zeile einsetzen

Forumthread: Mit Combobox suchen und in der Zeile einsetzen

08.02.2019 09:02:31

Maurice

Hallo Liebe VBA Profis,
ich bin im Moment verzweifelt auf der Suche nach einer Lösung. Google hat mich jetzt nach 3 Tagen Suchen auch nicht weiter gebracht.
Ich habe eine AutoForm, in der Daten eingetragen werden. Aus einer Combobox soll nach einem Wert in einem Tabellenblatt in Spalte 1 gesucht werden. In der entsprechenden Zeile sollen dann die anderen Werte jeweils in festen Spalten (z.B. TextBox1 Spalte 7, TextBox2 Spalte 9...)eingetragen werden. Die Lösung kann nicht schwer sein. Ich scheitere daran aber...
Der Suchwert ist immer einmalig, es reicht also eine einfache .find Lösung.
Vielen Dank schon jetzt!
LG
Maurice

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mit Combobox suchen und in der Zeile einsetzen

08.02.2019 10:50:44

hary
AW: Mit Combobox suchen und in der Zeile einsetzen

08.02.2019 11:11:02

Maurice
AW:mein Fehler

08.02.2019 11:30:41

hary
AW: AW:mein Fehler

08.02.2019 11:42:38

Maurice

AW: Mit Combobox suchen und in der Zeile einsetzen

08.02.2019 10:50:44

hary

Moin
Mit Autoform meinst du UserForm?

Private Sub CommandButton1_Click()
Dim wks As Worksheet
Dim a As Variant
Set wks = Worksheets("Tabelle1") '--ggf. Blattname anpassen
a = Application.Match(ComboBox1, .Columns(1), 0) '--ggf. Cbo-name anpassen
If IsNumeric(a) Then
'--"vorhanden"
.Cells(a, 7) = TextBox1
.Cells(a, 9) = TextBox2
'--usw---
End If
Set wks = Nothing
End Sub

gruss hary

AW: Mit Combobox suchen und in der Zeile einsetzen

08.02.2019 11:11:02

Maurice

Danke Hary,
Habe das mal eingebaut bei mir. Leider bekomme ich eine Fehlermeldung: Unzulässiger oder nicht definierter Verweis.


Private Sub ButtonTake_Click()
Workbooks("Mappe1.xlsm").Activate
Dim wks As Worksheet
Dim a As Variant
Set wks = Worksheets("Daten_BTR")
a = Application.Match(BoxBTR, .Columns(1)[HIER KOMMT DER FEHLER] ,0) '--ggf. Cbo-name  _
anpassen
If IsNumeric(a) Then
'--"vorhanden"
.Cells(a, 7) = TextBoxDatum
.Cells(a, 12) = TextBoxRanking
.Cells(a, 13) = TextBoxStruktur
.Cells(a, 14) = TextBoxKonflikt
.Cells(a, 15) = TextBoxZugang
.Cells(a, 16) = TextBoxThema
.Cells(a, 9) = BoxABC
'--usw---
End If
Set wks = Nothing
Unload DateneingabeBaustein1
End Sub

AW:mein Fehler

08.02.2019 11:30:41

hary

Moin
Sry, mein Fehler. Habe die with Anweisung vergessen.

Private Sub ButtonTake_Click()
Workbooks("Mappe1.xlsm").Activate
Dim wks As Worksheet
Dim a As Variant
Set wks = Worksheets("Daten_BTR")
With wks
a = Application.Match(BoxBTR, .Columns(1), 0) '--ggf. Cbo-name anpassen
If IsNumeric(a) Then
'--"vorhanden"
.Cells(a, 7) = TextBoxDatum
.Cells(a, 12) = TextBoxRanking
.Cells(a, 13) = TextBoxStruktur
.Cells(a, 14) = TextBoxKonflikt
.Cells(a, 15) = TextBoxZugang
.Cells(a, 16) = TextBoxThema
.Cells(a, 9) = BoxABC
'--usw---
End If
End With
Set wks = Nothing
Unload DateneingabeBaustein1
End Sub

gruss hary

AW: AW:mein Fehler

08.02.2019 11:42:38

Maurice

SUPER!
Hat geklappt. Auf das fehlende with hätte ich auch kommen können.
Danke danke danke!!

Beliebteste Forumthreads (12 Monate)

Mit Combobox suchen und in der Zeile einsetzen

Forumthread: Mit Combobox suchen und in der Zeile einsetzen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread