Aktive Zelle
01.11.2019 12:52:20
Marc
ich möchte mit folgender Funktion die Daten einer Zelle auslesen und wenn der entsprechende String enthalten ist soll die Funktion mir einen Wert zurückgeben und in der Zelle anzeigen in der ich die Funktion verwende.
Ich habe es mit der ActiveCell Methode versucht aber irgendwie klappt das nicht weil VBA scheinbar immer auf die Zelle als Referenz zugreift, die aktuell selektiert ist. Ich möchte aber immer den Row-Wert der nächsten Zelle in der Tabelle wenn ich die Formel in meinem Excel runterziehe(sorry ein anderer Begriff fällt mir nicht ein dafür).
Das ist der Code:
Private Function Kostenstelle(ByVal Club As String) As String
Dim Row As Long
Row = Application.ActiveCell.Row
Dim StrZelle As String
StrZelle = Application.ActiveSheet.Cells(Row, 5)
If InStr(StrZelle, "MTZ") > 0 Then Kostenstelle = "1014"
End Function
VG,
Marc
Anzeige