Range - problem



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Range - problem
von: Thorsten
Geschrieben am: 18.07.2002 - 08:28:18

Tag allerseits habe ein problem!

der code sieht folhendermassen aus:
1)
Private Sub Workbook_BeforePrint(Cancel As Boolean)

drucken
Cancel = True

End Sub

sub drucken:

Worksheets("R_T Kennlinie").Activate
Range("B2").Select
ActiveCell = "=COUNTA(B21:G21)"
If ActiveCell.Value > 0 Then ActiveSheet.PrintOut from:=1, to:=1:

allerdings zeigt er nun einen fehler bei der zeile range("B2").select an

fehler: methode range für objekt _global fehlgeschlagen


hilfe!!!!

nach oben   nach unten

Re: Range - problem
von: Hans W. Herber
Geschrieben am: 18.07.2002 - 10:46:00

Hallo Thorsten,

selektieren und aktivieren ist in der VBA-Programmierung Teufelszeugs. Wie folgt:


Private Sub Workbook_BeforePrint(Cancel As Boolean)
   If WorksheetFunction.CountA( _
      Worksheets("R_T Kennlinie") _
      .Range("B21:G21")) = 0 Then
      Cancel = True
   End If
End Sub

hans

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Range - problem"