Zelleninhalt beim verlassen in eine andere Zelle kopieren

Klicke mit der rechten Maustaste auf die Blattregisterkarte

Wähle "Code anzeigen"

Füge den Code unten ein

Schließe den VBA-Editor

Der Code "tut es" erst nach der 2ten Eingabe, bzw. wenn man vorher einmal zu einem anderen Blatt gewechselt hat. Das läßt sich leider nicht ändern, da die letzte Zelle nicht abfragbar ist. Daher merkt sich der Code die 1st Zelle und ab dann geht es.

Andreas.

Option Explicit

Dim LastTarget As Range

Private Sub Worksheet_Activate()

  Set LastTarget = ActiveCell

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Target.Count > 1 Then Exit Sub

  'Initialisieren falls nötig

  If LastTarget Is Nothing Then Set LastTarget = Target

  'Gleiche Zeile?

  If Target.Row = LastTarget.Row Then

    'Letzte war die linke Zelle?

    If Target.Column = LastTarget.Column + 1 Then

      'Diese leer?

      If IsEmpty(Target) Then

        'Inhalt kopieren

        Application.EnableEvents = False

        Target = LastTarget

        Application.EnableEvents = True

      End If

    End If

  End If

  Set LastTarget = Target

End Sub

Hallo Oliver,

kopiere folgenden Code in das Codemodul des entsprechenden Tabellenblattes:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$G$4" Then

[I4] = [D3]

End If

End Sub

Mit freundlichen Grüßen

Halo Katharina,
<br />das kann ich nicht nachvollziehen. Der Zeilenumbruch wird mit Alt+Enter erstellt. Beim Verlassen der Zelle mit Enter wird die Zeilenhöhe angepasst.
<br />Claus
<br />

Hallo Gijs,

auf meinem Laptop ist das Avira Antivirus Programm als Schutzsoftware installiert. (letztes Update von gestern)

Das Öffnen von Excel im abgesicherten Modus hat das Problem nicht behoben, es stürzte trotz allem immer noch ab, wenn ich nach einer Eingabe eine Zelle verließ.

Ich habe die automatische Blitzvorschau ausgeschalten, Excel ist nach Eingabe und Verlassen der Zelle wiederum ohne Speicherung abgestüzt. Beim zweiten Versuch habe ich die Blitzvorschau ausgeschalten und Excel sofort wieder verlassen, damit die geänderte
Einstellung gespeichert wird. Seitdem kann ich wieder ohne Abstürze Excel nutzen. Nach der ersten Eingabe und Verlassen der Zelle gibt es zwar eine kurze Verzögerung (<1s), bis weitergearbeitet werden kann. Danach läuft alles reibungslos.

Danke für die Hilfe,

mit freundlichen Grüßen,

Andreas

Hallo,

wenn du eine Zahlenreihe markiert hast, kannst du beim Runterziehen die STRG-Taste halten, um die Zellen zu kopieren. Beim Doppelklick funktioniert dies leider nicht. Aber du könntest danach in der Einfügen-Optionen-Schaltfläche "Zellen kopieren" wählen.

Claus