Zellen per Makro kopieren und auflisten?!

Die Datei https://www.herber.de/bbs/user/24401.xls wurde aus Datenschutzgründen gelöscht

Morgen!
Ich möchte gerne in der o.g. Arbeitsmappe folgendes erreichen:
Per Button-Druck sollen die ausgefüllten Zellen der Tabelle "Eingabe" in das Blatt "Liste" verschoben und dort untereinander aufgelistet werden. Also wenn ein Auftrag enstanden ist, drückt man den Knopf (Hinzufügen Liste), die Felder werden (beim ersten Mal) in die entsprechenden Felder in der 4. Zeile "Liste" ausgeschnitten und kopiert; bei der nächsten Auftragseingabe in die 5. Zeile usw...
Wenn dann noch jemand eine Idee hätte, wie man die Daten per Makro in eine Outlook-Mail übernehmen könnte, wäre ich wunschlos glücklich! (ist aber nicht soo wichtig...)
1000Dank und Grüße
Michael

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton2_Click() Dim SH, LR% Set SH = Sheets("Liste") LR = 1 + SH.Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte SH.Cells(LR, 1) = [B3] SH.Cells(LR, 2) = [B5] SH.Cells(LR, 3) = [B6] SH.Cells(LR, 4) = [B8] SH.Cells(LR, 5) = [B9] SH.Cells(LR, 6) = [B11] SH.Cells(LR, 7) = [C8] SH.Cells(LR, 8) = [C9] SH.Cells(LR, 9) = [C11] SH.Cells(LR, 10) = [D8] SH.Cells(LR, 11) = [D9] SH.Cells(LR, 12) = [D11] End Sub

Hallo
Hab was umgebaut.
Kann es aber nicht testen, da ich nicht mit outlook arbeite:
In ein normales Modul:
Sub Excel_Range_via_Outlook_Senden()
Dim OutApp As Object, Mail As Object, i
Dim Nachricht

Dim ClpObj As DataObject
Set ClpObj = New DataObject
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
Range("A3:D12").Copy
With Nachricht
.Subject = "Betreffzeile"
'***Zwischenablage wird eingefügt
ClpObj.GetFromClipboard
.Body = ClpObj.GetText(1)
.To = "Info@Somo.de"
'**** Hier wird die Mail angezeigt
'.Display

'Oder Hier wird die Mail gleich in den Postausgang gelegt
.SEND
End With
Set OutApp = Nothing
Set Nachricht = Nothing

End Sub
in den Codebereich von Blatt" Eingabe"


Private Sub CommandButton2_Click()
Dim SH, LR%
Set SH = Sheets("Liste")
LR = 1 + SH.Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte
SH.Cells(LR, 1) = [B3]
SH.Cells(LR, 2) = [B5]
SH.Cells(LR, 3) = [B6]
SH.Cells(LR, 4) = [B8]
SH.Cells(LR, 5) = [B9]
SH.Cells(LR, 6) = [B11]
SH.Cells(LR, 7) = [C8]
SH.Cells(LR, 8) = [C9]
SH.Cells(LR, 9) = [C11]
SH.Cells(LR, 10) = [D8]
SH.Cells(LR, 11) = [D9]
SH.Cells(LR, 12) = [D11]
End Sub


Private Sub MailSomo_Click()
Call Excel_Range_via_Outlook_Senden
End Sub

Gruß UweD
(Rückmeldung wäre toll)

Beliebteste Forumthreads (12 Monate)

Zellen per Makro kopieren und auflisten?!

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen per Makro kopieren und auflisten?!

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread