Hallo Community,
in meinem Bachelor Maschinenbau Studeingang muss ich im ersten Semester ein Programm für Infromatik erstellen und habe bei diesem Problem keine Ahnung wie ich es lösen kann.
Das Programm ist eine Art Formelsammlung zur Berechnung von Zeit((Hauptnutzungszeiten) und Kosten beim bearbeiten verschiedener Materialien. In Insgesamt 6 verschiedenen Worksheets steheh jeweils die benötigten Daten zum rechnen. Die Zeile gibt dabei z.B. das Werkzeug oder Material an und die Spalten den jeweiligen Wert für die Variable mit der gerechnet werden soll. Über eine Userform "wählt" der Nutzer nun per commandbutton das Werkzeug aus, das er gerne benutzen würde. Dazu habe ich in einem neuen Modul die Globale Variable "WerkzeugeAuswahl" als String angelegt:
Option Explicit
Global WerkzeugeAuswahl As String
, welche beim auswählen, auf den Wert der Zeile, in der das Werkzeug in der tabelle steht, gesetzt wird. Hier als Beispiel Zeile 21:
Private Sub cmdGewindebohrerHSS1216MnCr5_Click()
Unload Me
UFLängeneingaben.Show
WerkzeugeAuswahl = 21
End Sub
Nachdem das Werkzeug ausgewählt wurde, soll Excel nun in einer Textbox das Ergebnis der ausgerechneten Formel angeben(Nehme hier als Beispiel eine simple * Rechnung). Per Rangebefehl mit Variable:
txtZeit.Text = Worksheets("Werkzeuge1").Range("C" & WerkzeugeAuswahl).Value * Worksheets("Werkzeuge1").Range("I" & WerkzeugeAuswahl).Value
soll er nun in die entsprechende Tabelle gehen und die beiden Werte miteinander multiplizieren. Als Fehlermeldung erhalte ich allerdings "Laufzeitfehler 1004" Anwendungs oder objektdefinierter fehler. Falls noch mehr Code benötigt wird, reiche ich den gerne nach. vielen dank schonmal für die Hilfe :)
|