Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.06.2024 19:56:24
17.06.2024 19:39:46
Anzeige
Archiv - Navigation
1276to1280
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

Letzter Spaltenwert mittels VBA aufrufen

Letzter Spaltenwert mittels VBA aufrufen
Michael
Hallo Experten,
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

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

Betreff
Benutzer
Anzeige
AW: Letzter Spaltenwert mittels VBA aufrufen
23.08.2012 20:16:24
Josef

Hallo Micheal,
' **********************************************************************
' Modul: Module1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub GetData()
  
  ActiveSheet.Cells(1, 2) = GetLastValue("Data")
  
End Sub

Function GetLastValue(strSheet As String) As Variant
  
  With Sheets(strSheet)
    GetLastValue = .Cells(.Rows.Count, 2).End(xlUp).Value
  End With
  
End Function


btw das geht auch per Formel!

« Gruß Sepp »

Anzeige
AW: Letzter Spaltenwert mittels VBA aufrufen
23.08.2012 20:24:12
Michael
Hallo Sepp,
Das ging schnell und genau das habe ich gesucht. Danke :).
VG
Michael

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige