error '438' und kopieren haut net hin
12.10.2005 09:03:28
Daniel
Mein Code bringt mir eine Fehlermeldung und bei kopieren schauflt er den Inhalt der zellen nicht rüber.
Mit meiern Fehlermeldung kann ich leider nicht viel Anfangen. "Object doesn't support this property or method." Was bedeutet sie und wie kann ich den Fehler beheben.
In dem Abschnitt des Codes kopieren. geht er zwar in das neu angelegte Tabellenblatt aber er schreibt nicht den Inhalt der Zellen rein.
Vielen Dank für eure Hilfe. Daniel
Hier mein Code:
Private Sub Page1Ok_Click()
Sheets("Grafiken T1&T2").Select
Sheets.Add
Anzahl = Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row
Zeilen = Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row
'For z = 1 To 28
If CheckBox1.Value = True _
Then
a = "00:00:00"
b = "01:00:00"
GoTo Ausführen
' Else
' GoTo Ende
End If
' Next z
Ausführen:
MsgBox ("in ausführen")
Sheets("Daten").Activate
For w = 6 To Zeilen
If Sheets("Daten").Range("c" & w) = Range("B3") _
Then
MsgBox ("Datum stimmt")
If Sheets("Daten").Cell(w, 4) < b _
Then
MsgBox ("Wert ist kleiner als b")
If Sheets("Daten").Cell(w, 4) > a _
Then
MsgBox ("Wert ist größer als a")
Range("G" & w & ":H" & w & ",K" & w & ":P" & w).Select
Selection.Copy
Sheets(5).Select
Range("A2").Select
ActiveSheet.Paste
End If
Else: GoTo Ende
End If
End If
Next w
Ende:
Zeitangabe.Hide
End Sub