Thema Datum  Von Nutzer Rating
Antwort
Rot letzte zeile
 27.03.2008 09:53:58 daniel
NotSolved

Ansicht des Beitrags:
Von:
daniel		 Datum:
27.03.2008 09:53:58		 Views:
1715		 Rating:
     
Antwort:
  Ja
Thema:
letzte zeile
Hallo Holger vielen Dank für die schnelle Antwort.
Es ist eine Excel Tabelle mit einem Button(Steuerelement), wenn ich den Button drücke errechnet mir der VBA Code das Datum bis zum Start of Production. In der Spalte G ab Zeile 9 - 35 werden die Arbeitstage (AT) eingegeben per Hand z.B. 260, für Stückliste erstellen und 0 für Akkustikfreigabe, in Zelle B-H 4 steht der Starttermin ab dem berechnet wird. D.h. der Code errechnet anhand des Starttermins und den händisch eingegebnen Arbeitstagen das Datum wann z.B. die Läppung oder die Akkustikfreigabe geschieht und schreibt dieses in Spalte H Zelle 9 bis 34. Leider nur bis H34 Aber er müsste es bis H35 errechnen.
Ich drücke nun den Button "Berechnen" gehe auf Makro zuweisen und dann Bearbeiten und poste nun den Code den er mir anzeigt.
(Hoffe Sie können mir Helfen, kenn mich in vba leider noch gar nicht so gut aus hab bisher nur Grundkenntinsse in C++ und JavaScript, hab mir aber schon 2 Bücher über VBA geholt: VBA für Dummies und VBA mit Excel von Markt und Technik, evtl. eine Buchempfehlung von nem pro?)

Sub Datum_ueberpruefen()

'* Beginn der Variablendeklaration fuer die Methode "Datum_ueberpruefen_schnelle_Version()" *'
Dim Datum As Date
Dim Endtermin As Date

Dim Liste As Collection
Set Liste = New Collection

Dim ATage As Integer 'Dient zur Ermittlung, wie hoch die groesste Anzahl an Arbeitstagen ist

Dim AfoTermin(3) As Integer 'Spalte und Zeile fuer untere und obere Grenze
Dim AT(3) As Integer 'Spalte und Zeile fuer untere und obere Grenze
Dim Auftragstermin(1) As Integer 'Spalte und Zeile fuer eine Zelle
Dim Lieferung(1) As Integer 'Spalte und Zeile fuer eine Zelle
Dim rot_faerben(1) As Integer

Dim spezielleZellen As Collection 'Collections beginnen mit Index 1!
Set spezielleZellen = New Collection

'* Ende der Variablendeklaration fuer die Methode "Datum_ueberpruefen_schnelle_Version()" **'

'*********** Beginn Prototypen-Radsaetze-spezifische Daten fuer das Excel-Sheet ************'
AfoTermin(0) = 10 'Zeile 10
AfoTermin(1) = 7 'Spalte 7
AfoTermin(2) = 27 'Zeile 27
AfoTermin(3) = 7 'Spalte 7

AT(0) = 10 'Zeile 10
AT(1) = 6 'Spalte 6
AT(2) = 27 'Zeile 27
AT(3) = 6 'Spalte 6

Auftragstermin(0) = 4 'Zeile 4
Auftragstermin(1) = 2 'Spalte 2

Lieferung(0) = 28 'Zeile 28
Lieferung(1) = 7 'Spalte 7

rot_faerben(0) = 2 'Beginnend mit zweiter Spalte
rot_faerben(1) = 3 'Enden in dritter Spalte

'Prototypen-Radsaetze in Liste hinzufuegen
spezielleZellen.Add (AfoTermin)
spezielleZellen.Add (AT)
spezielleZellen.Add (Auftragstermin)
spezielleZellen.Add (Lieferung)
spezielleZellen.Add (rot_faerben)

'************* Ende Prototypen-Radsaetze-spezifische Daten fuer das Excel-Sheet ************'

'***************** Beginn Radsaetze-spezifische Daten fuer das Excel-Sheet *****************'
AfoTermin(0) = 8
AfoTermin(1) = 8
AfoTermin(2) = 33
AfoTermin(3) = 8

AT(0) = 8
AT(1) = 7
AT(2) = 33
AT(3) = 7

Auftragstermin(0) = 4
Auftragstermin(1) = 2

Lieferung(0) = 34
Lieferung(1) = 8

rot_faerben(0) = 2 'Beginnend mit zweiter Spalte
rot_faerben(1) = 3 'Enden in dritter Spalte

'Prototypen-Radsaetze in Liste hinzufuegen
spezielleZellen.Add (AfoTermin)
spezielleZellen.Add (AT)
spezielleZellen.Add (Auftragstermin)
spezielleZellen.Add (Lieferung)
spezielleZellen.Add (rot_faerben)

'***************** Ende Radsaetze-spezifische Daten fuer das Excel-Sheet

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
Rot letzte zeile
 27.03.2008 09:53:58 daniel
NotSolved