Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 32809
 02.03.2009 10:07:41 David
NotSolved
02.03.2009 12:26:09 David
NotSolved

Ansicht des Beitrags:
Von:
David		 Datum:
02.03.2009 10:07:41		 Views:
2629		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler 32809
Hallo zusammen,

ich hatte gestern in Excel 2007 folgendes kleines Programm geschrieben und heute auf der Arbeit wo ich es brauche funktioniert es nicht mehr. (Ist zwar ein älteres Excel, aber die Befehle sind ja die gleichen...
Der Fehler tritt immer nach den Deklarationen auf bei Bauteil =.... und Gewicht =....

Über einen Hinweis oder sogar eine Lösung freue ich mich sehr!

Sub Projekt()
Dim i As Variant
Dim j As Variant
Dim k As Variant
Dim Bauteil As Variant
Dim Gewicht As Variant

Bauteil = Worksheets("Analysetool").Cells(9, 4).Value
Gewicht = Worksheets("Analysetool").Cells(19, 4).Value

If Bauteil = 1 Then Worksheets("Analysetool").Cells(9, 4).Value = "Brüstung"
If Bauteil = 2 Then Worksheets("Analysetool").Cells(9, 4).Value = "Kontrollleuchte"
If Bauteil = 3 Then Worksheets("Analysetool").Cells(9, 4).Value = "Rahmen"
If Gewicht = 1 Then Worksheets("Analysetool").Cells(19, 4).Value = "0-0,3"
If Gewicht = 2 Then Worksheets("Analysetool").Cells(19, 4).Value = "0,3-0,7"
If Gewicht = 3 Then Worksheets("Analysetool").Cells(19, 4).Value = "0,7-1"
If Gewicht = 4 Then Worksheets("Analysetool").Cells(19, 4).Value = "1-2"

For i = 1 To 216
For k = 1 To 216

If Worksheets("Auswertung").Cells(i + 1, 3).Value = Bauteil Then
If Worksheets("Auswertung").Cells(k + 1, 11).Value = Gewicht Then

Worksheets("Analysetool").Cells(9, 9).Value = Worksheets("Auswertung").Cells(i + 1, 2).Value

End If
End If

Next
Next


End Sub


Freundlichen Grüße,

David

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 Laufzeitfehler 32809
 02.03.2009 10:07:41 David
NotSolved
02.03.2009 12:26:09 David
NotSolved