Office: Eine Zelle nach rechts gehen und Inhalt kopieren

Hallo zusammen,

ich habe ein Codestück, das mir in einem Pivot Table das Wort "Gesamtergebnis" sucht und mir in einer MessageBox die Adresse ausgibt, in der das Wort steht:

Code:

    With ActiveSheet.PivotTables(1) 
        If .ColumnGrand Then 
            With .RowRange 
                MsgBox .Cells(.Rows.Count, 1).Address 
            End With 
        Else 
            MsgBox "Das Gesamtergebnis wird nicht angezeigt!" 
        End If 
    End With

Nun würde ich gerne von der angezeigten Adresse aus eine Zeile nach rechts gehen und den Inhalt darin kopieren.
Wie könnte man das lösen?

Danke schonmal für eure Ideen :-)

Gruß, Corsar9003

 

Hi,

.Cells(.Rows.Count, 1).Offset(0, 1) ist die Zelle rechts neben deiner gefundenen Zelle.

Bis später,
Karin

 

Hey dankeschön.

der Code funktioniert tip top!

Allerdings tut der Gesamtcode doch nicht so, wie ichs mir vorgestellt hab :-(

Es soll die Zeile Gesamtergebnis aktiviert werden.
Dann soll die Zelle kopiert werden, welche die Spaltenüberschrift "Hallo" hat.
Es soll also aus der Zeile "Gesamtergebnis" die Zelle kopiert werden, die als Spaltenname "Hallo" besitzt.

Ich hoffe, ich habs einigermaßen verständlich formuliert...


Grüße, Corsar9003

 

Okay, hat sich erledigt.
Scheint nicht zu funktionieren...