Office: (Office 2007) Tabelle kopieren bis letzte Zeile

Hallo zusammen. Ich versuche mich vergeblich einen VBA Code so zu schreiben, das automatisch bis zur letzten Zeile die Daten zum Kopieren erfasst werden. Ich erhalte den Fehler: 4605, Diese Methode oder Eigenschaft ist nicht verfügbar weil die Zwischenablage leer oder ungültig ist.
Wer könnte mir ggf. weiterhelfen? Gruß Culli

Der Fehler wird bei ".paste" angezeigt.

Mein Codeauszug bisher:

PHP:

         With .GetInspector.WordEditor.Application.Selection

LetzteZeile = ThisWorkbook.Sheets("Info").Cells(Rows.Count, 5).End(xlUp).Row

.Start = Len(sMailtext)
.End = Len(sMailtext)
.Paste
End With


:)

 

Hallo,
das könnte so aussehen:
Code:

 

Danke , habs mal gestartet und dann gesehen, das ab Zeile etwas eingefügt werden soll. Ich wollte aber den Inhalt aus der Tabelle in Outlook überführen. Sorry, hat hoffentlich nicht in die Irre geführt.
Gruß Culli

Mein jetziger Code ist:

PHP:

         Private Sub Änderungen_Click()
Dim sMailtext As String
Dim LetzteZeile As Range  ' Integer
Dim wksInfo As Worksheet
sMailtext = "Aktueller Änderungsumfang" ' Bodytext
With CreateObject("Outlook.Application").CreateItem(0)
.GetInspector
.Subject = "Änderungen"
.Body = sMailtext & .Body
.Importance = 1
.To = ############@t-online.de"
' .CC = "Freund@gmail.com"
.Display
'  .Send
With .GetInspector.WordEditor.Application.Selection
'Tabellenblatt definieren
Set wksInfo = ThisWorkbook.Worksheets("Info")
With wksInfo
'letzte Zeile in Spalte E
lngZeile = .Cells(.Rows.Count, 5).End(xlUp).Row
'Bereich kopieren und in A1 einfügen
.Range("A1:E" & lngZeile).Copy              'Bereich der kopiert wird
'     .Range("A1").PasteSpecial xlPasteValues     'Anpassen wohin der Bereich eingeüft werden soll
Application.CutCopyMode = False
End With
' LetzteZelle = ThisWorkbook.Sheets("Info").Cells(Rows.Count, 6).End(xlUp).Row
' LetzteZeile = ThisWorkbook.Sheets("Info").Cells(Rows("1:" & LetzteZeile)).Copy(Range("A" & LetzteZeile + "10")).End(xlUp).Row
.Start = Len(sMailtext)
.End = Len(sMailtext)
.Paste
End With
End With
End  Sub
End Sub


 

Hallo, hatte gestern wohl eine Antwort von Hajo_Zi auf meine Frage. Jetzt weiß ich nicht wo die abgeblieben ist. Habe sie mit Sicherheit nicht gelöscht. Könnte ich sie überhaupt löschen?? Gruß Culli

 

Du hast deinen Beitrag gestern 2mal gepostet.

https://www.ms-office-forum.net/foru...d.php?t=368506

 

Danke für den Hinweis, aber suche immer noch nach Unterstützung. Gruß Culli

 

Wollte nochmal für Unterstützung auf meine Frage aufmerksam machen. Vielleicht ist auch Hajo trotz negativer Äußerung bereit, sein Wissen abermals zur Lösung auf meine Frage bereitzustellen. Danke bis dahin und Gruß Culli

 

Hallo,
hast du dein Problem löschen können?? Sofern du ein Bereich per E-Mail versickern möchtest, damit kannst du es machen:
Code:

 

Hallo, habe deine Antwort/Lösung erst jetzt versuchen können, passt perfekt. Danke vielmals und Gruß Culli