VBA: invalid procedure call or argument

[Max (Gast)]

Hallo, ich habe hier diesen code in Excel VBA erstellt um seriell Daten 
zu senden und bekomme dauernd den genannten Fehler.

Private Sub CommandButton1_Click()

Dim CHKSUM As Integer
Dim Aout As String
Dim O1 As String
Dim O2 As String
Dim O3 As String
Dim I1 As String
Dim I2 As String
Dim I3 As String

'Clear cells first
Range("B13:AG28").ClearContents

O1 = Left(O, 1)
O2 = Mid(O, 2, 1)
O3 = Right(O, 1)

I1 = Left(I, 1)
I2 = Mid(I, 2, 1)
I3 = Right(I, 1)

'Calculate checksum and send data
CHKSUM = ((Asc("{") - 32) + (Asc("A") - 32) + (Asc("B") - 32) + 
(Asc("s") - 32) + (Asc(",") - 32) + (Asc(O1) - 32) + (Asc(O2) - 32) + 
(Asc(O3) - 32) + (Asc(",") - 32) + (Asc(I1) - 32) + (Asc(I2) - 32) + 
(Asc(I3) - 32) + (Asc("}") - 32) Mod 95) + 32

Aout = "{ABs," & O1 & O2 & O3 & "," & I1 & I2 & I3 & "}" & Chr$(CHKSUM)


Wenn ich die Zeile "Range("B13:AG28").ClearContents" weglasse ist alles 
in Ordnung, wenn ich sie drin habe bekomm ich den Fehler in der Zeile 
angezeigt, in der die Checksum berechnet wird. Wo ist da der Sinn???

mfg Max

[Max (Gast)]

Hallo Michael,

Ich habe vorsichtshalber alle Zellen einmal gelöscht, der Fehler kommt 
wieder, allerdings in der Zeile drunter. Excel file befindet sich im 
Anhang.

[Oliver S. (oliverso)]

Ohne jegliche VBA-Kenntnisse würde ich vermuten, daß auch in VBA ein 
Funktionsaufruf Klammern benötigt. Wenn nicht, dann liegt es an was 
anderem...

Oliver

[Max (Gast)]

Für den Control button benutze ich keine Funktion. Vorher hat alles 
funktioniert, nur dass ich die Zellen vorher löschen möchte. Ab dann 
geht nix mehr und jetzt auch auf einmal wenn ich den clear weglasse 
kommt derselbe Fehler..

[Max (Gast)]

Habe jetzt rausgefunden dass die Public Variablen O und I auf einmal 
ihren Inhalt verlieren und deswegen die Fehlermeldung kommt. Wodurch 
kommt das?

[Max (Gast)]

So Problem gelöst. Anstatt der globalen Variablen habe ich einfach 
lokale Variablen genommen und im sheet zwischengespeichert.