Methode Range mit Objekt Worksheet fehlgeschlagen
01.02.2006 17:21:02
Peter
Ich möchte Feld J11 =cells(11,10) im aktiven Sheet via Inputbox ändern können.
Als vorgeschlagener Wert möchte ich den aktuellen Wert aus J11 zeigen. Beim Ausführen des nachfolgenden Makros erscheint die im Betreff vermerkte Fehlermeldung. (Betrifft Code-Zeile "Satz = Application.InputBox (".......)"
Was mache ich falsch?
Danke für Feedback.
Peter
Sub KommSatzAnp()
Dim aBook As Workbook
Dim aSheet As Worksheet
Dim Satz As Single
Set aBook = ThisWorkbook
Set aSheet = aBook.ActiveSheet
Satz = Application.InputBox("Ansatz in % eingeben (ohne %-Zeichen)", _
"Verwaltungskommission", aSheet.Range(Cells(11, 10)).Text, , , , 1)
With aSheet
.Cells(11, 10) = Satz
End With
End Sub
Anzeige