Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

SVERWEIS VBA

SVERWEIS VBA
09.01.2020 15:17:00
Kilic
Hallo zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SVERWEIS VBA
09.01.2020 16:23:51
Werner
Hallo,
so:
ActiveSheet.Cells(last, 2).Formula =  _
"=IF(A" & last & "="""","""",VLOOKUP(A" & last & "Arbeitsplätze!A:G,2,0))"
Gruß Werner
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige