EXcel Code
20.03.2016 11:27:17
Achmed
ich lerne gerade Programmierung mit VBA und bin im Anfängerstatus.
Den unten stehenden Code habe ich programmiert der funktioniert auch gut. Das einzige Problem ist nur das nachdem der Zellenbereich A50:F51 kopiert wurde der Inhalt der Zelle F51 gelöscht werden soll.
Ich habe daher den Befehl Range("F51").ClearContents eingefügt. Jedoch erscheint dannach die Fehlermeldung das die Paste Methode nicht ausgeführt werden konnte. An der Stelle wo ActiveSheet.Paste steht wird es Gelb.
Kann mir da jemand sagen was ich falsch mache und einen Verbesserungsvorschlag geben?
Sub Schaltfläche31_Klicken()
Dim pos As Integer
Dim start_index As Integer
pos = Cells("48", "A").Value
start_index = 55
start_index = 55 + (pos * 4)
Range("A50:F51").Select
Selection.Copy
' Range("A8:F9").Select
Range("F51").ClearContents
Range(Cells(start_index, "A"), Cells(start_index + 1, "F")).Select
ActiveSheet.Paste
Cells(48, "A").Value = pos + 1
End Sub