Aus einem Anderen Browser diesmal hoffentlich mit Zeilenumbrüchen.
Hallo.
Ich habe ein kleines Problem über das ich mir geade den Kopf zermartere:
Ich habe Eine User Form um in einem Datensatz zu suchen. Der 'Suche Ausführen' Knopf löst folgendes aus:
Private Sub CommandButton7_Click() 'Suche Ausführen
Dim i As Integer
Dim n As Integer
i = 2
n = 2
If ToggleButton1.Value = True Then
n = letzteZeile(1, 1)
End If
If OptionButton1.Value = True Then
Do While Sheets(3).Cells(i, 1) <> ""
If Sheets(3).Cells(i, 1) = TextBox4.Value Then
SucheEintragen(n, i)
End If
i = i + 1
Loop
End If
End Sub
Public Function SucheEintragen(n As Integer, i As Integer)
Sheets(1).Cells(n, 1) = Sheets(3).Cells(i, 1)
Sheets(1).Cells(n, 2) = Sheets(3).Cells(i, 2)
Sheets(1).Cells(n, 3) = Sheets(2).Cells(Sheets(3).Cells(i, 3), 2)
Sheets(1).Cells(n, 4) = Sheets(2).Cells(Sheets(3).Cells(i, 4), 3)
Sheets(1).Cells(n, 5) = Sheets(2).Cells(Sheets(3).Cells(i, 5), 4)
Sheets(1).Cells(n, 6) = Sheets(2).Cells(Sheets(3).Cells(i, 6), 5)
Sheets(1).Cells(n, 7) = Sheets(3).Cells(i, 7)
Sheets(1).Cells(n, 9) = Sheets(2).Cells(Sheets(3).Cells(i, 9), 6)
With Worksheets(1)
.Hyperlinks.Add Anchor:=Cells(ListIndex, 8), _
Address:=Sheets(3).Cells(i, 8), _
ScreenTip:="PDF Scann der Rechnung", _
TextToDisplay:="PDF"
End With
ListIndex = ListIndex + 1
End Function
Wen ich nun das SucheAusführen(n, i) im Sub des Buttons eingebe verlangt die Autokorrektur des Editors immer ein =.
(Fehler beim Kompilieren. Erwartet =)
Wenn ich die User Form ausführe und eine Suche auslösen will bekomme ich Einen Syntaxfehler und die besagte Zeile wird markiert. Ich verstehe wirklich nicht warum dieser Fehler entsteht..
Ich hoffe mir kann jemand helfen. Danke :)
|