Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1984to1988
1984to1988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

VBA. Bei Zelländerung Wert aus Zelle kopieren

Forumthread: VBA. Bei Zelländerung Wert aus Zelle kopieren

VBA. Bei Zelländerung Wert aus Zelle kopieren
12.08.2024 12:25:49
Fritz_W
Hallo Forumsbesucher,

ich bitte um Unterstützung der VBA-kundigen wie folgt:
Ich möchte erreichen, dass immer, wenn ich durch eine Eingabe in der Zelle O12 der Zellwert aus Zelle N12 in die Zelle P7 kopiert wird.
Für eure Unterstützung vorab schon lieben Dank.

mfg
Fritz
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA. Bei Zelländerung Wert aus Zelle kopieren
12.08.2024 12:30:28
Oberschlumpf
Hi Fritz,

füg diesen Code... 


Private Sub Worksheet_Change(ByVal Target As Range)



    If Target.Address = "$O$12" Then

        Range("N12").Copy Range("P7")

    End If

    

End Sub

...in das Modul des Tabellenblattes ein, in dem es geschehen soll.

Ciao
Thorsten
Anzeige
AW: VBA. Bei Zelländerung Wert aus Zelle kopieren
12.08.2024 12:50:55
Fritz_W
Hallo Thorsten,

vielen Dank für Deine Unterstützung.
Leider funktioniert es so nicht. Ich stelle fest, dass ich mein Anliegen nicht korrekt formuliert habe. In der zu "kopierenden" Zelle N12 steht eine Formel, die - abhängig vom Zellwert in O12 eine Zahl zurückgibt. Es darf also nicht N12 nach P7 kopiert werden, sondern der Zellwert aus N12 (= Zahl) sollte als Zahl in P7 eingefügt werden, wenn in O12 etwas (anderes) eingetragen wird.

mfg
Fritz
Anzeige
AW: VBA. Bei Zelländerung Wert aus Zelle kopieren
12.08.2024 13:43:38
GerdL
Moin Fritz!

Teste mal so. 
Private Sub Worksheet_Change(ByVal Target As Range)



    If Target.Address = "$O$12" Then

        Application.EnableEvents = False

        Range("N12").Copy

        Range("P7").PasteSpecial xlPasteValues

        Application.EnableEvents = True

        Application.CutCopyMode = False

    End If

    

End Sub


Gruß Gerd
Anzeige
AW: VBA. Bei Zelländerung Wert aus Zelle kopieren
12.08.2024 14:53:40
Fritz_W
Moin Gerd,

getestet, so funktioniert das auch!

Vielen Dank.

mfg
Fritz
AW: VBA. Bei Zelländerung Wert aus Zelle kopieren
12.08.2024 13:43:32
Fritz_W
Hallo Thorsten,

ich hab selbst die erforderlich Anpassung vornehmen können. So funktioniert es jetzt:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$O$12" Then
Range("P7").Value = Range("N12").Value
End If

End Sub

Nochmals vielen Dank.
mfg
Fritz
Anzeige

Forumthreads zu verwandten Themen

Bedingung Fomel erfüllt - Zelle cut
Sebastian
Hallo zusammen, 🙋
ich würde gerne bestimmte Zeilen ausschneiden, in ein anderes Tabellenblatt kopieren und die Zeile aus dem Tabellenblatt1 löschen lassen wenn in der Zelle von der Spalte G ein "x" reingeschrieben ist. Bis jetzt funktioniert dies auch super. Bei 2 Anliegen benötige ich allerdin...
12.10.2021 15:28:43
Thread-ID: 1851393
4 Beiträge
Anzeige
VBA Error 1004
Kerumi

Hallo Zusammen.
Ich habe nach einem Code gesucht, der es mir ermöglicht bestimmte Zeilen (Zellen) zu kopieren, wenn die Bedingung "Text xy" erfüllt ist...
Soll heissen, wenn in Zelle G5 der Text "Test" steht soll Zelle G5 und H5 in Tabellenblat 2 kopiert werden.
Bin dazu auch halbw...
14.04.2020 17:19:13
Thread-ID: 1752444
8 Beiträge
Anzeige
Zelle kopieren wenn bedingung erfüllt
Mauri

Hallo zusammen,
ich bin leider ein wirklicher VBA anfänger und versuche folgendes zu lösen:
Ich hätte gerne einen Marko der mir aus einem Tabellenblatt den Inhalt einer Zelle kopiert wenn eine bestimmte Bedingung erfüllt ist.
Beispiel:
Im Tabellenblatt "Jan Feb" Zelle A2 wird im...
17.04.2018 20:07:47
Thread-ID: 1620164
3 Beiträge
Kopieren mit Abfrage in Excel
Ronny

Hallo Excel-VBA-Profis,
ich möchte gern über einen BUTTON "als Rp1 festlegen" verschiedene Zellen aus dem Tabellenblatt "Bilanz Messwerte" ins Tabellenblatt "Rp-Vergleich" kopieren. Dabei sollen solange Datensätze (ein Datensatz = A8, B8, C8, D8, E8 und I8) aus "Bilanz Messwerte" kopiert we...
29.11.2006 10:14:23
Thread-ID: 824598
14 Beiträge
Anzeige
VBA: Zellen kopieren, wenn Bedingung erfüllt
Anica

Hallo zusammen,
da auch intensives Googeln mich nicht weiter gebracht hat, versuche ich es einmal hier.
Mein Problem ist das folgende:
Wenn in meiner Datei im Reiter "Hauptliste" in Zelle A1 "Stempelaktion" steht, wie folgt in das Tabellenblatt "Stempelkarten" kopiert werden:
Ha...
18.09.2018 18:24:48
Thread-ID: 1646256
6 Beiträge
Matrixformel mit 2 Bedingungen
Seik

Hallo liebe Excel-Gemeinde
Ich stehe vor dem folgendem Problem: Ich habe eine Datentabelle, deren Zeilen ich auf ein anderes Tabellenblatt kopieren möchte, wenn eine Bedingung erfüllt ist. Dies gelingt mir auch gut mit der einen Bedingung. Allerdings scheitere ich an einer zweiten Bedingung...
16.12.2019 14:07:27
Thread-ID: 1729198
2 Beiträge
Zeilen kopieren
Carsten

Ich möchte aus einem Tabellenblatt Zeilen in ein anderes Blatt kopieren, wenn eine Bedingung erfüllt ist.
also: wenn a3=1 dann kopiere die ganze Zeile in Blatt xxx nächste
Das I-Tüpfelchen währe noch eine vorherige Abfrage der Bedingung.
Vielen Dank im Voraus.
23.11.2007 13:51:35
Thread-ID: 928985
2 Beiträge
Makro Liste durchsuchen/kopieren/einfügen
Flo

Hallo liebe Forumsteilnehmer,
ich bin Suche nach einer Lösung zu folgendem Problem:
Ich habe eine Liste mit 3 Spalten und etlichen Zeilen. Das Makro soll Zeile für Zeile die Liste durchsuchen und jeweils in Spalte A und B eine vorgegebene UND-Bedingung prüfen. Wenn die Bedingung bei Spa...
22.08.2017 20:56:20
Thread-ID: 1575861
7 Beiträge
Zeilen kopieren wenn Bedingung erfüllt...
Daniel
Hallo Zusammen!
Habe ein kleines Problem mit einem Makro, das nicht so will, wie ich will...;-) Es geht um folgendes: Ich möchte alle Zeilen (von allen Tabellenblättern), die in der Spalte D den Wert "Frankfurt" haben, auf das Tabellenblatt "FFM" kopieren (wird über Button gesteuert)! Nur leider...
27.01.2004 18:06:51
Thread-ID: 371708
2 Beiträge
Zeile kopieren, wenn Bedingung erfüllt
Jessica

Hallo
ich bräuchte Hilfe bei einem Problem.
Ich habe eine Excel Tabelle mit einigen Tabellenblättern. Es sollen aus allen Tabellenblättern die Zeilen in ein extra Tabellenblatt kopiert werden, die einer bestimmten Kalenderwoche entsprechen. Ich habe bereits ein funktionierendes Makro g...
14.11.2019 09:58:25
Thread-ID: 1723236
6 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2026 19:23:24
VBA - Blattschutz lässt sich mit Code nicht ausschalten
17.05.2026 13:47:03
Laufende Uhrzeit in einer Zelle
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum