Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Formel einfügen
30.08.2004 12:37:48
Giuseppe
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Hat sich erledig
Giuseppe
.
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige