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

Ansicht des Beitrags:
Von:
David		 Datum:
02.03.2009 12:26:09		 Views:
2429		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Laufzeitfehler 32809
Hat sich erledigt ;-)

Lag an der Kompatibilität von Excel 2007 und Excel 2003.



David schrieb am 02.03.2009 10:07:41:

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