MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 16.05.2018, 22:56   #1
Georg-Ferdinand
Neuer Benutzer
Neuer Benutzer
Standard VBA - Inhalt Zellbereich als Text in Mail

Guten Abend,
ich möchte von einer Excel-Datei per Makro eine Mail versenden. Der
Mailtext steht dabei in den Zeilen C7:C11. Ich möchte also den Inhalt
dieser Zeilen in die Mail als Text übernehmen.

Folgender Code funktioniert (natürlich) nicht, zeigt aber vielleicht was
ich meine:

MailDoc.body = Range("C7:C11").Value

Kann mir jemand einen geeigneten Code dafür nennen?

Vorab schon mal vielen Dank dafür!

Grüße, GF
Georg-Ferdinand ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.05.2018, 01:41   #2
Werner.M
MOF User
MOF User
Standard

Hallo Georg,

hier mal zwei Möglichkeiten:
PHP-Code:

Public Sub Zellinhalt_untereinander()
Dim strMailtext As String

With Worksheets
("Tabelle1"Blattname anpassen
    
For 7 To 11
        
If .Cells(i3) <> "" Then
            
If strMailtext vbNullString Then
                strMailtext 
= .Cells(i3)
            Else
                
strMailtext strMailtext vbLf & .Cells(i3)
            
End If
        
End If
    
Next i
End With
MailDoc
.body strMailtext
End Sub 
PHP-Code:

Public Sub Zellinhalt_nebeneinander()
Dim strMailtext As String

With Worksheets
("Tabelle1"Blattname anpassen
    
For 7 To 11
        
If .Cells(i3) <> "" Then
            
If strMailtext vbNullString Then
                strMailtext 
= .Cells(i3)
            Else
                
strMailtext strMailtext " " & .Cells(i3)
            
End If
        
End If
    
Next i
End With
MailDoc
.body strMailtext
End Sub 

Gruß Werner
Werner.M ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.05.2018, 07:54   #3
Georg-Ferdinand
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Werner,
vielen Dank für die zwei Vorschläge. Gibt es auch eine Möglichkeit für den Fall, dass man im Exel dem Zellbereich einen Namen gegeben hat, den man in VBA dann nur aufzurufen braucht? Das hätte den Vorteil, dass man im Excel dann Zeilen hinzufügen kann ohne den Quelltext des Makros änder zu müssen.

Grüße, Georg
Georg-Ferdinand ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.05.2018, 08:05   #4
Beverly
MOF Guru
MOF Guru
Standard

Hi Georg,

versuche es so:

Code:

Sub Zellinhalt_untereinander()
    Dim strMailtext As String
    strMailtext = Join(Application.Transpose(Worksheets("Tabelle1").Range("meinBereich")), vbLf)
    MailDoc.body = strMailtext
End Sub

Du könntest auch gleich MailDoc.body = Join(....) schreiben.


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).

Geändert von Beverly (17.05.2018 um 08:08 Uhr).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.05.2018, 08:28   #5
Georg-Ferdinand
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Funktioniert super. Vielen Dank!
Georg-Ferdinand ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:49 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.