AW: Fehlermeldung
21.10.2005 17:50:08
Daniel
Hi Paula.
Wenn ich den bereichkommentiere, wo die Fehlermeldung auftaucht kommt sie wo anders hoch. Und hier mal der ganze Code. der wichtig dafür ist.
ich lasse erst ein neues Blatt einfügen. Dann wollte ich ne Kopfzeile rüberkopieren. Aber das macht er nicht. Siehe fehlermeldung. wenn ich den Teil auskommentiere kommt die Fehlermeldung ane einer anderen Stelle. Habe sie im Code markiert. Und diese Stelle gibt es dann noch 24 mal. Da ich 24 Checkboxen habe.
Ich arbeite schon mit dem Code und er hat auch die ganze Zeit funktioniert. Aber jetzt nicht mehr. Kannst du mir da helfen?
Danke Daniel
Sheets("Grafiken T1&T2").Select
Sheets.Add
Sheets(5).Select
Sheets("Daten").Activate
Range("G5:H5,K5:P5").Select
Range("K5").Activate
Selection.copy
Sheets(5).Select
Range("A2").Select
ActiveSheet.Paste
Worksheets(5).Range("A3").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[2]C:R[65532]C)"
Worksheets(5).Range("B3").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[2]C:R[65532]C)"
Worksheets(5).Range("C3").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[2]C:R[65532]C)"
Worksheets(5).Range("D3").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[2]C:R[65532]C)"
Worksheets(5).Range("E3").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[2]C:R[65532]C)"
Worksheets(5).Range("F3").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[2]C:R[65532]C)"
Worksheets(5).Range("G3").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[2]C:R[65532]C)"
Worksheets(5).Range("H3").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[2]C:R[65532]C)"
Private Sub Ok_Click()
'On Error Resume Next
Range("C6").Select
Selection.copy
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
'-------CheckBox1.Value---------
If CheckBox1.Value = True Then
a = TimeValue("00:00:00")
b = TimeValue("01:00:00")
formel
Zeilen = Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Daten").Activate
For w = 6 To Zeilen
If Sheets("Daten").Range("c" & w) = Range("B3") _
Then
If Sheets("Daten").Cells(w, 4) < b _
Then
If Sheets("Daten").Cells(w, 4) >= a _
Then
Range("G" & w & ":H" & w & ",K" & w & ":P" & w).copy Sheets(5).Range("A" & w) --hier kommt dann die fehlermeldung---
End If
End If
End If
Next w
Sheets(5).Select
Range("I3").Select
ActiveCell.FormulaR1C1 = "=COUNT(R[1]C[-8]:R[65533]C[-8])"
If Not IsError(Sheets(5).Range("a3")) Then
Range("A3:I3").Select
Range("H3").Activate
Selection.copy
Sheets("Durchschnittswerte").Select
s = 32
Range("B" & s).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B" & s & ":I" & s).Select
Range("I" & s).Activate
End If
format
End If
End Sub