wieder ein problem mit range() HILFE!!!
30.01.2004 13:07:36
Robert
bin über jede hilfe dankbar
Private Sub test()
x = Cells(Rows.Count, 1).End(xlUp).Row
End Sub
Private Sub rangen()
Dim x As Integer
x = Cells(Rows.Count, 1).End(xlUp).Row
For x = 1 To Cells(Rows.Count, 1).End(xlUp).Row
range("e" & x) = range("a" & x)
Next x
End Sub
Private Sub rongen()
Dim y As Integer
y = Cells(Rows.Count, 2).End(xlUp).Row
For y = 1 To Cells(Rows.Count, 2).End(xlUp).Row
range("f" & y) = range("b" & y)
Next y
End Sub
Private Sub CommandButton1_Click()
test
rongen
rangen
End Sub