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

Datum Ausgabe der letzten Preiserhöhung

Forumthread: Datum Ausgabe der letzten Preiserhöhung

Datum Ausgabe der letzten Preiserhöhung
06.09.2018 07:30:33
one
Hallo zusammen,
wie finde ich in der unten angegebene Tabelle heraus, in welchem Monat es eine Preisveränderung gab. Da es auch Monate gibt, in der kein Artikel verkauft wurde, dürften die 0-Werte nicht berücksichtigt werden.
Artikel Jan 18 Feb 18 Mrz 18 Apr 18 Mai 18 Jun 18 Preisanpassung im Monat
A 100 100 100 100 100 100 ? = keine
B 50 50 60 60 60 60 ? = Mrz 18
C 10 9 9 0 9 9 ? = Feb 18
Vielen Dank und beste Grüße
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
mit Index und Vergleich ...
06.09.2018 08:42:34
Matthias
Hallo
Schau Dir mal Index und Vergleich an
Gruß Matthias
AW: Datum Ausgabe der letzten Preiserhöhung
06.09.2018 08:59:18
UweD
Hallo
mit Hilfsspalten?

Tabelle1
 ABCDEFGHIJKLM
1ArtikelJan 18Feb 18Mrz 18Apr 18Mai 18Jun 18H1H2H3H4H5Preisanpassung im Monat
2A100100100100100100     Keine
3B505060606060 Mrz 18   Mrz 18
4C1099099Feb 18 Apr 18Mai 18 Feb 18

verwendete Formeln
Zelle Formel Bereich N/A
H2:L4=WENNFEHLER(INDEX($A$1:$G$1;(C2<>B2)*SPALTE(C1));"")  
M2:M4=WENN(MIN(H2:L2)=0;"Keine";MIN(H2:L2))  
http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://Hajo-Excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 25.14 einschl. 64 Bit


LG UweD
Anzeige
AW: Datum Ausgabe der letzten Preiserhöhung
07.09.2018 07:46:08
one
Hallo
Danke für die Antwort, funktioniert prima.
wohl nur mit Hilfszeile
06.09.2018 08:59:55
WF
Hi,
in B1 bis M1 stehen die Monate
in B2 bis M2 die Preise (auch mehrere Nullen hintereinander)
in B3 (Hilfszeile) steht:
=VERWEIS(2;1/($B2:B20);$B2:B2)
bis N3 kopieren
Das Ergebnis ist die Arrayformel:
{=INDEX(B1:M1;MIN(WENN(B3:M3-C3:N30;SPALTE(B1:M1))))}
Bei mehreren Änderungen wird's komplizierter mit KKLEINSTE ...
Salut WF
Anzeige
AW: wohl nur mit Hilfszeile
07.09.2018 07:46:25
one
Hallo
Danke für die Antwort, funktioniert prima.
AW: Datum Ausgabe der letzten Preiserhöhung
06.09.2018 11:19:08
Toastie
Also... Ich habe leider so gut wie keine VBA Kenntnisse und habe deine Anfrage eigentlich nur als Übung für mich persönlich gesehen. Aber da der Programmcode tatsächlich funktioniert möchte ich ihn dir zur Verfügung stellen. Achtung: Die Zellen mit dem Wert "0" ersetze ich durch den Wert des Vormonats. Sollte eigentlich kein Problem sein, oder doch?
Bevor mich jetzt die ganzen Coding-Experten in der Luft zerreisen:
- Ja, mir ist vollkommen bewusst dass das schäbig programmiert ist
- Ich bin ein blutiger Anfänger und reiner Autoditakt aber für jeden freundlichen Hinweis sehr dankbar!
- Ich steh offensichtlich auf viele Variablen...
Viele Grüße
Toastie
Sub one()
Dim veraenderung As Boolean
lz = Cells(Rows.Count, 1).End(xlUp).Row
ls = Cells.End(xlToRight).Column
Cells(1, ls + 1).Value = "Preisanpassung im Monat"
For aktz = 2 To lz
For akts = 3 To ls - 1
If Cells(aktz, akts) = Cells(aktz, akts - 1) Or Cells(aktz, akts) = 0 Then
Cells(aktz, akts) = Cells(aktz, akts - 1)
If veraenderung = False Then
Cells(aktz, ls + 1) = "keine"
End If
Else
If Cells(aktz, akts - 1)  0 Then
Cells(aktz, ls + 1) = Cells(1, akts)
veraenderung = True
End If
End If
Next akts
veraenderung = False
Next aktz
End Sub
Falls das alles Bulls%&t ist, dann bitte gleich wieder löschen.
Anzeige
AW: Datum Ausgabe der letzten Preiserhöhung
06.09.2018 11:23:11
Toastie
Achja, zwei Hinweise noch:
1.) Die Spalte "Preisanpassuung im Monat" wird automatisch eingefügt. D.h. bevor du das Makro ausführst hat deine Tabelle nur die Artikel- und die Monatsspalten
2.) Das Datum und die Formatierung der letzten Spalte musst du noch manuell machen
AW: Datum Ausgabe der letzten Preiserhöhung
06.09.2018 12:33:54
Toastie
Huch, kleiner Bug in der Auswertung der letzten Spalte:
Sub one()
Dim veraenderung As Boolean
lz = Cells(Rows.Count, 1).End(xlUp).Row
ls = Cells.End(xlToRight).Column
Cells(1, ls + 1).Value = "Preisanpassung im Monat"
For aktz = 2 To lz
For akts = 3 To ls
If Cells(aktz, akts) = Cells(aktz, akts - 1) Or Cells(aktz, akts) = 0 Then
Cells(aktz, akts) = Cells(aktz, akts - 1)
If veraenderung = False Then
Cells(aktz, ls + 1) = "keine"
End If
Else
If Cells(aktz, akts - 1)  0 Then
Cells(aktz, ls + 1) = Cells(1, akts)
veraenderung = True
End If
End If
Next akts
veraenderung = False
Next aktz
End Sub

Anzeige
AW: Datum Ausgabe der letzten Preiserhöhung
07.09.2018 07:51:10
one
Hallo
Danke für die Antwort, bekomme ein Laufzeitfehler 1004
in Zeile Cells(1, ls + 1).Value = "Preisanpassung im Monat".
Ich habe bereits eine Lösung. Trotzdem vielen Dank
;

Forumthreads zu verwandten Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Tabellenblattname in Zelle eintragen
obelix-xxl

Hallo,
ich habe mir eine Tabellenblatt als Vorlage erarbeitet und dieser Tabelle auch den Namen Vorlage gegeben.
Mit einem Makro kann ich nun über die zugewiesene Tastenkombination diese Tabelle an das Ende der Arbeitsmappe kopieren. Dabei fragt das Makro nach dem Tabellenblattnamen. Di...
04.09.2008 21:27:29
Thread-ID: 1007526
3 Beiträge
Syntax für benutzerdefiniertes Zellenformat
BF

Hallo Forum,
kennt jemand eine kurze Beschreibung im Internet zur Syntax des benutzerdefinierten Zellenformats (Zellen formatieren - Zahlen - Benutzerdefiniert - Typ)?
Ich möchte jetzt z.B. statt einer Null einen Strich anzeigen...
Eine allgemeine Anleitung wäre klasse, da ich schon...
04.10.2008 16:17:00
Thread-ID: 1014157
3 Beiträge
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Fehler bei Formel per Makro in Zelle eintragen
Born

Hallo Forum,
ich habe folgendes Problem:
Ich schreibe per Makro in Zellen eine Formel. Als Ergebnis bekomme ich jedoch nur die Fehlermeldung #NAME?. Wenn ich dann mit F2 in den Bearbeiten-Modus gehe und Enter drücke, kommt das richtige Ergebnis. Meine Formel scheint also richtig zu sein...
23.10.2008 10:15:00
Thread-ID: 1018538
11 Beiträge
Anzeige
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Benutzername Datum Zeit in Zelle
Michael

Hallo zusammen,
ich suche nach einem Makro, das einen Benutzernamen aus Tabelle1 Zelle B2, das aktuelle Datum (JJJJ.MM.TT) und die Zeit der Änderung Zeit (hh:mm:ss) bei Änderungen in einer Zeile der Spalten A bis AT in die Zelle AU2 usw. schreibt.
Die Suche hat mich leider nicht weiterg...
27.12.2008 19:52:00
Thread-ID: 1035469
15 Beiträge
Anzeige
Pfad der letzten Speicherung
Iro

Hallo Excel-Gemeinde,
ist es möglich den Ordner herauszufinden, in dem zuletzt von Excel etwas gespeichert wird?
Hintergrund ist, dass in genau diesem Ordner gespeichert wird, wenn ich mit dem Befehl
Spreadsheet.Export Filename:="Filename.xls", Action:=ssExportActionNone
ein...
07.01.2009 18:00:59
Thread-ID: 1037642
3 Beiträge
Benutzername Datum Zeit in Zelle
Micha

Hallo zusammen,
am 29.12.2008 hat mir Peter Feustel bei einem Problem geholfen. Klappte auch alles wunderbar.
Archiv: https://www.herber.de/forum/archiv/1032to1036/t1035469.htm
(vom Archiv aus kann man Beiträge wohl nicht mehr als "Beitrag offen" setzen?!)
Nun macht das Makro "S...
25.01.2009 19:19:50
Thread-ID: 1043657
9 Beiträge
Anzeige
VBA - Berechnung ohne Formeleintrag
kasi

Hallo liebe Excelprofis,
im Grunde bin ich jemand der lieber allein etwas herausfindet als jemanden um Hilfe zu bitten, aber ich weiß jetzt einfach nicht weiter :-(
Nach 6 Tagen rumforschen in allen möglichen Foren geb ich mich geschlagen und will nun doch hier fragend mein Glück versuc...
18.02.2009 02:59:00
Thread-ID: 1051668
4 Beiträge
knifflig: in einer Zelle anzeigen, ob Makros aktiv
Tobias

Gibts ne Möglichkeit, in einer Zelle den "makrostatus" abzufragen.
Ohne VBA natürlich :)
So eine WAHR/FALSCH ausgabe wär praktisch,
da ich den Anfängern, die die Mappe öffnen, einen deutlichen Hinweis darauf geben möchte,
das sie Ohne aktiviertem VBA nicht funktioniert...
I...
20.02.2009 16:47:00
Thread-ID: 1052499
6 Beiträge
DDE formel 'abschalten' ohne VBA
Melanie

Hallo,
ich moechte durch zelle A1 eine DDE formel in A2
z.B. =Server|wert!id4049?abfrage
'abschalten' oder 'auskommentieren', sodass die DDE schnittstelle erst dann aktiv wird, wenn A2 = WAHR ist.
Schoen waere es, wenn das ohne VBA geht.
Wer hat eine Idee ?
Gruss...
23.03.2009 17:20:37
Thread-ID: 1062983
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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