Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

bei set wks : Laufzeitfehler '424': - Objekt erfor

Betrifft: bei set wks : Laufzeitfehler '424': - Objekt erfor von: Winter
Geschrieben am: 13.08.2014 19:59:40

Hallo
ich will ein Sheet erzeugen
Das klappt auch, aber dann steigt er in genau dieser Zeile aus und meldet 'Laufzeitfehler '424': - Objekt erforderlich'.
Jedesmal F8 drücken erzeugt ein weiteres Sheet. :) 


Sub t1
Dim wksdata As Worksheet

Set wksdata = Worksheets("GPL").Copy(After:=Worksheets("GPL"))
wksdata.Name = Timer

End Sub

Kann mir einer von euch sagen woran das liegen könnte?
Danke fürs lesen.

  

Betrifft: AW: bei set wks : Laufzeitfehler '424': - Objekt erfor von: {Boris}
Geschrieben am: 13.08.2014 21:26:04

Hi,

Sub t1()
Worksheets("GPL").Copy After:=Worksheets("GPL")
ActiveSheet.Name = Timer

End Sub
VG, Boris


  

Betrifft: AW: bei set wks : Laufzeitfehler '424': - Objekt erfor von: Winter
Geschrieben am: 14.08.2014 08:11:59

Hallo Boris,
danke für deine Hilfe. das löst das Problem, aber ich will um das aktive Sheet drum rum kommen. und ich brauche das Worksheet-Object für später. 

Sub t1()
Dim wksdata As Worksheet
Worksheets("GPL").Copy(After:=Worksheets("GPL"))
Set wksdata = ActiveSheet
wksdata.Name = Timer
End Sub

Mit .add funktioniert das ja auch, das ich das gleich zuweise.
Grüße


  

Betrifft: AW: bei set wks : Laufzeitfehler '424': - Objekt erfor von: {Boris}
Geschrieben am: 14.08.2014 10:35:59

Hi,

Mit .add funktioniert das ja auch, das ich das gleich zuweise.

Logisch. Die Add-Methode gibt auch ein Objekt zurück, die Copy-Methode aber nicht.

VG, Boris


  

Betrifft: AW: bei set wks : Laufzeitfehler '424': - Objekt erfor von: Fabian
Geschrieben am: 14.08.2014 11:19:42

Hallo Boris,
Ahhh
klar jetzt verstehe ich :) (Warum MS das so macht ist mir nicht klar, muss aber auch nicht)

DANKE
in Kurz Geht nicht ohne ActiveSheet . ;(


  

Betrifft: AW: bei set wks : Laufzeitfehler '424': - Objekt erfor von: Ewald
Geschrieben am: 14.08.2014 21:12:51

Hallo,

wenn du den Namen vorher vergibst,brauchst du wksdata auch nicht auf ActiveSheet zu setzen.

Sub t1()
 Dim wksdata As Worksheet
 Dim str As String
 str = "Timer"
 Worksheets("GPL").Copy After:=Worksheets("GPL")
 ActiveSheet.Name = str
 Set wksdata = Sheets(str)
 MsgBox wksdata.Name
 End Sub
Gruß Ewald


  

Betrifft: AW: bei set wks : Laufzeitfehler '424': - Objekt erfor von: Mullit
Geschrieben am: 15.08.2014 08:16:53

Hallo,

mit dem Index ginge es ohne....

Option Explicit

Sub test()
 Dim wksData As Worksheet
 With Worksheets("GPL")
     .Copy After:=Worksheets("GPL")
     Set wksData = Worksheets(.Index + 1)
 End With
 wksData.Name = "Timer"
 MsgBox wksData.Name
End Sub

Gruß,


  

Betrifft: AW: bei set wks : Laufzeitfehler '424': - Objekt erfor von: Mullit
Geschrieben am: 15.08.2014 09:13:47

Hallo,

...und ist so noch 'knackiger'...

Option Explicit

Sub test()
 Dim wksData As Worksheet
 With Worksheets("GPL")
     .Copy After:=Worksheets("GPL")
     Set wksData = .Next
 End With
 wksData.Name = "Timer"
 MsgBox wksData.Name
End Sub

Gruß,


 

Beiträge aus den Excel-Beispielen zum Thema "bei set wks : Laufzeitfehler '424': - Objekt erfor"

Fortlaufende Suche unter Vermeidung eines Laufzeitfehlers
UserForm-ComboBoxes als Collection-Objekte ansprechen
Hintergrundfarbe eines UserForm-Image-Objekts festlegen
Tabellenblattzeile mit SpreadSheet-Objekt überlagern