Hallo!
über eine VBA wird mir ein Wert aus einer anderen Datei kopiert und in die Zieldatei eingefügt. Dies läuft auch alles perfekt und ideal.

Dies klappt mit dem folgenden Code für eine Zelle bzw. einen Bereich. Ich möchte aber, das die Aktion ausgeführt wird egal welche Zelle ausgewählt ist. Sprich, das nach dem Einfügen egal in welche Zelle, immer über die nächsten beiden Zellen zentriert wird. Sprich der Range B8:D8 im Beispiel  soll unabhangig von der Ausgangszelle (hier B8) immer Horizontal Zentrieren!

Range("B8:D8").Select
With Selection
        .HorizontalAlignment = xlCenterAcrossSelection
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

Vielen Dank schon mal 

Jens