Per Inputbox werden Zahlen (Werte) im Bereich D11:D72 und E11:E72, in erste freie Zelle des Bereichs, gesetzt, Das funktioniert,
Problem: In D72 und E72 erfolgt nur ein Eintrag in D72 und es kommt ein Fehlerhinweis:"Keine Zellen gefunden". Laufzeitfehler 1004 und die Codezeile
Ich kann den Codefehler nicht finden und evtl ist der Code grundsätzlich falsch.
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Hier meine Musterdatei mit Code in Modul1: https://www.herber.de/bbs/user/152855.xlsm
Code:
Sub MessWerte()
Dim lngLast1 As Long 'Bereich D11:D72
lngLast1 = Cells(Rows.Count, 4).End(xlUp).Row + 1
Dim lngLast2 As Long 'Bereich E11:E72
lngLast2 = Cells(Rows.Count, 5).End(xlUp).Row + 1
Dim Sys As Integer
Sys = InputBox("Sys Wert?")
Dim Puls As Integer
Puls = InputBox("Puls Wert?")
Range("D" & lngLast1).Value = Sys 'Bereich D11:D72
Range("D11:D72").SpecialCells (xlCellTypeBlanks)
Range("E" & lngLast2).Value = Puls 'Bereich E11:E72
Range("E11:E72").SpecialCells (xlCellTypeBlanks)
End Sub