Formel einfügen
30.08.2004 12:37:48
Giuseppe
Guten Tag
Ich habe ein kleines problem:
Mit der Code lösche ein Row die in Column 14 eine Formel enthalten hat. Ich möchte die Formel =B52&" - "& D52&" - " & E52&" " & F52 an letzte Zeile haben!
Kann mich jemand helfen?
Danke
Giuseppe
Private Sub Daten_löschen_Click()
Auf ' Unprotect
If TextBox3 = "" Then Exit Sub
ActiveCell.Select
Dim irisposta As Integer
irisposta = MsgBox("Wollen Sie wircklich die Daten von: " & ActiveCell.Value & " löschen?", vbYesNo)
If irisposta = vbYes Then
ActiveCell.EntireRow.Delete
' hier möchte in der letzte Zeile (column 14) die Formel angeben
'=B52&" - "& D52&" - " & E52&" " & F52
Dim CA As Object
Range("A3:A52").ClearContents
Range("A3").Value = 1
For Each CA In Range("A3:A52")
If CA.Offset(1, 0) = "" Then
CA.Offset(1, 0) = CA + 1
End If
Next
End If
Zu 'Protect
End Sub
Anzeige