SVERWEIS VBA
09.01.2020 15:17:00
Kilic
ich habe ein Problem bzgl SVERWEIS:
Über einen UserForm gebe ich einen Wert in die nächst freigewordene Zelle in der Spalte A.
Bspw. die Zelle A9. Dann möchte ich durch einen SVERWEIS ein Wert in der Zelle B9 haben. Der Wert in der Zelle A9 soll in das gewünschte Tabellenblatt rein und in der Spalte 2 der Tabelle mir den gewünschte Wert holen und die Zelle B9 einfügen.
Formel von dem SVERWEIS:
=WENN(A9="";"";SVERWEIS(A9;Arbeitsplätze!A:G;2;FALSCH))
Der Code in VBA:
Private Sub Button_Take_Click()
'Einträge der Schaltflächen in die Arbeitsmappe übernehmen
ThisWorkbook.Sheets(MAE_Nummer.Text).Select
Dim last As Variant
last = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row + 1
ActiveSheet.Cells(last, 5).Value = meinFormular.Text_Minuten.Value
ActiveSheet.Cells(last, 6).Formula = "=IF(E" & last & "="""","""",E" & last & "/1440)"
ActiveSheet.Cells(last, 7).Value = Date
ActiveSheet.Cells(last, 1).Value = meinFormular.MAE_Nummer.Value
ActiveSheet.Cells(last, 8).Value = meinFormular.Auswahl_Ursache
ActiveSheet.Cells(6, 2).Value = meinFormular.Zustand_MAE
End Sub
vielen Dank im Voraus!
Freundliche Grüße
Kilic
Anzeige