Excel wenn Wert in Zelle dann andere Zelle kopieren

Wenn Sie in Excel eine bedingte Formatierung aus einer Zelle komplett in andere Zellen kopieren wollen, ist dies in wenigen Schritten möglich. Wie Sie dabei vorgehen, verraten wir Ihnen in diesem Praxistipp.

Bedingte Formatierung in Excel komplett in andere Zelle kopieren

Wenn Sie eine bedingte Formatierung in eine andere Zelle übertragen wollen, gehen Sie wie folgt vor:

1. Klicken Sie mit der rechten Maustaste in die Zelle, deren bedingte Formatierung Sie kopieren möchten und wählen Sie den Kontextbefehl "Kopieren".
2. Dann klicken Sie mit der rechten Maustaste in die Zielzelle und auf "Inhalte einfügen".
3. Im folgenden, gleichnamigen Dialog wählen Sie die Option »Alle zusammenführenden bedingten Formate« und bestätigen Sie mit »OK«.

Excel: Zellenfarbe per Funktion ändern

Im nächsten Praxistipp zeigen wir Ihnen, wie Sie in Excel eine Funktion erstellen können.

(Tipp ursprünglich verfasst von: CHIP Magazin)

11 Antworten

Beantwortet 18, Okt 2018 von m-o Profi (21.7k Punkte)

Hallo Willi,

das folgende Makro kopiert dir die Werte wie gewünscht in P1, allerdings mit Doppelklick.

Das Makro muss in das VBA-Projekt der betreffenden Tabelle kopiert werden:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("B3:B138")) Is Nothing Then

        Cancel = True       'Doppelklick wird beendet, d.h. es wird nicht die Zelle aktiviert
        Range("P1") = Target.Value      'Daten werden nach P1 kopiert
        
 End If

If Not Intersect(Target, Range("D3:D138")) Is Nothing Then

        Cancel = True
        Range("P1") = Cells(Target.Row, 2).Value    'Daten aus Spalte B der betreffenden Zeile werden nach P1 kopiert
        
        
 End If

End Sub

Von Haus aus werden nur Doppelklick und Klick auf rechte Maustaste angeboten. Auf der linken Maustaste liegt ja schon das Bearbeitenmenü.

Gruß

M.O.

Beantwortet 20, Nov 2019 von

Hallo,

ich habe ein ähnliches Problem und versuche nun schon seit Tagen diesen und einige andere Codes für mich anzupassen. Leider fehlt mir das nötige Hintergrundwissen (Syntax?) und ich wäre äusserst dankbar wenn ihr mir auf die Sprünge helfen könntet.

Wenn ich auf Zelle S9 bis S109 doppelklicke, sollen Werte aus den Zellen R9 bis R109 nach N9, und Werte aus Q9 bis Q109 nach M9 kopiert werden. Wenn auch noch die Zelle S9 bis S109, mit der ich den jeweiligen Kopiervorgang starten möchte nach 09 kopiert wird, wäre das traumhaft.

Ich hoffe mir kann jemand helfen.

Gruss, Jost

Hi Jost,

wenn ich dich richtig verstanden habe, dann so:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("S9:S109")) Is Nothing Then
        Cancel = True
        Target.Offset(0, -1).Copy Target.Offset(0, -5)
        Target.Offset(0, -2).Copy Target.Offset(0, -6)
        Target.Copy Target.Offset(0, -4)
    End If
End Sub

Bis später, Karin

Beantwortet 21, Nov 2019 von Anonym

Hallo Karin,

erstmal vielen Dank für den super schnellen Versuch mir zu helfen. Leider ist das noch nicht ganz das was ich mir vorstelle. Bei deinem Code wird immer jeweils eine Zeile hinzugefügt. Bei meiner Tabelle müssen jedoch Werte aus dem Zeilenbereich 9 bis 109 immer wieder in die selben Zellen und die alten ersetzen.

Um den konkreten Anwendungsfall nochmal zu beschreiben,

ich habe Werte in Q9 bis Q109 und R9 bis R109 die zusammen gehören und die einer laufenden Nr. 0 bis 100, also von S9 bis S109 zugeordnet sind .Wenn ich die erste laufende Nr. anklicke sollen die Werte aus der Zeile, in eine Druckvorlage zu M9 und N9 kopiert werden. Als Kontrolle wird die laufende Nr. mit nach O9 kopiert. Dann wird gedruckt. Als nächstes klicke ich die zweite laufende Nr. an und die Werte in M9 N9 und O9 werden entsprechend ersetzt.

Zur Zeit wird hier alles per Hand kopiert und eingefügt was meiner Meinung nach mega anstrengend werden kann und dementsprechen fehleranfällig ist...

Die Befehle mit dem Offset sehe ich bei meiner Suche und rumprobiererei das erste mal. Reicht es evtl. einfach diese Offsetwerte zu ändern?

Danke schonmal im Vorraus!

Gruss, Jost

Beantwortet 21, Nov 2019 von absoluter Beginner

Hallo Karin,

genau so ist es und ich entschuldige mich wenn meine Antwort als Kritik verstanden wurde.

Prinziepiell funktioniert das schon super und ich habe auch schon versucht diese Offset Werte entsprechend anzupassen, jedoch gerät dann alles total durcheinander. Die Werte aus den Spalten Q und R müssten immer die gleichen Zellen M9 und N9, da sie nur dann auf der Durchvorlage landen. Ich bin für jede Hilfe dankbar.

Ich wünsche noch einen schönen Abend.

Gruss, Jost

Beantwortet 22, Nov 2019 von absoluter Beginner

Mahlzeit,

hier mal eine Kreation die ich mir bis jetzt zusammengebastelt habe, vielleicht ist damit verständlicher woraus ich hinaus möchte:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("S9:S109")) Is Nothing Then
        Cancel = True
        Range("O9") = Target.Value
 End If

  If Not Intersect(Target, Range("R9:R109")) Is Nothing Then
        Cancel = True
        Range("N9") = Target.Value
 End If

  If Not Intersect(Target, Range("Q9:Q109")) Is Nothing Then
        Cancel = True
        Range("M9") = Target.Value
 End If

  End Sub

Hierbei muss ich jede Zelle einzeln anklicken um in die gewünschte Zelle zu kopieren, das ist jetzt so die Holzhammermethode und wäre natürlich viel eleganter wenn ich nur aus S9 bis S109 auswählen könnte.

Wie geschrieben, bin ich für jede Hilfe dankbar.

Gruss, Jost

Was ist Drag and Drop bei Excel?

Was passiert wenn eine Formel mit relativen Zellbezügen von einer Zelle in eine andere kopiert wird?

Wie können Sie das Format einer ausgewählten Zelle in eine andere Zelle oder eine ganze Spalte Zeile übertragen?

Wie kann eine Dropdown Liste auf andere Zellen übertragen werden?