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
Anzeige