Thema Datum  Von Nutzer Rating
Antwort
11.07.2007 23:35:29 Unwissender
NotSolved
Blau Aw:Benötige mehr als 7 verschachtelte If..Then..El
 12.07.2007 20:52:18 Sozu
NotSolved

Ansicht des Beitrags:
Von:
Sozu		 Datum:
12.07.2007 20:52:18		 Views:
1708		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Benötige mehr als 7 verschachtelte If..Then..El
Hey du Unwissender,
dein Problem schreit geradezu nach einer "SELECT CASE" Anwendung!

------------------------------------------
For reihe= 2 to Activesheet.UsesRange.Rows.Count
datum = "Datum von Cells(reihe,4).Value aus Listen!E"
Select CASE datum
CASE < "julianischer Wert für den ersten des Folgemonats Februar": Cells(reihe,5).Value = "Januar aus Listen!B"
CASE < "julianischer Wert für den ersten des Folgemonats März": Cells(reihe,5).Value = "Februar aus Listen!B"

... bis "November aus Listen!B"

CASE Else: Cells(reihe,5).Value = "Dezember aus Listen!B"
END Select
Next reihe
-------------------------------------------

Ich hab es mal so aufgeschrieben, wie du es in deiner Beschreibung wiedergegeben hast.

"datum" ist dabei eine Variable in die du den "julianischen Wert" aus den Listen!E einträgst.

Ich hoffe, du kannst damit etwas anfangen.

Gruß Sozu

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.07.2007 23:35:29 Unwissender
NotSolved
Blau Aw:Benötige mehr als 7 verschachtelte If..Then..El
 12.07.2007 20:52:18 Sozu
NotSolved