VBA Datum suchen - Wert einfügen

Set ZWB = ThisWorkbook Set QWB = Workbooks("Test.xls") With ZWB.Worksheets("Database") .Cells(12, .Cells(12, .Columns.Count).End(xlToLeft).Column + 1) = _ QWB.Worksheets(Test2").Range("B210").Value End With

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim varDatum As Variant varDatum = Application.Match(QWB.Worksheets("Test2").Range("B204"), .Rows(5), 0) If IsError(varDatum) Then MsgBox "Datum nicht gefunden" Else MsgBox "Datum gefunden in Spalte " & varDatum End If

Liebe Karin,
vielen Dank für Deine schnelle Antwort :)
Könnte ich nun deine Match Funktion auch anstelle meines "Column+1" in die Funktion integrieren?
Ich habs mal ausprobiert, leider geht das so nicht - Hast Du eine Idee, wie das funktionieren könnte?
VBA mit Column +1, was ersetzt werden soll

Set ZWB = ThisWorkbook
Set QWB = Workbooks("Test.xls")
With ZWB.Worksheets("Database")
.Cells(12, .Cells(12, .Columns.Count).End(xlToLeft).Column + 1) = _
QWB.Worksheets(Test2").Range("B210").Value
End With

Test mit Match, funktioniert nicht:

   Set ZWB = ThisWorkbook
Set QWB = Workbooks("SCM-JW-Lagermonitor.xls")
With ZWB.Worksheets("Database")
.Cells(12, .Cells(12, .Columns.Count).End(xlToLeft).Application.Match(QWB.Worksheets(" _
Test2").Range("B204"), .Rows(5), 0)= _
QWB.Worksheets("DAT_Lagermonitor").Range("B210").Value

Vielen Dank schon mal für jegliche Hilfe :)

Liebe Karin,
ich weiß, ich stelle mich bestimmt total blöd an, aber leider komme ich nicht weiter.
Auch verschiedene Versuche mit Klammer/ohne Klammer etc. hat nicht funktioniert, hier einmal ein Bsp:


With ZWB.Worksheets("Database")
.Cells(12, .Cells(12, .Column (Application.Match(QWB.Worksheets("Test2").Range("B204"),  _
.Rows(5), 0))= _
QWB.Worksheets("DAT_X").Range("B210").Value
End With

Kann mir jemand helfen das Application match richtig einzubauen? Ich kann es auch gerne getrennt verwenden. Ich möchte allerdings keine Message Box mit dem Output, sondern dass der Wert automatisch reingeschrieben wird.
Und mit dem Datum finden dürfte es kein Problem sein, da ich das ganze Jahr betrachte :-)
Vielen Dank und viele Grüße :-)

Dim varDatum As Variant varDatum = Application.Match(QWB.Worksheets("Test2").Range("B204"), .Rows(5), 0) If IsError(varDatum) Then MsgBox "Datum nicht gefunden" Else With ZWB.Worksheets("Database") .Cells(12, varDatum) = QWB.Worksheets("Test2").Range("B210").Value End With End If

Beliebteste Forumthreads (12 Monate)

VBA Datum suchen - Wert einfügen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

324 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Datum suchen - Wert einfügen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

324 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread