kann jemand helfen?
Mit folgenden Code kopiere ich den Wert aus A1 und eine andere Zelle und lösche den alten Wert in A1. Verwende ich als Wert zb. A, dann funktioniert das ganze nicht mehr, warum?
If Sheets("Tabelle1").Range("A1") "" Then
Sheets("Tabelle1").Range("A3") = Range("A1").Value And Sheets("Tabelle1").Range("A1").ClearContents
End If
Unabhängig vom Zellinhalt möchte ich den Wert aus A1 nach A3 übertragen und dann den Wert aus A1 löschen. Hintergrund verschicke mittels VBA aus Excel eine Mail, dabei soll der Wert aus A1 nach B3 übertragen werden, wenn man auf den Button klickt zum Versenden.
Hier mein Code zum Mail senden.
Private Sub CommandButton2_Click()
ActiveSheet.Unprotect
On Error Resume Next
'Anzeige für die Vorbereitung des Versandes der Tabellen
bytMsg = MsgBox("Datei in das E-Mail Postausgangsfach" & vbLf & _
"ablegen?", vbYesNo + vbQuestion)
If bytMsg = vbNo Then
Exit Sub
Else
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Rücksendung"
.Body = "Hier bitte Mitteilung"
.Attachments.Add ActiveWorkbook.FullName
'.Attachments.Add ("C:\test.txt")
.Display 'Send or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End If
On Error GoTo 0
Application.ScreenUpdating = True
End Sub
Das Problem ist, der Zellwert in A1 darf nicht in der Originaldatei verändert werden, sondern nur in der Datei, die dann als Kopie versendet wird.
Vielen Dank
Gr. T.