ExcelVBA2CalCBasic

Converting an existing VBA script to OpenOffice Calc Basic. Script compares column a with column b - > result is tab of ident field and one tab with unident fields Private Sub CB_Start_Click() Dim x As Double Dim y As Double Dim z As Double Dim a As Double Dim b As Double Dim c As Double x = 2 z = 1 b = 1 Sheets(3).[login to view URL] Sheets(4).[login to view URL] y = 1 Do For a = 3 To 4 Sheets(a).Cells(1, y).Value = Sheets(1).Cells(1, y + 1).Value Next a y = y + 1 Loop Until Sheets(1).Cells(1, y + 1).Value = "" Do y = 2 a = 0 Do c = 1 If Sheets(1).Cells(x, 2).Value = Sheets(1).Cells(y, 1).Value Then If Sheets(3).Cells(z, 1).Value <> "" Then z = z + 1 Do Sheets(3).Cells(z, c).Value = Sheets(1).Cells(x, c + 1).Value c = c + 1 Loop Until Sheets(1).Cells(x, c + 1).Value = "" a = 1 End If y = y + 1 Loop Until Sheets(1).Cells(x, 2).Value = Sheets(1).Cells(y - 1, 1).Value Or Sheets(1).Cells(y, 1) = "" If a = 0 Then If Sheets(4).Cells(b, 1).Value <> "" Then b = b + 1 Sheets(4).Cells(b, 1).Value = Sheets(1).Cells(x, 2).Value c = 1 Do Sheets(4).Cells(b, c).Value = Sheets(1).Cells(x, c + 1).Value c = c + 1 Loop Until Sheets(1).Cells(x, c + 1).Value = "" End If x = x + 1 Loop Until Sheets(1).Cells(x, 2) = "" MsgBox "Habe fertig" & vbCr & "Übereinstimmungen: " & z - 1 & vbCr & "Keine Übereinstimmung: " & b - 1 & vbCr & "Summe: " & z + b - 2, vbInformation, "Spaltenvergleich" If b = 1 Or z = 1 Then MsgBox "Bitte nachkontrollieren Programm noch nicht ganz ausgereift", vbExclamation, "Spaltenvergleich" End If End Sub