Problem mit Range()
30.01.2004 11:07:03
Robert
wie kann man dem wert x soll die zeilenanzahl wiedergeben also wenn x = 5 soll es A5 ausgeben...meine code vorstellung.
Private Sub test()
x = Cells(Rows.Count, 1).End(xlUp).Row
End Sub
Private Sub rangen()
range("a1:ax").Select
Selection.Copy
range("b1:bx").Select
ActiveSheet.Paste
End Sub
Private Sub CommandButton1_Click()
test
rangen
End Sub
Anzeige