Numberformat die 2.

Forumthread: Numberformat die 2.

Numberformat die 2.

12.08.2005 12:15:10

Josef

Hallo!
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Numberformat die 2.

12.08.2005 12:22:25

Hajo_Zi
AW: Numberformat die 2.

12.08.2005 12:27:47

Josef

AW: Numberformat die 2.

12.08.2005 12:22:25

Hajo_Zi

Hallo Josef,
Option Explicit


Sub test()
With ActiveSheet
.Range(.Range("a65536").End(xlUp).Offset(1, 0).Address, _
.Range("r65536").End(xlUp).Offset(1, 0).Address).NumberFormat = "000"
End With
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.

AW: Numberformat die 2.

12.08.2005 12:27:47

Josef

Hallo Hajo!
Danke für Deine Antwort. Passt alles.
Josef

Beliebteste Forumthreads (12 Monate)

Forumthread: Numberformat die 2.

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread