Range Problem
29.06.2004 10:51:43
Timo
ich habe ein kleines Problem, bei dem ich nicht mehr weieter weiss. Ich möchte abhängig von einem Zellenwert einen Select Befehl ausführen. Dieser Select Befehl soll jedoch relativ sein, das heisst, ich kann nicht schreiebn Range("A3:D15").Select z.B. sondern muss die Reihen und Spaltennummer irgendwie miteinbeziehen. Habe das bei allen festen Range Objekten schon in den oben genannten Fall abgeändert, da das Makro sonst gar nicht läuft.
Wer kann mir helfen.
Hier mein Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" Then
'On Error GoTo errorhandler:
If Target.Cells.Value = 1 Then
Sheets("Spielplan").Range("C4:E13").Copy
Sheets("Tipps zum rumschicken").Select
ActiveSheet.Paste Destination:=Worksheets("Tipps zum rumschicken").Range("B6:D15")
ActiveSheet.Paste Destination:=Worksheets("Tipps zum rumschicken").Range("B18:D27")
Else
i = Target.Cells.Value - 1
a = 4 + i * 15
b = 13 + i * 15
Sheets("Spielplan").Select
Range(Cells(a, 3), Cells(b, 5)).Select ---- Das ist mein Problem
Selection.Copy
Sheets("Tipps zum rumschicken").Select
ActiveSheet.Paste Destination:=Worksheets("Tipps zum rumschicken").Range("B6:D15")
ActiveSheet.Paste Destination:=Worksheets("Tipps zum rumschicken").Range("B18:D27")
End If
End If
errorhandler:
End Sub
Danke für Eure Hilfe im Voraus