VBA Zeile finden und Werte dort eintrage

Hallo,
Ich möchte eine Zeile Anhand eines Wortes in einer Combobox (TextBox_caption) finden. In diese Zeile möchte ich dann Werte eintragen. Ich habe versucht es hinzubekommen, hat aber nicht geklappt.
Mit dem hab ichs versucht:


Dim last As Integer, last1 As Integer
last1 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
If ActiveSheet.Columns(1).Find(what:=Range("A1").Value, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext).Row = NewProduct.TextBox_caption.Value Then
If MsgBox("Produktname schon verwendet, überschreiben? (AA1)", vbOKCancel) = vbOK Then
last = ActiveSheet.Columns(1).Find(what:=Range("A1").Value, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext).Row
Else
Exit Sub
End If
Else
last = last1
End If
Weiter gehts dann ungefähr so:
ActiveSheet.Cells(last, 11).Value = NewProduct.ComboBox1_category.Value
ActiveSheet.Cells(last, 12).Value = NewProduct.ComboBox_basiccategory.Value

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub aaa() Dim last As Long Dim rngF As Range Set rngF = ActiveSheet.Columns(1).Find( _ what:=NewProduct.TextBox_caption.Value, LookIn:=xlValues, _ lookat:=xlWhole, searchdirection:=xlNext) If Not rngF Is Nothing Then If MsgBox("Produktname schon verwendet, überschreiben? (AA1)", vbOKCancel) = vbOK Then last = rngF.Row Else Exit Sub End If Else last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 End If ActiveSheet.Cells(last, 11).Value = NewProduct.ComboBox1_category.Value ActiveSheet.Cells(last, 12).Value = NewProduct.ComboBox_basiccategory.Value End Sub

Private Sub TextBox_caption_Change() Dim last As Range Set last = ActiveSheet.Columns(1).Find( _ what:=NewProduct.TextBox_caption.Value, LookIn:=xlValues, _ lookat:=xlWhole, searchdirection:=xlNext) If Not last Is Nothing Then NewProduct.ComboBox1_category.Value = ActiveSheet.Cells(last, 11).Value NewProduct.TextBox_price.Value = ActiveSheet.Cells(last, 16).Value Else Exit Sub End If End Sub

Dim rngF As Range Dim last As Long Set rngF = ActiveSheet.Columns(1).Find( _ what:=NewProduct.TextBox_caption.Value, LookIn:=xlValues, _ lookat:=xlWhole, searchdirection:=xlNext) last = rngF.Row If Not rngF Is Nothing Then ......

Beliebteste Forumthreads (12 Monate)

VBA Zeile finden und Werte dort eintrage

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Zeile finden und Werte dort eintrage

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread