Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Inhalt aus obenstehender Zelle kopieren

Inhalt aus obenstehender Zelle kopieren
07.03.2008 20:17:00
Kurt
Hallo,
unsere Sekretärin plagt sich mit dem Schreiben von grossen Tabellen.
Sie bat mich, für Sie folgendes herauszufinden:
Sie sucht zum Schreiben Ihrer Tabellen (Buchungsjournale) folgende Möglichkeit:
Wenn sie z.B. in der Zelle A33 steckt, würde Sie gerne mit der Taste x (klein geschrieben) den Inhalt aus der oberen Zelle (A32) in die untere Zelle kopieren.
Der Inhalt der Zelle kann ein Datum, eine Zahl oder ein Text sein (nie Formeln (=)).
Lässt sich so etwas mit einem Makro realisieren.
Super wäre natürlich, wenn das Makro anspringt, sobald Sie z.B. aus der Zelle A33 mit Tabulator in die Zelle B33 springt.
Für einen Ratschlag an einen absoluten Excel-Anfänger bin ich sehr dankbar.
Kurt

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalt aus obenstehender Zelle kopieren
07.03.2008 20:26:50
Matthias
Hallo Kurt
meinst Du so?
Code ins Tabellenblatt

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target = "x" Then Target.Offset(1, 0).Value = Target.Offset(-1, 0).Value
End Sub


Gruß Matthias

Anzeige
AW: Inhalt aus obenstehender Zelle kopieren
07.03.2008 20:30:26
Tino
Hallo,
so
ins entsprechende Tabellblatt als Code

Private Sub Worksheet_Change(ByVal Target As Range)
If (Intersect(Target, Range("A33")) Is Nothing) Or _
Range("A33")  "x" Then Exit Sub
Application.EnableEvents = False
On Error Resume Next 'Sicherheit bei Fehler
Range("A33").Value = Range("A32").Value
Application.EnableEvents = True
End Sub


Gruß
Tino

Anzeige
AW: Inhalt aus obenstehender Zelle kopieren
08.03.2008 07:23:21
Kurt
Hallo und erstmals Danke an Euch alle,
die Lösung von Matthias L ist die, die ich meinte!
Bloss soll natürlich die Zelle wo ich das "x" eingebe, mit dem Wert der oberen Zelle ersetzt werden.
Ist aber nicht weiter schlimm, wieso bin ich Trottel nicht auf die Idee von CTRL+U gekommen.
Es grüsst Euch "Super-Exxler" alle
Kurt

Anzeige
AW: Inhalt aus obenstehender Zelle kopieren
08.03.2008 08:18:41
Matthias
Guten Morgen Kurt
Da Du die Frage als "offen" gestellt hast, melde ich mich nochmal
dann evtl. so, wenn es wirklich VBA sein soll:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Target = "" Then Application.EnableEvents = True: Exit Sub
If Target = "x" Then Target = Target.Offset(-1, 0).Value
Application.EnableEvents = True
End Sub


Ich hoffe, ich hab da nichts übersehen.
Gruß Matthias

Anzeige
AW: Inhalt aus obenstehender Zelle kopieren
07.03.2008 20:48:31
Nepumuk
Hallo Kurt,
versuchs einfach mit strg+u
Gruß
Nepumuk

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Inhalt aus obenstehender Zelle kopieren


Schritt-für-Schritt-Anleitung

Um den Inhalt aus der oberen Zelle in Excel zu übernehmen, kannst Du ein einfaches VBA-Makro nutzen. Hier sind die Schritte, um das Makro einzufügen:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Wähle das entsprechende Tabellenblatt im Projekt-Explorer.

  3. Füge den folgenden Code in das Codefenster ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
       On Error Resume Next
       If Target = "x" Then
           Target.Value = Target.Offset(-1, 0).Value
       End If
    End Sub
  4. Schließe den VBA-Editor.

  5. Gehe zurück zu Deiner Tabelle und tippe "x" in die Zelle A33, um den Wert aus A32 zu übernehmen.

Mit dieser Methode kannst Du schnell und effektiv den Wert aus der Zelle darüber übernehmen.


Häufige Fehler und Lösungen

Fehler 1: Das Makro funktioniert nicht, wenn Du "x" eingibst.
Lösung: Stelle sicher, dass das Makro im richtigen Tabellenblatt eingefügt wurde und dass Du in der richtigen Zelle (z.B. A33) arbeitest.

Fehler 2: Der Wert wird nicht in die Zelle übernommen.
Lösung: Überprüfe, ob die Option "Makros aktivieren" in Deinen Excel-Einstellungen aktiviert ist.


Alternative Methoden

Falls Du kein VBA verwenden möchtest, kannst Du auch die Excel-Tastenkombinationen nutzen:

  • Verwende CTRL + U, um den Inhalt der Zelle darüber zu übernehmen. Diese Tastenkombination ist eine einfache Methode, um den Zelleninhalt zu kopieren.

Für das Kopieren des Formats kannst Du die Tastenkombination für das Übertragen des Formats benutzen:

  • Wähle die Zelle, deren Format Du übertragen möchtest, und drücke CTRL + SHIFT + C, um das Format zu kopieren. Gehe dann zur Zielzelle und drücke CTRL + SHIFT + V.

Praktische Beispiele

Angenommen, Du hast in Zelle A32 einen Betrag (z.B. 100 Euro) und möchtest diesen Wert in A33 kopieren, wenn Du "x" eingibst.

  1. Gib in A32 "100" ein.
  2. In A33 gibst Du "x" ein.
  3. Nach dem Drücken der Enter-Taste wird A33 automatisch zu "100".

So kannst Du auch mit Texten oder Datumsangaben arbeiten.


Tipps für Profis

  • Nutze die Tastenkombination für das Übertragen des Formats, um schnell die Formatierung einer Zelle auf eine andere zu übertragen, ohne den Inhalt zu verändern.
  • Experimentiere mit anderen Tastenkombinationen wie CTRL + C und CTRL + V, um Inhalte und Formate zu kopieren und einzufügen.

FAQ: Häufige Fragen

1. Was passiert, wenn ich das "x" in einer anderen Zelle eingebe?
Das Makro ist nur für die Zelle A33 konzipiert. Die Eingabe von "x" in einer anderen Zelle hat keine Wirkung.

2. Kann ich das Makro anpassen, um auch andere Zellen zu berücksichtigen?
Ja, Du kannst die Range im VBA-Code anpassen, um das Makro auf andere Zellen auszuweiten.

3. Funktioniert dies in jeder Excel-Version?
Die beschriebenen Methoden und das Makro sollten in den meisten modernen Excel-Versionen (ab Excel 2010) funktionieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige