Office: (Office 2013) Mal wieder letzte benutzte Zelle per VBA ermitteln

Guten Abend,

ich sitze hier vor einem für mich schier unlösbarem Problem.

Ich möchte in der gerade aktiven Tabelle die letzte benutzte Zelle in Spalte A ermitteln und den Wert aus der danebenliegenden Zelle Spalte B in eine TextBox eines Userform übergeben. Ich habe wenig Ahnung von VBA und suche nun schon eine Ewigkeit im Netz. Die letzte Zelle zu ermitteln gelingt mir schon, nur der Rest eben nicht. Kann mir an dieser Stelle bitte jemand den Code dafür verraten. Vielen Dank schon mal im Voraus für die Mühe.

Schönen 1. Mai wünscht Bernd

 

Ich vergaß zu erwähnen, dass in Spalte B in den jeweiligen Zellen Formeln stehen. Natürlich soll in der TextBox das Ergebnis angezeigt werden.

 

Hallo

na wenn du die letzte beschriebene Zeile ermittelst hast
dann auf diese Weise

Cells(letzteZeile,2).Value

MfG Tom

 

Vielen Dank für die schnelle Hilfe. Kann es jetzt leider nicht ausprobieren, werde es aber gleich morgen tun und dann Rückmeldung geben.

MfG Bernd

 

Hallo Tom,

ich habe es eben versucht, habe aber keinen Schimmer, wo ich den Lösungsvorschlag einarbeiten muss.

Folgende habe ich bisher im Userform:

Private Sub UserForm_Activate()

Dim wks As Worksheet
Set wks = ActiveSheet

Me.tboRgNr.Text = wks.Cells(Rows.Count, 1).End(xlUp).Value

End Sub

Damit erhalte ich in der TextBox den Wert der letzten Zelle Spalte A des aktiven Blattes. Wie bitte kann ich deinen Vorschlag darin verwirklichen?

MfG Bernd

 

Hallo

probier es mal so

Code:

Private Sub UserForm_Activate()
Dim wks As Worksheet
Dim lngLetzte As Long
Set wks = ActiveSheet
lngLetzte = wks.Cells(Rows.Count, 1).End(xlUp).Row
Me.tboRgNr.Text = wks.Cells(lngLetzte, 2).Value
End Sub

MfG Tom

 

Hallo Tom,

vielen Dank für die superschnelle Hilfe. Damit geht es exakt so, wie ich es brauche.

Schönen Abend noch.

Mfg Bernd