title image


Smiley Makro tut nicht seinen Dienst! Woran könnte es liegen?
Hallo,



folgendes Ereignismakro verhindert nicht den Ausdruck, wenn in Spalte A eine 0 steht, was es eigentlich tun sollte. Was ist der Grund für das Nichtfunktionieren?



Private Sub workbook_beforePrint(cancel As Boolean)



If IsEmpty(Cells(65536, 1)) Then

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

'Funktion zur Berechnung der letzten belegten ZeilenNR

Else

letzteZeilenNr = 65536

End If



MsgBox letzteZeilenNr

MsgBox Cells(letzteZeilenNr, 1).Value



'If WorksheetFunction.Min(Worksheets("testtab").Range(Cells(2, 1), Cells(letzteZeilenNr, 1))) < 1 Then



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



cancel = True

Else

cancel = False

End If



End Sub



Gruß



Robert



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: