title image


Smiley Re: Makro tut nicht seinen Dienst! Woran könnte es liegen?
Moin, Robert,



nach ein wenig umstellen schon:





Option Explicit



Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim lngLastRow As Long

If WorksheetFunction.Min(Worksheets("testtab").Range("A2:A6")) < 1 Then

  Cancel = True

Else

  If IsEmpty(Cells(Rows.Count, 1)) Then

    lngLastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

  Else

    lngLastRow = Rows.Count

  End If

  MsgBox lngLastRow

  MsgBox Cells(lngLastRow, 1).Value

End If

End Sub





Code eingefügt mit Syntaxhighlighter 4.0cu

jinx

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: