Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 16:22:58
Pivot
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1624to1628
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA WENN Datenüberprüfung sich ändert DANN

VBA WENN Datenüberprüfung sich ändert DANN
23.05.2018 22:45:29
DJRidoo
Hallo,
ich habe mittels Daten -- Datenüberprüfung -- Liste (Werte werden dort ins Feld eingegeben und werden nicht aus Zellenbezug übernommen) eine Auswahlliste erstellt. Zur Auswahl stehen:
vorhanden
nicht vorhanden
wird gekauft
Nun möchte ich, dass wenn ich eines der drei Sachen ausgewähle, dass ein Makro ausgeführt wird.
Wie funktioniert dies?
Habe es bereits mit folgenden Code probiert, was aber nicht funktioniert:
If Not Application.Intersect(Target, Range("H14")) Is Nothing Then
Worksheets("Liste neu").Range("J14").Value = _
Worksheets("Liste alt").Range("H14").Value
End If
Vielleicht hat wer eine Idee.
Ich bedanke mich im Vorraus.
Gruß
DJRidoo

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA WENN Datenüberprüfung sich ändert DANN
23.05.2018 23:34:07
Barbaraa
Vielleicht hast Du Dein Makro, das eigentlich funktioniert, nicht in den richtigen Rahmen gesetzt.
Schreibe in das Blattmodul von "Liste alt" diese Zeilen: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("H14")) Is Nothing Then
Worksheets("Liste neu").Range("J14").Value = _
Worksheets("Liste alt").Range("H14").Value
End If
End Sub
Wenn Du die Zelle "H14" im Blatt "Liste alt" verlässt (nachdem du nicht nur dabei, sondern drinnen warst), wird im Blatt "Liste neu" die Zelle "J14" angepasst.
Hilft das?
LGB
Anzeige
AW: VBA WENN Datenüberprüfung sich ändert DANN
24.05.2018 10:28:40
DJRidoo
Hallo,
mein Code sieht genauso aus. Es funktioniert jedoch nicht. Es funktioniert, wenn die Zelle nicht über die Datenüberprüfung ausgefüllt wird.
Brauche aber die Datenüberprüfung.
Jemand eine Idee?
MfG
DJRidoo
AW: VBA WENN Datenüberprüfung sich ändert DANN
24.05.2018 10:46:37
DJRidoo
Kann man es bei mehreren Zeilen auch einfacher zusammenfassen oder muss ich es für jede Zeile ausschreiben wie unten:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("H14")) Is Nothing Then
Worksheets("Liste neu").Range("J14").Value = _
Worksheets("Liste alt").Range("H14").Value
End If
If Not Application.Intersect(Target, Range("H15")) Is Nothing Then
Worksheets("Liste neu").Range("J15").Value = _
Worksheets("Liste alt").Range("H15").Value
End If
If Not Application.Intersect(Target, Range("H16")) Is Nothing Then
Worksheets("Liste neu").Range("J16").Value = _
Worksheets("Liste alt").Range("H16").Value
End If
If Not Application.Intersect(Target, Range("H17")) Is Nothing Then
Worksheets("Liste neu").Range("J17").Value = _
Worksheets("Liste alt").Range("H17").Value
End If
End Sub

Gruß
DJRidoo
Anzeige
AW: VBA WENN Datenüberprüfung sich ändert DANN
24.05.2018 13:24:17
Werner
Hallo,
so: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("H14:H17")) Is Nothing Then
Worksheets("Liste neu").Range("J" & Target.Row).Value = _
Worksheets("Liste alt").Range("H" & Target.Row).Value
End If
End Sub
Gruß Werner
AW: VBA WENN Datenüberprüfung sich ändert DANN
24.05.2018 19:34:44
mcbunki@gmx.de
Es klappt alles. Hatte nur einen Dreher drin.
Ich danke Euch.
Gruß
DJRidoo
Gerne u.Danke für die Rückmeldung. o.w.T.
24.05.2018 23:20:03
Werner

322 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Werte löschen beim Eintrag in andere Spalte ?
Selma

Hallo Leute,
wie kann ich folgendes ab Zeile 5 für aktive Zeile über VBA erreichen:
1. Wird der Wert in aktive Zeile in Spalte H eingetragen, dann sollen die Werte in Zellen der Spalte D und E gelöscht werden.
2. Wird der Wert in aktive Zeile in Splate D oder E eingetragen, dann sol...
12.10.2008 17:05:00
Thread-ID: 1015877
5 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
Josef

Guten Morgen!
In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
Ich möchte nun folgendes erreichen:
Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
29.10.2008 07:57:42
Thread-ID: 1020127
3 Beiträge
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge
Zelleninhalt suchen wenn gefunden dann...
Ernst

Hallo Fachleute,
ich möchte mit einem Makro eine Tabelle (möglichst nur einen vorher definierten Bereich) auf bestimmte Zellinhalte durchsuchen und wenn es einen Inhalt findet soll es dort eine Zeile einfügen und von mir im Makro definierten Text einfügen.
Nähere Anleitung in der Datei....
16.11.2008 14:44:22
Thread-ID: 1024902
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
8
4
7
4
4
2
2
9
6
4
2
1
2
4
4
5
2
33
5
10
1
3
2
2