Numberformat die 2.
12.08.2005 12:15:10
Josef
Bei folgendem Code wird mir ein Fehler bei folgender Stelle angezeigt:
Range(.Cells(Range("a65536").End(xlUp).Offset(1, 0), _
.Cells(Range("r65536").End(xlUp).Offset(1, 0).NumberFormat = "000"
Was für einen Fehler machte ich bitte?
Danke
Josef
Private Sub CommandButton6_Click()
Range(.Cells(Range("a65536").End(xlUp).Offset(1, 0), _
.Cells(Range("r65536").End(xlUp).Offset(1, 0).NumberFormat = "000"
Range("a65536").End(xlUp).Offset(1, 0).Value = bhztxt1.Text
Range("b65536").End(xlUp).Offset(1, 0).Value = bhztxt2.Text
Range("c65536").End(xlUp).Offset(1, 0).Value = bhztxt3.Text
Range("d65536").End(xlUp).Offset(1, 0).Value = bhztxt4.Text
Range("e65536").End(xlUp).Offset(1, 0).Value = bhztxt5.Text
Range("f65536").End(xlUp).Offset(1, 0).Value = bhztxt6.Text
Range("g65536").End(xlUp).Offset(1, 0).Value = bhztxt7.Text
Range("h65536").End(xlUp).Offset(1, 0).Value = bhztxt8.Text
Range("i65536").End(xlUp).Offset(1, 0).Value = bhztxt9.Text
Range("j65536").End(xlUp).Offset(1, 0).Value = bhztxt10.Text
Range("k65536").End(xlUp).Offset(1, 0).Value = bhztxt11.Text
Range("l65536").End(xlUp).Offset(1, 0).Value = bhztxt12.Text
Range("m65536").End(xlUp).Offset(1, 0).Value = bhztxt13.Text
Range("n65536").End(xlUp).Offset(1, 0).Value = bhztxt14.Text
Range("o65536").End(xlUp).Offset(1, 0).Value = bhztxt15.Text
Range("p65536").End(xlUp).Offset(1, 0).Value = bhztxt16.Text
Range("q65536").End(xlUp).Offset(1, 0).Value = bhztxt17.Text
Range("r65536").End(xlUp).Offset(1, 0).Value = bhztxt18.Text
Workbooks("BHZ_DB2.xls").Close savechanges:=True
Unload fBHZ
End Sub