Kompilierungsfehler
17.05.2020 11:54:01
Thomas
ich habe eine Userform mit folgendem Code
Private Sub Speichern_Click()
Dim LetzteZeile As Long
Dim rngZelle As Range
With Sheets("Sortiment")
I = .Cells(Rows.Count, 6).End(xlUp).Row + 1 'letzte freie zeile
.Cells(I, 2) = Cells(Rows.Count, 3).End(xlUp).Row & Int((1000 * Rnd) + 1) ' _
Zufallszahl
.Cells(I, 3) = tbprodukt
.Cells(I, 4) = cbsteuer
.Cells(I, 5) = CDbl(tbek)
.Cells(I, 6) = CDbl(tbvk)
End With
End Sub
Mit Office 2016 funktioniert der Code, die in der Userform eingetragenen Werte, werden richtig in das Tabellenblatt "Sortiment" übernommen.
Mit Office 2019 bekomme ich folgende Fehlermeldung:
Fehler beim Kompilieren
Projekt oder Bibiliothek nicht gefunden.
Der Code scheint sich an dem "I" zu stören. hat jemand einen Rat wie ich den Fehler gelöst bekomme?
Schöne Grüße
Thomas