Hallo zusammen,
habe leider ein Problem:
Ich möchte, wenn ich in die Zeile A9 einen Wert eingebe durch Userform, dass in der Zelle B9 durch einen SVERWEIS basierend auf A9, die Zelle aus dem gewünschten Tabellenblatt den geünschten Wert auswählt.
Folgende Formel habe ich für die Zelle:
=WENN(A9="";"";SVERWEIS(A9;Arbeitsplätze!A:G;2;FALSCH))
Wie kann ich die Formel in mein Makro einbauen?
Mein Code bisher:
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
Diesen Code habe ich gebastelt für den SVERWEIS:
'ActiveSheet.Cells(last, 2).Formula = "=IF(A" & last& "="""", """",SVERWEIS(A "&last&";Arbeitsplätze!A:G;3;FALSCH))
End Sub
vielen Dank im Voraus!
|