Wert aus letzer gefüllter Zelle in Fußzeile
25.09.2017 18:37:42
Hase
vielleicht könnt ihr mir ja weiterhelfen. Ich seh glaub den Wald vor lauter Bäumen nicht mehr...
Also folgendes: aus worksheet 1 möchte ich die letzte gefüllte Zeile in Spalte B finden und den Wert in Worksheet 2 in die Fußzeile übernehmen.
Code klappt soweit ganz gut, nur dass er mir die Zeilenzahl statt den Wert ausgibt.
Ich hab schon alles mögliche versucht, mich aber vom Ziel immer weiter entfernt...
Was hab ich vergessen?
Hier mal der Code:
Private Sub Worksheet_Activate()
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim LastRow As Long
Application.ScreenUpdating = False
Set wks1 = ActiveWorkbook.Worksheets("AB")
Set wks2 = ActiveWorkbook.Worksheets("CD")
With wks1
LastRow = wks1.Cells(Rows.Count, 2).End(xlUp).Row
End With
wks2.PageSetup.RightFooter = wks1.Range("D3") & " " & wks1.Range("D4") & _
Chr(13) & _
wks1.Range("D6").Text & "_Rev" & LastRow
wks2.PageSetup.LeftFooter = wks1.Range("D31").Text & " / " & wks1.Range("C31").Text
Application.ScreenUpdating = True
End Sub
Anzeige