AW: Zellen kopieren
11.11.2005 06:33:51
Erich
Hallo Klaus,
nun sind wir wohl bei einem völlig anderen Problem gelandet - da kommen jetzt weder Copy noch AutoFill vor.
Nein, hier nichts verstellt, keine Einstellung gemacht, die es dir nicht mehr erlaubt mit Range("A1") zu arbeiten. Es ist erlaubt, aber ist es auch sinnvoll? Probier mal das folgende Makro in einer neuen, leeren Mappe aus. Du wirst sehen, dass 'Range("A1").' dort überhaupt keine Wirkung hat (außer natürlich am Ende durch die beiden 'Selection.Range("A1").Select'-Anweisungen)z:
Sub tst()
Range("F3:F90").Select
Selection.Range("A1").Range(Selection.Offset(2, 5), Selection.Offset(60, 5)).Select
MsgBox Selection.Address(0, 0) ' P7:P152
Range("F3:F90").Select
Selection.Range("A1").Range([F3:F90].Offset(2, 5), [F3:F90].Offset(60, 5)).Select
MsgBox Selection.Address(0, 0) ' auch P7:P152
Range("F3:F90").Select
Selection.Range(Selection.Offset(2, 5), Selection.Offset(60, 5)).Select
MsgBox Selection.Address(0, 0) ' auch P7:P152
Range("F3:F90").Select
Selection.Range([F3:F90].Offset(2, 5), [F3:F90].Offset(60, 5)).Select
MsgBox Selection.Address(0, 0) ' auch P7:P152
Range(Cells(3, 6), Cells(90, 6)).Select
Selection.Range("A1").Range(Selection.Offset(2, 5), Selection.Offset(60, 5)).Select
MsgBox Selection.Address(0, 0) ' auch P7:P152
Range(Cells(3, 6), Cells(90, 6)).Select
Selection.Range(Selection.Offset(2, 5), Selection.Offset(60, 5)).Select
MsgBox Selection.Address(0, 0) ' auch P7:P152
Range("F3:F90").Select
Range("A1").Range(Selection.Offset(2, 5), Selection.Offset(60, 5)).Select
MsgBox Selection.Address(0, 0) ' K5:K150
Range("F3:F90").Select
Range(Selection.Offset(2, 5), Selection.Offset(60, 5)).Select
MsgBox Selection.Address(0, 0) ' auch K5:K150
Range("F3:F90").Select
Selection.Range("A1").Select
MsgBox Selection.Address(0, 0) ' F3
Selection.Range("A1").Range(Selection.Offset(2, 5), Selection.Offset(60, 5)).Select
MsgBox Selection.Address(0, 0) ' P7:P65
Range("F3:F90").Select
Selection.Range("A1").Select
MsgBox Selection.Address(0, 0) ' auch F3
Selection.Range(Selection.Offset(2, 5), Selection.Offset(60, 5)).Select
MsgBox Selection.Address(0, 0) ' auch P7:P65
End Sub
Zwei Fragen:
1.
Willst du überhaupt einen Bereich in x.Worksheets("DB") selektieren? Ich vermute, du willst doch nur den Inhalt eines bestimmten Bereichs dort mit ClearContents löschen. Dazu braucht es kein Select.
2.
Den Inhalt welcher Zellen willst du denn löschen?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort