title image


Smiley Methode Range für das Objekt Worksheet ist fehlgeschlagen ????
Ich habe 50 Blätter, die alle exakt gleich sind.

Das unten stehende Modul steht in allen 50 Blättern unter Worksheet...Activate.



Ich habe den Rangebereich("Eintrag") für alle Blätter gleich definiert.

Es gibt also diesen Bereich im Grunde genommen 50 mal.

Das ist mit anderen Bereichen auch so. Und die Daten werden alle in eine Übersicht übertragen.



Jetzt wollte ich mit Worksheet.Activate es so einrichten, dass bei Aktivierung des Blattes gleich die erste leere Zelle in diesem Bereich selektiert wird.

Aber es kommt die Meldung:



"Die Methode Range für das Objekt Worksheet ist fehlgeschlagen."

Habe alles probiert, activesheet.range.......oder....worksheets.range......

aber es bleibt dabei.

Was muss ich denn an meiner FOR.....NEXT-Schleife ändern, damit das auf allen 50 Blätter funktioniert?

Gruß Achim



Private Sub Worksheet_Activate()

For x = 1 To Range("Eintrag").Cells.Count

If Range("Eintrag").Cells(x) = "" Then

Range("Eintrag").Cells(x).Select

Exit Sub

End If

Next x

End Sub





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: