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
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 10: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 10: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 10: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 11: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 12: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 11: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

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
VBA Zellen prüfen, txt kopieren, einfügen in txt
Stevie

Hallo Zusammen,
da ich kaum Erfahrung im Bereich VBA habe hätte ich gerne mal folgendes Problem :)
Ich habe folgenden Code der Variablen in einer Textdatei ersetzt, eine neue Datei speichert und die File anschleißend mittels Batchrutine an einen Drucker schickt.
Hier der bisherige C...
06.11.2008 09:56:19
Thread-ID: 1022167
3 Beiträge
Anzeige
Zeilen kopieren wenn Bedingung erfüllt
Jupp

Hallo zusammen, ich Grüße euch,
das Forum und die Beiträge finde ich super
Heute wende ich mich als VBA-Neuling mit einem Problem an euch und hoffe, dass mir geholfen wird.
Ich habe eine Tabelle, die doch bereits eine erhebliche Zeilen und Spaltenanzahl erreicht hat.
Nun möchte...
18.03.2009 19:49:40
Thread-ID: 1061595
3 Beiträge
Automatisches kopieren wenn Bedingung erfüllt
Christian

Hallo,
das Forum ist mir empfohlen worden. Also erstmal "Hallo" und vielen Dank für Antworten im Voraus.
Ich möchte meine Umsatztabelle anpassen. Im ersten Tabellenblatt sind Daten enthalten wie Auftragsnummer, Monat, Kundenname, Gerät, Vk-Preis, Land...
Nun möchte ich für jedes Ger...
23.12.2010 13:07:26
Thread-ID: 1192626
2 Beiträge
Anzeige
wenn Bedingung erfüllt, String in Grossbuchst umw.
Peter

Guten Abend
Ich möchte mit
Privat Sub Workbook_SheetChange(ByVal Sh as Object, ByVal Target as Range)
Eingaben prüfen und wenn gewisse Bedingungen erfüllt sind, diese in Grossbuchstaben umwandeln (UCASE).
Bedingungen:
Sh: Tabellenname darf nur aus Zahlen bestehen, z.b. "0000...
27.01.2011 20:43:03
Thread-ID: 1197702
11 Beiträge
Auslesen von Werten wenn Bedingungen erfüllt sind
Werten

Hallo Leute,
ich möchte gern in der Tabelle 3 alle Ziffern die mit 5 anfangen in einer Spalte untereinander anzeigen lassen, wenn folgende Bedingungen erfüllt sind: 1. in der Tabelle 1 (rot) muss in einer der drei Kategorien entw. eine 1 oder 2 stehen und die Ziffer muss mit 5 anfangen.
...
23.03.2011 21:23:17
Thread-ID: 1207240
3 Beiträge
Zellen zählen, wenn zwei Bedingungen erfüllt sind
MB

Hallo zusammen,
ich möchte eine Matrix aufstellen, mit der ich verschiedenen Mitarbeitern verschiedene Ereignisse zuschlüsseln kann.
In Tabelle 1 steht in Zeilen der Name und auch das Ereignis. Der Mitarbeiter kann mehrmals vorkommen und auch die Ereignisse können unterschiedlich sein:<...
03.05.2011 19:03:16
Thread-ID: 1212923
4 Beiträge
X wenn Bedingung von Auswahlliste erfüllt ist
Auswahlliste

Hallo,
Ich habe ein Problem. Und zwar geht es um folgendes. Ich muss eine Tabelle erstellen bei der je nach meiner Auswahl in Meiner Auswahlliste ein X stehen soll.
Wenn ich zum Beispiel aus meiner Auswahl das A anklicke dann soll in der Tabelle unten drunter, wo die verschiedenen Mögli...
12.05.2011 11:03:17
Thread-ID: 1214134
7 Beiträge
Zelleintrag nur wenn Bedingung erfüllt
Dietmar

Hallo in die Runde,
kann mir jemand sagen, wie nachfolgenden Code anpassen muss, so dass zusätzlich in Spalte
C2:C10 Werte nach Eintrag wieder gelöscht werden, wenn in Spaltenbereich A2_A10 in der entsprechenden Zeile ein "E" oder nichts steht.
Eine Msgbox mit der entsprechedhenden...
29.07.2011 13:56:57
Thread-ID: 1224155
3 Beiträge
Serienmail wenn Bedingung erfüllt ist
Dietmar

Guten Abend in die Runde,
leider bin ich bisher nicht fündig geworden.
Gibt es eine Möglichkeit aus einer Exceldatei eine Serienmail in Outlook zu generieren, wenn eine Bedingung erfüllt ist.
Die Mail soll nicht automatisch abgeschickt werden, weil ich sie textlich noch ergänzen möc...
02.01.2012 01:19:16
Thread-ID: 1244177
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige