Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Formel einfügen

Betrifft: Formel einfügen von: Giuseppe
Geschrieben am: 30.08.2004 12:37:48

Hallo Freunde,
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

  


Betrifft: Hat sich erledig von: Giuseppe
Geschrieben am: 30.08.2004 22:01:12

.


 

Beiträge aus den Excel-Beispielen zum Thema "Formel einfügen"