SVerweis mit mehreren Kriterien als Mark

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Dom,
leider keine Musterdatei, keine Spaltenangaben ... so kann ich nur grob helfen.
Makro-Rekordere einmal die Formel. Das könnte dann so aussehen, je nachdem wo du die Formel plazierst:


ActiveCell.Formula2R1C1 = _
"=VLOOKUP(R[-4]C1&R[-4]C2&R[-4]C4,CHOOSE({1.23},Tabelle2!R3C1:R1000C1&Tabelle2!R3C2:R1000C2&Tabelle2!R3C4:R1000C4,Tabelle2!R3C5:R1000C5),2,FALSE)"

Das ganze baust du dann in ein Makro ein:


Sub Makro1()
Dim lRow As Long
With Tabelle1
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("G1:G" & lRow).FormulaR1C1 = "=VLOOKUP(R[-4]C1&R[-4]C2&R[-4]C4,CHOOSE({1.23},Tabelle2!R3C1:R1000C1&Tabelle2!R3C2:R1000C2&Tabelle2!R3C4:R1000C4,Tabelle2!R3C5:R1000C5),2,FALSE)"
.Range("G1:G" & lRow).Value = .Range("G1:G" & lRow).Value
End With
End Sub

Je nachdem wo deine Formel stehen soll und aus welcher Spalte die letzte Zeile ermittelt wird musst du das natürlich umschreiben.
Einfacher wäre es alllerdings, schlicht die automatische Berechnung abzuschalten und per F9 zu rechnen, wenn du Zeit hast und Ergebnisse brauchst. Das ginge dann völlig ohne VBA.
LG,
Klaus M.

Sub Makro1() Dim lRow As Long With Produktion lRow = .Cells(.Rows.Count, 1).End(xlUp).Row ActiveCell.Formula2R1C1 = _ .Range("I1:I" & lRow).FormulaR1C1 = "=IFNA(VLOOKUP(RC1&RC2&RC4,CHOOSE({1,2,3},BMI!R3C1:R6000C1&BMI!R3C2:R6000C2&BMI!R3C4:R6000C4,BMI!R3C5:R6000C5),2,FALSE),"""")" .Range("I1:I" & lRow).Value = .Range("I1:I" & lRow).Value End With End Sub

Sub Makro1() Dim lRow As Long With Sheets("Produktion") lRow = .Cells(.Rows.Count, 1).End(xlUp).Row .Range("I4:I" & lRow).FormulaR1C1 = "=IFNA(VLOOKUP(RC1&RC2&RC4,CHOOSE({1,2,3},BMI!R3C1:R6000C1&BMI!R3C2:R6000C2&BMI!R3C4:R6000C4,BMI!R3C5:R6000C5),2,FALSE),"""")" .Range("I4:I" & lRow).Value = .Range("I4:I" & lRow).Value End With End Sub

Sub Makro1() Dim lRow As Long With Sheets("Produktion") lRow = .Cells(.Rows.Count, 1).End(xlUp).Row .Range("I4:I" & lRow).FormulaR1C1 = "=IFERROR(INDEX(BMI!C5,MATCH(RC1&RC2&RC4,BMI!C6,)),"""")" .Range("I4:I" & lRow).Value = .Range("I4:I" & lRow).Value End With End Sub

Hallo DOM,
offtopic:
du solltest lernen, auf allzuviele "Select" zu verzichten. Beispiel in deiner Userform1:


With Produktion
Range("B1048576").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell = ComboBox1.Text
End With

Davon abgesehen dass "With Prouktion" hier nichts macht, da es das Sheet intern nicht "Produktion" sondern "Tabelle2" heißt, geht dies auch in einer Zeile und ganz ohne Select:


Sheets("Produktion").Range("B1048576").End(xlUp).Offset(1, 0).Value = ComboBox1.Text

Das ist 100 mal schneller und bewegt außerdem den Cursor nicht, wodurch der Bildschirm auch nicht mehr so blöd flackert.
Offtopic2:
Benenne deine Objekte! Statt "Combobox1" solltest du das Objekt in "ComboBox_Datum" umbenennen und auch entsprechend referenzieren. Bei zwei, drei Objekten in der Userform mag das noch nicht nötig sein, aber wenn dein Code weiter wächst verlierst du sonst komplett den Überblick.
LG,
Klaus M.

Beliebteste Forumthreads (12 Monate)

SVerweis mit mehreren Kriterien als Mark

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

SVerweis mit mehreren Kriterien als Mark

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread