Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
808to812
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
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Betrifft: Preis finden - an Peter Feustel

Betrifft: Preis finden - an Peter Feustel
16.10.2006 00:20:26
uwe
Hallo Peter Feustel,
vielen Dank für deine Antwort. Ich konnte erst jetzt wieder ins Forum.
Es ist nur ein kleiner Haken: Wenn man genau ein einer Periode bleibt,
dann rechtnet das Makro "komische" Werte.
zB. 20.4.2007 bis 30.4.2007 --- 41Tage !!
Vielleicht kannst du noch mal schauen
Danke
Uwe
Hallo,
ich habe eine Preistabelle (grün hinterlegt) in der die Übernachtungspreise hinterlegt sind.
Ich will jetzt mit der Eingabe(gelbes Feld) eines beliebigen Zeitraums in dem Jahr die richtigen Preise finden. (blaues Feld)
Als Beispiel habe eine Datei angefügt.

Die Datei https://www.herber.de/bbs/user/37230.xls wurde aus Datenschutzgründen gelöscht

Ich kann leider erst nächte Woche antworten und
bin auf eure Lösung gespannt.
Danke
Gruss
Uwe
Hallo Uwe,
ich hoffe, dass meine Lösung alle Eventualitäten abdeckt - schau mal.
https://www.herber.de/bbs/user/37236.xls
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Betrifft: Preis finden - an Peter Feustel
16.10.2006 06:28:24
Erich
Hallo Uwe,
da war ein kleiner Fehler drin, statt 
            Range("C14").Value = CDate(Range("B" & lZeile).Value) - _
CDate(Range("A14").Value)
muss es heißen: 
            Range("C14").Value = CDate(Range("B14").Value) - _
CDate(Range("A14").Value)
Probiers mal mit 
Sub Preisfindung()
Dim lZeile As Long
If IsDate(Cells(14, 1)) And IsDate(Cells(14, 2)) Then
Range("C14:H14").ClearContents
Else
MsgBox "Die Eingabe(n) in Zelle ""A14"" und/oder ""B14""" & _
" enthalten kein gültiges Datum - Abbruch.", 48, "   fehlerhaftes Datum."
Exit Sub
End If
For lZeile = 3 To 6
If Cells(14, 1) >= Cells(lZeile, 1) And Cells(14, 1) <= Cells(lZeile, 2) Then
Cells(14, 4) = Cells(lZeile, 3)
Cells(14, 5) = Cells(lZeile, 4)
If Cells(14, 2) <= Cells(lZeile, 2) Then
Cells(14, 3) = Cells(14, 2) - Cells(14, 1)
Else
Cells(14, 3) = Cells(lZeile, 2) - Cells(14, 1)
Cells(14, 6) = Cells(14, 2) - Cells(lZeile + 1, 1) + 1
Cells(14, 7) = Cells(lZeile + 1, 3)
Cells(14, 8) = Cells(lZeile + 1, 4)
End If
Exit For
End If
Next lZeile
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Betrifft: Preis finden - an Peter Feustel
16.10.2006 09:39:01
uwe
Hallo,
besten Dank.
Einen schönen Tag noch.
Gruss
Uwe

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige