Wie übertrage ich die Werte automatisch in eine andere Zelle?

Freunde Ich verwende MS Excel 2010 und möchte Wenn ich einen Wert oder ein Wort in eine Zelle a1 eingebe, sollte dies automatisch in eine Zelle d1 übertragen werden und eine Zelle a1 sollte wieder leer sein. Bitte schlagen Sie mir einen Weg, eine Formel oder eine VBA-Codierung vor, um das zu tun ... danke ...

microsoft-excel-2010 worksheet-function user433939
quelle

Diese von jcmermu vorgeschlagenen Codes funktionieren einwandfrei ... wenn ich den gesamten Bereich einschließen möchte, dh a1: a100 und d1: d100, was soll ich dann tun? Das heißt, der Wert, den ich in a2 eingebe, sollte auf d2 übertragen werden, und der Wert von a3 sollte auf d3 übertragen werden usw. Bitte helfen Sie ...

user433939

Antworten:

Dieser VBA-Code sollte funktionieren:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wks As Worksheet
    Set wks = ActiveSheet
    theRow = Target.Row
    theColumn = Target.Column
    theValue = Target.Value
    If theRow = 1 Then
    If theColumn = 1 Then
        Application.EnableEvents = False
        wks.Cells(1, 4) = theValue
        Target.Clear
        Application.EnableEvents = True
    End If
    End If
End Sub

Sie müssen es auf das Arbeitsblatt setzen, das Sie verwenden werden. Öffnen Sie Ansicht -> Makros in der linken Spalte unter VBAProject, doppelklicken Sie auf das Arbeitsblatt in der linken Spalte und fügen Sie es in die rechte Spalte ein.

jcbermu
quelle