EXCEL.EXE FEHLER! BITTE UM DRINGENDE HILFE
ChristianS
ich habe unter Excel 2003 eine automatisierte Reisekostenrechnung erstellt mittels VB --->
Wenn ich das ganze allerdings unter Excel 2000 (egal welcher PC) ausführe habe ich einen excel.exe Fehler ---> Ich habe bisher versucht den Code einfacher zu machen aber ohne Erfolg!!! Kann mir irgendjemand dabei helfen!
Ich kann rausnehmen was ich will es geht einfach nicht!
ahhhhhhhhhhhhhhhh :)
Es wäre echt dringend danke!
DAS IST DER CODE:
Private Sub VN_text_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim a As Integer
Dim b As Integer
Dim stor, stor2, stor3 As String
Dim fr1, fr2, fr3, fr4, fr5 As String
Dim de1, de2, de3 As String
fr1 = "date"
fr2 = "temps"
fr3 = "place"
de1 = "Datum"
de2 = "Zeit"
de3 = "Ort"
If KeyCode = vbKeyReturn Then
Me.kfz_kennzeichen_box.Clear
'Zum Auslesen des Namens zur entsprechenden Versicherungsnummer
For a = 3 To 224
Range("AO" & a).Select
If Me.VN_text.Text = ActiveCell Then
Me.Name_text.Text = ActiveCell.Offset(0, -1).Text
End If
a = a + 1
Next a
Range("c4").Select
Me.Kst_text.Activate
'Zum auslesen von KFZ Kennzeichen, KMSTAND und Sprachcode aufgrund der Versicherungsnummer
For b = 3 To 115
Range("AR" & b).Select
If Me.VN_text.Text = ActiveCell Then
stor = ActiveCell.Offset(0, 1).Text
stor2 = ActiveCell.Offset(0, 2).Text
stor3 = ActiveCell.Offset(0, 3).Text
stor4 = ActiveCell.Offset(0, 4)
stor5 = ActiveCell.Offset(0, 5).Text
Me.kfz_kennzeichen_box.AddItem stor
Me.kfz_kennzeichen_box.AddItem stor2
Me.kfz_kennzeichen_box.AddItem stor3
End If
Next b
Range("o10") = stor4
Range("c4").Select
Me.Kst_text.Activate
If stor5 = "fr" Then
Range("a2") = "Déduction de frais de voyage / Kilomètre et Diètes"
Range("a4") = "nom:"
Range("a6") = "Mois/année:"
Range("e6") = "page:"
Range("i4") = "Type de voiture:"
Range("i5") = "Voiture numéro:"
Range("i6") = "pays:"
Range("a9") = fr1
Range("b9") = fr2
Range("c9") = fr3
Range("d9") = fr1
Range("e9") = fr2
Range("f9") = fr3
Range("g9") = fr1
Range("h9") = fr2
Range("i9") = fr3
Range("j9") = fr1
Range("k9") = fr2
Range("l9") = fr3
Range("a8") = "Départ"
Range("d8") = "Passage de la frontière dans à l'étranger"
Range("g8") = "Passage de la frontière dans au pays"
Range("j8") = "Arrivée"
Range("m8") = "Raison de voyage"
Range("n8") = "Itinéraire"
Range("o8") = "État de kilomètre départ"
Range("p8") = "État de kilomètre Arrivée"
Range("q8") = "Kilomètre conduit"
Range("a24") = "Diètes intérieur du pays"
Range("a25") = "Diètes étranger"
Range("a26") = "total"
Range("a27") = "Nuitée"
Range("a28") = "Argent de kilomètre"
End If
If stor5 = "de" Then
Range("a2") = "REISEKOSTENABRECHNUNG / Kilometer und Diäten"
Range("a4") = "Name:"
Range("a6") = "Monat/Jahr:"
Range("e6") = "Seite:"
Range("i4") = "KFZ Type:"
Range("i5") = "KFZ Kennzeichen:"
Range("i6") = "Land:"
Range("a9") = de1
Range("b9") = de2
Range("c9") = de3
Range("d9") = de1
Range("e9") = de2
Range("f9") = de3
Range("g9") = de1
Range("h9") = de2
Range("i9") = de3
Range("j9") = de1
Range("k9") = de2
Range("l9") = de3
Range("a8") = "Abfahrt"
Range("d8") = "Grenzübertritt ins Ausland"
Range("g8") = "Grenzübertritt ins Inland"
Range("j8") = "Ankunft"
Range("m8") = "Reisegrund"
Range("n8") = "Route"
Range("o8") = "KM Stand Abfahrt"
Range("p8") = "KM Stand Ankunft"
Range("q8") = "KM gefahren"
Range("a24") = "Diäten Inland"
Range("a25") = "Diäten Ausland"
Range("a26") = "Gesamt"
Range("a27") = "Nächtigungen"
Range("a28") = "KM-Geld"
End If
End If
If KeyCode = vbKeyTab Then
Me.kfz_kennzeichen_box.Clear
'Zum Auslesen des Namens zur entsprechenden Versicherungsnummer
For a = 3 To 220
Range("AO" & a).Select
If Me.VN_text.Text = ActiveCell Then
Me.Name_text.Text = ActiveCell.Offset(0, -1).Text
End If
a = a + 1
Next a
Range("c4").Select
Me.Kst_text.Activate
'Zum auslesen von KFZ Kennzeichen, KMSTAND und Sprachcode aufgrund der Versicherungsnummer
For b = 3 To 115
Range("AR" & b).Select
If Me.VN_text.Text = ActiveCell Then
stor = ActiveCell.Offset(0, 1).Text
stor2 = ActiveCell.Offset(0, 2).Text
stor3 = ActiveCell.Offset(0, 3).Text
stor4 = ActiveCell.Offset(0, 4)
stor5 = ActiveCell.Offset(0, 5).Text
Me.kfz_kennzeichen_box.AddItem stor
Me.kfz_kennzeichen_box.AddItem stor2
Me.kfz_kennzeichen_box.AddItem stor3
End If
Next b
Range("o10") = stor4
Range("c4").Select
Me.Kst_text.Activate
End If
End Sub