Zitat:

danke jetzt hats geklappt mit dem komma und punkt.

Zitat:

hier mal die aktuele code: http://share2net.mine.nu/basic.bas

If oper.tool.Diameter < 0.5 Then
' und dann
If oper.tool.Diameter > 0.5 Then

Zitat:

jetzt zu meine letzen problem. Die ausgabe geschieht aus einer DB! und wird in word geschrieben! es darf heit ned zwei mal das selbe "CStr(slot)" geben.

Zitat:

Ich würde des in php z.B. zwischen speicher in einem array bevor er erneut versucht CStr(slot) einzutragen und checken ob es schon vorhanden ist. oder heit den text auf CStr(slot) durchsuchen und wenn er etwas gefunden hat nichts eintragen oder wenn er nichts gefunden hat CStr(slot) eintragen.

Dim TestArray(4)
    Dim x As Integer
    Dim Suchbegrif As String
 
    ' Array fuellen
    For x = 0 To 3
        TestArray(x) = x
    Next
 
    Suchbegriff = "3" ' Wegen Text
 
    ' Array auf Suchbegriff prüfen
    For y = 0 To 3
        If CStr(TestArray(y)) = Suchbegriff Then
            MsgBox "Suchbegriff " & Suchbegriff & " an Position " & y & "" & _
              "gefunden"
            ' Hier nichts machen in deinem Code
        Else
            MsgBox "Suchbegriff " & Suchbegriff & " an Position " & y & " nicht" & _
              "vorhanden"
            ' Hier entsprechend reagieren in deinem Code
        End If
    Next

Zitat:

hoffe das versteht man ich weis heit die befehle ned für diese actionen.