Letzter Spaltenwert mittels VBA aufrufen
Michael
ich habe folgendes Problem. In meiner Funktion GetData möchte ich den letzten Spaltenwert ermitten. Dabei möchte ich per Button diese dann in einem anderen Tabellenblatt aufrufen und in das aktuelle Tabellenblatt schreiben. Die VBA Lösung sieht folgendermaßen aus:
Sub GetData()
With Worksheets("ActiveSheet").Cells(1, 2) = GetLastValue("Data")
End Sub
Function GetLastValue(strSheet As String)
Dim Search As Integer
With Sheets(strSheet)
Search = .Cells(Rows.Count, 2).End(xlUp).Row
End With
End Function
Ich bekomme nur Compiler Fehler als Antwort :(. Das File habe ich mal hochgelden:
https://www.herber.de/bbs/user/81547.xlsm
Danke für jede Hilfe.
Viele Grüße,
Michael
Anzeige