Live-Forum - Die aktuellen Beiträge
Datum
Titel
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?
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1732to1736
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
1732to1736
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Name in spalte suchen sowie anschließende Prüfung und Ausgabe

VBA - Name in spalte suchen sowie anschließende Prüfung und Ausgabe
09.01.2020 12:15:23
Frederic
Hallo! :)
Ich habe folgendes Problem:
Ich habe zwei Tabellenblätter (Bsp: 1 und 2). Meine Aufgabe ist es nun einen Namen in Tabellenblatt 2 in Tabellenblatt 1 in einer spalte zu suchen und währenddessen zu prüfen ob ein Wert in drei Spalten daneben kleiner 0 ist (Man muss sich das so vorstellen, dass der Name immer untereinander steht und 3 Spalten daneben die Tage stehen bzgl Überfäligkeit oder nicht):
SpalteA Name
abc
abc
abc
SpalteB Zeitraum
01.01.2020
16.01.2020
31.01.2020
SpalteC Tage Überfällig
-8
7
22
Nun möchte ich z.B. zunächst nach dem Namen "abc" in Spalte A suchen (deswegen, da es noch weitere gibt) und den negativen Wert -8 auslesen und in excel ausgeben den dazugehörigen Zeitraum (01.01.2020) ebenso in Excel dazu ausgeben (Zeitraum von...).
Denn sobald ein Rechnungsbetrag in Tabellenblatt 1 eingetragen wird weiter rechts, fällt die -8 in "OK". Dann soll in Tabellenblatt 2 eventuell eine nachricht n beiden spalten stehen wie: alles ok!.
Ich hoffe man versteht es so :)
Beste Grüße
Frederic

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Name in spalte suchen sowie anschließende Prüfung und Ausgabe
09.01.2020 12:20:49
SF
Hola,
=INDEX(Tabelle1!B2:B4;SUMMENPRODUKT((Tabelle1!A2:A4="abc")*(Tabelle1!C2:C4
Gruß,
steve1da
AW: VBA - Name in spalte suchen sowie anschließende Prüfung und Ausgabe
09.01.2020 13:08:36
Frederic
Erstmal vielen dank für die schnelle antwort aber das ist noch nicht so ganz das was ich brauche.. ich habe es mal ausprobiert und sobald ich was eingebe und die -8 umspringt in OK muss ich ja noch einen Text drin stehen haben.. und irgendwie funktioniert die nicht, sobald ich mehrere Namen habe und dann bsqw. Zeile 1:20 habe sowie generell die Tabellen auch länger sind..
Beste Grüße
Frederic
AW: VBA - Name in spalte suchen sowie anschließende Prüfung und Ausgabe
09.01.2020 13:29:38
hary
Moin
Evtl. reicht dir das: 
Sub Ueberfällige_Zahlungen()
Dim rngLast As Range, rngFirst As Range, Bereich As Range, zelle As Range
Dim strText As String
Dim Bereich1 As Range, zelle1 As Range
Dim OhneDuplikate As New Collection
Dim i As Long
With Worksheets("Tabelle1") '--ggf. Blattname anpassen
Set Bereich1 = .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
On Error Resume Next
For Each zelle1 In Bereich1
OhneDuplikate.Add zelle1.Value, CStr(zelle1.Value)
Next
For i = 1 To OhneDuplikate.Count
Set rngLast = .Range("A:A").Find(what:=OhneDuplikate(i), after:=.Range("A1"), searchdirection: _
=xlPrevious)
Set rngFirst = .Range("A:A").Find(what:=OhneDuplikate(i), after:=rngLast, searchdirection:= _
xlNext)
Set Bereich = .Range(rngFirst, rngLast).Offset(, 2)
For Each zelle In Bereich
If zelle

gruss hary
Anzeige
AW:Zusatz
09.01.2020 13:31:28
hary
Moin nochemal
Die Namen in SpalteA muessen sortiert sein.
gruss hary
AW: AW:Zusatz
09.01.2020 14:11:05
Frederic
@Steve: Es funktioniert jetzt, aber bei der eigentlichen Tabelle irgendwie nicht.. hab alles an verbinden und zentrieren rausgenommen.. aber nichts..
@Hary: dankee ;) aber verstehe als VBA Anfänger den Code leider nicht so..
Gruß
Frederic
AW: AW:Zusatz
09.01.2020 14:22:25
SF
Hola,
mit "funktioniert irgendwie nicht" kann ich leider nichts anfangen.
Gruß,
steve1da
AW: VBA - Name in spalte suchen sowie anschließende Prüfung und Ausgabe
09.01.2020 13:58:41
SF
Hola,
eine Beispieldatei wäre hilfreich.
Gruß,
steve1da
AW: VBA - Name in spalte suchen sowie anschließende Prüfung und Ausgabe
09.01.2020 14:38:29
Frederic
Hier eine Beispieldatei:
https://www.herber.de/bbs/user/134279.xlsx
Beste Grüße
Frederic
Anzeige
AW: VBA - Name in spalte suchen sowie anschließende Prüfung und Ausgabe
09.01.2020 14:49:10
SF
Hola,
=WENNFEHLER(INDEX(Tabelle2!E$3:E$15;AGGREGAT(15;6;ZEILE(Tabelle2!$E$3:$E$15) -2/((Tabelle2!$A$3:$A$15=$B4)*(Tabelle2!$F$3:$F$15<0));1));"") ~f~
~f~=WENNFEHLER(INDEX(Tabelle2!F$3:F$15;AGGREGAT(15;6;ZEILE(Tabelle2!$E$3:$E$15)-2/((Tabelle2!$A$3:$A$15=$B4)*(Tabelle2!$F$3:$F$15<0));1));"")
Gruß,
steve1da
AW: VBA - Name in spalte suchen sowie anschließende Prüfung und Ausgabe
09.01.2020 16:10:31
Frederic
super vielen Dank Steve :) !!
eine Sache wäre noch mega.. aber muss nicht.. und zwar wenn OK drin steht nimmt der das Datum in der zweiten Zeile. Wenn eine Zahl größer 0 drin steht dann kann ich die Formel ja normal nutzen
Beste Grüße
Frederic
AW: VBA - Name in spalte suchen sowie anschließende Prüfung und Ausgabe
09.01.2020 16:18:34
SF
Hola,
bei "OK" wird gar nichts ausgegeben - jedenfalls bei mir nicht.
Gruß,
steve1da
Anzeige
AW: VBA - Name in spalte suchen sowie anschließende Prüfung und Ausgabe
10.01.2020 10:19:34
Frederic
ich finde das sooo schwierig auch das noch mitreinzubringen.. also das in der Datumsspalte D in der Beispieldatei zum einen das Datum für die Überfälligkeit angezeigt wird, wenn ein negativer Wert vorhanden ist. Außerdem wenn "OK" drin steht, das Datum für den nächst größeren Wert über 0 angezeigt wird (also das zweite sozusagen) und drittens wenn kein OK und keine Überfälligkeit das erste Datum angezeigt wird..
Beste Grüße
Frederic

318 Forumthreads zu ähnlichen Themen

String in Zeilen suchen
Herbert

Hallo liebe Gemeinde
Ich habe mir vor längerer Zeit von Euch helfen lassen, um in der Spalte A rückwärts nach Text zu suchen.
In Spalte A kam bisher der jeweilige Name einer Abteilung (den suche ich) und laufende Nummern vor, klappt prima mit folgendem Code:
Sub a_String() iRow =...
28.10.2008 14:20:00
Thread-ID: 1019944
7 Beiträge
Anzeige
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
Anzeige
Wert suchen, eintragen, weitersuchen (VBA)
Nico

Moin
Nachdem ich Gestern mein Problem mit einem Sverweis über mehrere Zellen lösen wollte (Danke nochmal an Josef Ehrensberger) habe ich heute feststellen dürfen, dass es zwar funktioniert - aber die Verzögerung auf Grund der Masse an Daten doch zu hoch ist.
Hier also mein Problem zieml...
26.02.2009 09:19:15
Thread-ID: 1054225
11 Beiträge
VBA Wert suchen, Wert einfügen
andreas

Hallo zusammen,
wie muss ich den Code schreiben, suche nach Zeilen in denen die Zelle "B" nicht leer ist.
In der Zeile in der die Zelle "B" nicht leer ist soll dann in Zelle "P" der Wert "1" eingetragen werden.
Danke für die Hilfe
Andreas
09.03.2009 08:27:39
Thread-ID: 1057988
8 Beiträge
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
bedingte Formatierung suchen u. ersetzen durch VBA
Peter

Guten Tag
Ich habe in einer Tabelle an verchiedenen Orten immer die gleiche bedingte Formatierung (Bedingung ist eine Formel). Nun möchte ich diese überall durch eine andere bedingte Formatierung ersetzen.
Ist dies möglich, mit Hilfe von VBA? Wenn ja, wie?
Danke für eine Antwort.
19.03.2009 06:55:03
Thread-ID: 1061661
8 Beiträge
In Spalte nach Wert suchen VBA
andreas


Hallo zusammen,
ich habe hier eine Tabelle, da will ich nach jeder Änderung in der Tabelle in Spalte "F" nach Wert "Spritzgießen" suchen und bei den gefundenen Zeilen die Zellen "B-N" rot einfärben und mit Rahmen versehen.
Komme aber wegen Mangels VBA-Erfahrung nicht klar damit.
03.04.2009 13:05:41
Thread-ID: 1066652
5 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
6
1
1
3
2
10
7
8
7
4
5
4
6
2
2
13
3
9
3
4
2
3
3
1
2