Re: Wie kann ich eine gesamte Range "verschieben"?
21.04.2003 11:03:32
andreas
Funktioniert noch immer nicht. Er kopiert nur irgendeinen Wert in die Tabelle 3 aber nicht den definierten Zeitraum.Habe ich irgendeine Variable falsch deklariert?Ich habe nebendran mal geschrieben was ich mit den einzelnen Sachen erreichen mag. Vielleicht wird es so noch klarer.Danke auf jeden Fall schon mal für eure Zeit.
Sub WerteInTabelle3Kopieren()
Dim i As Integer 'Zählt die Anzahl der Wertpapiere
Dim text As String 'Kopiert den Namen des Wertpapiers in Tabelle 3
Static zähler As Integer 'Zählervariable, dass die Namen in Tabelle 3
'nebeinander geschrieben werden
Dim MyRange1 As Range 'Soll dann die Renditen des gewählten Wertpapiers
'in Tabelle 3 kopieren
Dim AZHEZ As Integer 'AbstandZuHeuteEndeZeitraum
Dim AZHAZ As Integer 'AbstandZuHeuteAnfangZeitraum
'Dim zeitraum As Integer 'Notwendig um die Länge der Range in Tabelle 3 zu definieren
AZHEZ = (Range("g1").Value - Range("c1").Value)
AZHAZ = Range("g1").Value - Range("e1").Value
'zeitraum = Range("e1").Value - Range("c1").Value
Sheets("tabelle1").Activate
Cells(2, 2).Select
zähler = 1 'Zähler muss gleich eins sein, dass ich nicht in die Datumsspalte
'der Tabelle3 schreibe
For i = 2 To ActiveSheet.UsedRange.Columns.Count
If ActiveCell.Value > 0 Then 'wenn ich eine positive Rendite habe kopiere den gewählten
'Zeitraum in Tabelle3
Set MyRange1 = Worksheets("Tabelle1").Range(Cells(AZHAZ + 4, i), Cells(AZHEZ + 4, i))
Range(MyRange1.Address).Copy Destination:=Worksheets("Tabelle3").Range("b4")
zähler = zähler + 1
text = Sheets("tabelle1").Cells(3, i).Value
Sheets("tabelle3").Activate
Cells(3, zähler).Value = text
Sheets("tabelle1").Activate
Else
End If
ActiveCell.Offset(0, 1).Select
Next i
End Sub