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

datum wert in Spalten prüfen

Forumthread: datum wert in Spalten prüfen

datum wert in Spalten prüfen
10.02.2019 11:10:03
Peter
Hallo ihr Excelspezialisten,
ich suche eine Möglichkeit zu prüfen, ob ein Datum-Wert in der SpalteA=Anfangdatum und der SpalteB=Enddatum vorhanden ist. Falls ja soll ein bestimmter Wert in Zeile SpalteD eingetragen werden.
Besten Dank für eure Hilfe.
Gruss
Peter
Anzeige

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: datum wert in Spalten prüfen
10.02.2019 11:16:27
Hajo_Zi
Hallo Peter,
=WENN(ODER(ISTFEHLER(VERGLEICH("19.02.19"*1;A:A;0));ISTFEHLER(VERGLEICH("22.02.19"*1;A:A;0)));"";D7)

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
AW: datum wert in Spalten prüfen
10.02.2019 11:37:24
Peter
Hallo Hajo,
besten Dank für Deine Hilfe. Leider nicht das Ergebnis, was ich benötige.
Füge Dir eine Datei bei:
https://www.herber.de/bbs/user/127546.xlsm
Wenn der Wert in G1 dann soll dieser in Spalte A bzw. B gefunden werden, wenn vorhanden dann in D der gefundenen Zeile J1 eingetragen werden.
Gruss
Peter
Anzeige
AW: datum wert in Spalten prüfen
10.02.2019 11:49:48
Werner
Hallo Peter,
so: 
Sub test3a()
Dim daSuch As Date, raFund As Range
With Worksheets("Tabelle1")
daSuch = .Cells(1, 7)
Set raFund = .Columns("A:B").Find(what:=daSuch, LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
.Cells(raFund.Row, 4) = .Cells(1, 10)
Else
MsgBox "Wert in Bereich nicht enthalten."
End If
End With
Set raFund = Nothing
End Sub
Gruß Werner
Anzeige
AW: datum wert in Spalten prüfen
10.02.2019 11:58:27
Peter
Hallo Werner,
besten Dank für Deine Hilfe. Es funktioniert einwandfrei.
Noch eine kleine Bitte.
Wenn der Wert in der gefundenen Zeile eingetragen wurde, dann soll der eingetragene Wert in der SpalteD in alle Zeilen darunter eingetragen werden bis zum Ende der beschriebenen Zelle in Spalte A.
Gruss
Peter
Anzeige
AW: datum wert in Spalten prüfen
10.02.2019 12:10:42
Werner
Hallo Peter,
warum eigentlich immer scheibchenweise? 
Sub test3a()
Dim daSuch As Date, raFund As Range
With Worksheets("Tabelle1")
daSuch = .Cells(1, 7)
Set raFund = .Columns("A:B").Find(what:=daSuch, LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
.Cells(raFund.Row, 4).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row - raFund.Row + 1) = _
.Cells(1, 10)
Else
MsgBox "Wert in Bereich nicht enthalten."
End If
End With
Set raFund = Nothing
End Sub
Gruß Werner
Anzeige
AW: datum wert in Spalten prüfen
10.02.2019 12:15:46
Peter
Hallo Werner,
ich habe kein absolut festes Konzept. Ich habe eine bestimmte Idee und versuche diese umzusetzen.
Wenn der erste Punkt funktioniert, dann suche ich den nächsten. Daher das immer scheibchenweise.
Nochmals besten Dank für Deine Hilfe.
Wenn ich hierzu nochmals ein "Scheibchen" benötige, werde ich mich nochmals melden.
Wünsche Dir ein schönes Wochenende.
Gruss
Peter
Anzeige
Gerne u. Danke für die Rückmeldung und...
10.02.2019 12:18:32
Werner
Hallo Peter,
...wenn das Problem gelöst ist, dann bitte nicht den Haken bei "noch nicht gelöst" setzen.
Gruß Werner
AW: Gerne u. Danke für die Rückmeldung und...
10.02.2019 20:05:53
Peter
beendet
AW: leider doch nicht erledigt
11.02.2019 05:23:55
Peter
Hallo Werner,
leider muss ich Deine Hilfe nochmals in Anspruch nehmen.
Der von Dir gefertigte Code sucht den festen Wert aus Celle G1 in den Spalten A:B.
Es soll aber der Wert gesucht werden der zwischen Wert Spalte A und B liegt.
Beispiel: AnfangDatum 01.08.2018 SpalteA - Enddatum 31.07.2019 SpalteB - daSuch = 05.11.2018
Wenn nun dieser Wert zwischen den beiden Werten gefunden wird dann Ausführen wie von Dir erstellt.
Besten Dank
Gruss
Peter
Anzeige
AW: leider doch nicht erledigt
11.02.2019 07:34:54
Werner
Hallo Peter,
und was hat das jetzt mit deiner hier hochgeladenen Beispielmappe zu tun? Ich würde mal sagen gar nichts.
Mach mal eine Beispielmappe in der du aufzeigst was du willst.
Gruß Werner
AW: leider doch nicht erledigt
11.02.2019 08:18:36
Peter
Hallo Werner,
doch hat schon etwas mit der hochgeladenen Datei zu tun.
Aber ich übersende Dir noch eine weitere leicht veränderte Datei.
https://www.herber.de/bbs/user/127559.xlsm
Kurz eine Erläuterung:
Es werden bei meiner Orginaldatei mehrere Konten angelegt. Insgesamt drei. Sagen wir mal Konto 1, 2 und 3. Diese haben eine Anfangdatum und ein Enddatum. Ein Girokonto und ein oder zwei sonstige Konten.
Wenn ein Konto angelegt wird, z.B. erste Girokonto, dann wird die Konto-ID = 1 in die Spalte E eingefügt in der Zeile, welche das Anfangdatum beinhaltet.
Das gleiche geschieht wenn es sich um die beiden anderen Konten handelt. Dann jedoch die Spalten G bzw. I.
Wird nun ein Konto z.B. das Girokonto während der Laufzeit geändert, z.B. am 31.12.2020, dann muss die neue Konto-ID z.B. 4 in die Spalte F in diesem Beispiel Zeile 21 eingetragen und in Spalte E ab Zeile 22 die Konto-ID = 4.
Zur Erklärung: ich habe eine andere Abrechnungstabelle in welcher die drei Konten mit Formeln aufgezeigt werden. Je nachdem, welches Abrechnungsjahr ausgewählt wird, werden die Kontodaten mit den entsprechenden Formeln angezeigt. Und genau diese entsprechen den Konto-ID Werten entsprechend dem gewählten Abrechnungsjahr.
Ich hoffe ich habe dies verständlich erklärt.
Besten Dank für Deine Hilfe.
Gruss
Peter
Anzeige
AW: leider doch nicht erledigt
11.02.2019 09:36:41
Peter
Hallo Werner,
habe jetzt folgenden Code aufgebaut:
<pre>Sub Datumwert_finden_und_Wert_SpalteD_einfügen2()
Dim dDatum As Date
Dim lZeile As Long
With Worksheets("Tabelle2")
For lZeile = 2 To Range("B65536").End(xlUp).Row
' dDatum = .Range("M1")
dDatum = .Cells(1, 13)
If dDatum >= (.Cells(lZeile, 2).Value) And _
dDatum <= (.Cells(lZeile, 3).Value) Then
.Cells(lZeile, 4).Value = .Cells(1, 16)
'! hier fehlt das restliche Ausfüllen
Else
'' .Range("D" & lZeile).Value = False
End If
Next lZeile
End With
End Sub</pre>
Es fehlt mir jetzt noch das Ausfüllen der restlichen Zellen in Spalte D.
Spalte D ist hier nur ein Versuch statt Spalte E.
Kannst Du mir bitte weiterhelfen.
Gruss
Peter
Anzeige
AW: leider doch nicht erledigt
11.02.2019 12:00:51
Werner
Hallo Peter,
ein wenig zu warten ist nicht so dein Ding? Zur Sicherheit hier auch noch. 
Sub Datumwert_finden_und_Wert_SpalteD_einfügen2()
Dim dDatum As Date, lZeile As Long, i As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle2")
lZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
dDatum = .Cells(1, 13)
For i = 2 To lZeile
If dDatum >= .Cells(i, 2) Then
If dDatum
Gruß Werner
Anzeige
AW: leider doch nicht erledigt
11.02.2019 12:20:37
Peter
Hallo Werner,
besten Dank für Deine Geduld und Hilfe.
Du hast Recht, warten ist nicht so meine Tugend.
Dein Code funktioniert fast einwandfrei.
Das Einfügen des Wertes in Spalte F muss ich hier
.Range(.Cells(i, 6) = .Cells(1, 16)
einfügen?!
Gruss
Peter
AW: leider doch nicht erledigt
11.02.2019 12:28:54
Werner
Hallo Peter,
das hättest du doch einfach ausprobieren können. Spalte E=5, Spalte F=6
Gruß Werner
Anzeige
AW: erledigt
11.02.2019 12:48:02
Peter
Hallo Werner,
ich hatte einen Denkfehler. Es ging nicht um die Spalten, sondern ich habe vergessen .Range zu entfernen. Jetzt funktioniert es einwandfrei.
Nochmals besten Dank für Deine Hilfe und einen schönen Tag.
Gruss
Peter
Gerne u. Danke für die Rückmeldung. o.w.T.
11.02.2019 13:43:04
Werner
;

Forumthreads zu verwandten 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
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
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
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
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
Wert mit Enter in Liste & speichern
adrian

Hallo, bin noch Anfänger & habe noch ein kleines Problem =/
Habe eine Textbox als Userform und möchte diese in dieser etwas mit der "Entertaste" eingeben, was dann in einer Zelle auf dem Sheet gespeichert wird.
Die Abfrage des gespeicherten Werts funktioniert schon mal =)
nur da...
31.10.2008 11:29:11
Thread-ID: 1020826
2 Beiträge
Anzeige
Werte, die in liste 2 mal vorkommen ausblenden!
adrian

Hi,
habe mir folgendes einfach überlegt, nur leider funktioniert es nicht ganz so wie ich will.
Möchte eigentlich nur Werte die in einer Liste 2mal vorkommen ausblenden!
Die ListBox bezieht Ihre Werte von 3 Sheets, wobei es vorkommen kann, das dadurch öfters mal die gleichen Werte a...
07.11.2008 18:23:00
Thread-ID: 1022778
26 Beiträge
Anzeige
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 12:04:00
Thread-ID: 1027253
5 Beiträge
Wert in Spalte suchen
rebecca

Hallo,
ich möchte 2 Spalten vergleichen und wenn der Wert in einer Spalte steht, soll die Zelle ausgegeben werden.
Also: Spalte A 1,2,3 Spalte B 2,5,6 Dann Spalte C 2, alle anderen leer.
Welche Formel ist geeignet und wie muss ich sie aufbauen?
Dankeschön.
Gruss
...
24.11.2008 15:38:00
Thread-ID: 1027331
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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