Wert setzen wenn Bedingung zutrifft

Hallo,
ich habe eine Excel Tabelle womit ich hin und wieder mal eine Rechnung schreiben kann.
Dazu habe ich Tabelle1 (Rechnung) und Tabelle5 (Datenbank) angelegt, in der Datenbank ist eine dynamische Tabelle wo ich Datum der Leistung, Tarif, Preis und Auftragsnummer rein schreibe. Dort ist auch eine Spalte mit Rechnungsdatum und Rechnungsnummer.
Die Rechnungsnummer steht Tabelle1 in B16, und in G7 ist Auszug der Datenbank mit Filter und Sortieren, so dass dort nur für den ausgewählten Kunden die Leistungen stehen sowie Tarif und Preis.
Nun möchte ich per Makro dass für alle dort gefilterten Ergebnisse in Datenbank gesucht werden, und dort aktelles Datum bei Rechnungsdatum gesetzt werden soll.
Wenn das Datum gesetzt ist, tauchen die Einträge nicht mehr bei Rechnung auf da bereits abgerechnet sind.
Würde also gerne nach Auftragsnummer (kommt ggf. mehrmals vor) und Tarif suchen, so dass beide zusammen einmalig sind für die Suche.
Die Datenbanktabelle hat Namen Datenbank, wäre also auch z.B. mit =Datenbank[[#Alle];[Rechnungsnummer]] ansprechbar.
In der Datenbank sind Werte in Spalten
B Auftragsnummer
C Tarif
G Rechnungsnummer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
ich gehe davon aus, dass Du nicht nur das Rechnungsdatum, sondern auch die Rechnungsnummer übertragen möchtest - denn andernfalls bleibt die Rechnungsnummer leer und das FILTER-Ergebnis wird nicht aktualisiert.
Zudem hast Du geschrieben, dass die Rechnungsnummer in Rechnung!B16 steht - davon gehe ich also aus (in Deiner Beispieldatei steht da ja nix).
Die entsprechenden Zeilen für die Einträge in G und H im Blatt Datenbank würde ich auch direkt mit der Spill-Formel ermitteln - dann kann man bequem darauf zugreifen.
Konkret:
Änder Deine Formel in Rechnung!G7 wie folgt:
=LET(x;SORTIEREN(FILTER(Datenbank[[Leistungsdatum]:[Preis]];(Datenbank[Kunde]=M1) *(Datenbank[Rechnungsnummer]="");"");2;1);y;INDEX(x;;2);a;INDEX(x;;3);b;VERGLEICH(y&a; Datenbank!B:B&Datenbank!C:C;);WENNFEHLER(WAHL({1.1.1.1.1.2};x;b);""))
Damit wird in eine zusätzlichen Spalte ganz rechts die Position (=Zeile) des jeweiligen Eintrags in der Datenbank ermittelt (diese Spalte kannst Du ausblenden, wenn sie Dich stört).
Dann diesen Code einem Button zuweisen:


Sub Rechnung_eintragen()
Dim C As Range
On Error GoTo ERR_EXIT
Application.Calculation = xlCalculationManual
For Each C In Tabelle1.Range("G7#").Columns(6).Cells
Tabelle2.Cells(C, "G") = Tabelle1.Range("B16") 'Rechnungsnummer
Tabelle2.Cells(C, "H") = Date 'Rechnungsdatum = HEUTE
Next C
Application.Calculation = xlCalculationAutomatic
ERR_EXIT:
End Sub

VG, Boris

Beliebteste Forumthreads (12 Monate)

Wert setzen wenn Bedingung zutrifft

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wert setzen wenn Bedingung zutrifft

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

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread