Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
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
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Neusten Wert aus Spalte auslesen und in bestimmte

Neusten Wert aus Spalte auslesen und in bestimmte
19.10.2014 11:59:54
Anja

Hallo,
ich benötige Hilfe bei folgendem Problem:
In Spalte C werden Daten ab C 12 eingetragen. Ich möchte, dass der neuste aktuelle eingetragene Datensatz automatisch in Zelle D1 eingetragen wird. Achtung ich meine damit nicht den untersten letzten Wert in der Spalte, da es vorkommen kann das oberhalb auch etwas eingetragen wird.
Lösung kann als Formel oder mit VBA sein.
Ich danke schon mal im Voraus allen Tüftlern!!!!
Anja

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Neusten Wert aus Spalte auslesen und in bestimmte
19.10.2014 12:06:51
Hajo_Zi
Hallo Anja,
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle. 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Application.EnableEvents = False
Range("D1") = Target
Application.EnableEvents = True
End If
End Sub

AW: Neusten Wert aus Spalte auslesen und in bestimmte
19.10.2014 12:18:57
Gerd L
Hallo Anja!
Für das Modul jener Tabelle:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objRange As Range, objCell As Range
Set objRange = Intersect(Range("C12:C1000"), Target)
If Not objRange Is Nothing Then
For Each objCell In objRange
Range("D1").Value = Target.Value
Next
End If
End Sub
Gruß Gerd

Anzeige
AW: Neusten Wert aus Spalte auslesen und in bestimmte
19.10.2014 12:59:27
Anja
Hallo Gerd,
du bist mein Held.
Danke
Anja

AW: Neusten Wert aus Spalte auslesen und in bestimmte
19.10.2014 13:23:36
{Boris}
Hi,
der Code von Hajo ist aber in jeder Hinsicht besser.
Neben der überflüssigen Schleife werden auch die Events nicht ausgeschaltet - kein Drama, aber eben etwas unsauber.
VG Boris

AW: Neusten Wert aus Spalte auslesen und in bestimmte
19.10.2014 13:40:08
Gerd L
der Code von Hajo ist aber in jeder Hinsicht besser.
Hi Boris,
nur in einer(Events), wenn überhaupt . Ansonsten hatte Hajo die Fragestellung (ab C12.) nicht genau gelesen u. für Mehrfacheinträge keine Vorsorge getroffen.
Frohes Schaffen.
P.S.: @ Anja: Man sollte auf alle Vorschläge antworten.
Gruß Gerd

Anzeige
AW: Neusten Wert aus Spalte auslesen und in bestimmte
19.10.2014 13:43:33
{Boris}
Hi Gerd,
aber wozu hast du die Schleife eingebaut?
Die verendeten Objektvariablen werden dabei überhaupt nicht genutzt ...?!
VG Boris

Ich kaufe noch schnell ein "w" ;-))
19.10.2014 13:44:36
{Boris}
...

AW: Ich kaufe noch schnell ein "w" ;-))
19.10.2014 14:03:25
Gerd L
Hi Boris,
schreibe mit STRG + ENTER mehrere Werte gleichzeitig in einen Bereich.
Gruß Gerd

AW: nicht ein Wert
19.10.2014 14:07:04
Hajo_Zi
Hallo Gerd,
sondern 88 , damit wir 88 mal der Wert in D1 geschrieben.
Gruß Hajo

AW: nicht ein Wert
19.10.2014 14:17:31
Gerd L
Hi Hajo,
richtig u. der letzte Wert bleibt in D1 drin; im Gegensatz zu deiner Prozedur, die dann diese Zelle leert.
Es kommt halt auch drauf an, was gewollt ist.
Gruß Gerd

Anzeige
AW: nicht ein Wert
19.10.2014 14:18:40
Hajo_Zi
der erste und letzte Wert sind aber gleich, falls nicht eine Formel eingetragen wird.
Gruß Hajo

AW: beste Lösung für diese Aufgabe
19.10.2014 14:24:59
Daniel
Hi
Ich würde es mal so formulieren:
Ihr beide habt ein bisschen Recht.
Selbstverständlich muss man den Code im Change-Event immer so auslegen, dass er nicht mit einem Fehler aussteigt, wenn man mal mehr als eine Zelle gleichzeitig ändert.
Andererseits ist für diese Aufgabenstellung eine Schleife über alle geänderten Werte auch nicht notwendig, da in die Zelle D1 immer nur ein Wert geschrieben werden kann.
Daher würde ich folgenden Code vorschlagen. 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objRange As Range
Set objRange = Intersect(Range("C12:C1000"), Target)
If Not objRange Is Nothing Then
Application.EableEvents = False
Range("D1").Value = objRange(1).Value
Application.EnableEvents = True
End If
End Sub
Hier wird bei einer Änderung von mehreren Zellen gleichzeitig der Wert der ersten Zelle nach D1 geschrieben.
Bei der Eingabe mit STRG+ENTER oder beim Löschen von Inhalten haben sowieso alle geänderten Zellen den Selben Wert, werden mit Copy-Paste unterschiedliche Werte gleichzeitig eingetragen, dann kann man sowieso nur einen davon in D1 anzeigen und dann ist ea auch egal, ob's der erst, oetzte oder irgend ein anderer ist.
Gruß Daniel

Anzeige
AW: Kaufe ein "n" wg.Option Explicit o.T.
19.10.2014 15:17:33
Gerd L

324 Forumthreads zu ähnlichen Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Anzeige
Werte aus Matrix auslesen j. mit richtiger Bsp.
trebor-robert

Hallo,
wie kann ich aus einer Matrix, die in einer separaten Arbeitsmappe (im Beispiel der Bereich Arbeitsmappe "B") liegt, den entsprechenden EUR Betrag auslesen, wenn in der Spalte "C" untereinander in den einzelnen Zeilen die Bemessungsgrösse 1 steht (in diesem Fall qm) und in den Spalt...
05.09.2008 13:33:00
Thread-ID: 1007667
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
Werte aus anderem Blatt für ComboBox auslesen
mtremer

Hallo Excel-Freunde,
ich glaub ich werde verrückt.
Meine ComboBox füllt sich nicht mehr. Ich versuche den Code so zu ändern, dass die Quelle für die ComboBox wo anders stehen kann. Im folgenden Code müssen die Werte in der Spalte A der Tabelle1 stehen.
Private Sub Worksheet_Change...
17.09.2008 13:17:34
Thread-ID: 1010349
11 Beiträge
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge

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
2
5
3
4
7
10
2
4
2
4
4
3
6
1
3
3
6
6
1
4
2
2
4