Tabellenblatt per VBA als Email versende. Range Bereich angeben??

Mitglied: thomas1972

thomas1972 (Level 1) - Jetzt verbinden

13.01.2016 um 15:45 Uhr, 748 Aufrufe, 1 Kommentar

Hallo,

mit folgendem Code lasse ich das Tabellenblatt1 per Mail als CSV Datei versenden.

Wie bekomme ich es hin, dass nur ein gewisser Rangebereich versendet wird.

mit z.b. ThisWorkbook.Worksheets("Tabelle1").Cells(1).Resize(14).Value ect..
kommt er nicht klar.

z.b. Spalten A-N

<code>

Sub Mail_CSV()
Dim csvFullName$
Dim strMailEmpfaenger As String
Dim quelle As Range

'Delimiter angeben
Const sDelimiter$ = ";"

strMailEmpfaenger = "fewf@dede.de"

If Application.MailSystem <> xlNoMailSystem Then
Dim vValue As Variant
Do
vValue = InputBox("Für welche Nummersoll gemeldet werden?", "Nummer")
If IsNumeric(vValue) Then Exit Do
Loop

csvFullName = ThisWorkbook.Path
If Right$(csvFullName, 1) <> "\" Then csvFullName = csvFullName & "\"
csvFullName = csvFullName & "CROSS_Keyuser " & vValue & ".csv"

Application.ScreenUpdating = False

'CSV erstellen
'sDelimiter, Datei, Tabelle
Export_CSV sDelimiter, csvFullName, ThisWorkbook.Worksheets("Tabelle1")

Workbooks.Open Filename:=csvFullName


Application.ActiveWorkbook.SendMail strMailEmpfaenger, "CROSS Keyuser - Neuanlagen / Änderungen Cross Betriebsnummer: " & vValue, False
End If
ActiveWorkbook.Close False

If Dir(csvFullName, vbNormal) <> "" Then
Kill csvFullName
End If

Application.ScreenUpdating = True
End Sub

Sub Export_CSV(sDelimiter As String, strDatei As String, oTabelle As Worksheet)
Dim rngBereich As Range, strString$
Dim F As Integer
'löschen wenn vorhanden
If Dir(strDatei, vbNormal) <> "" Then
Kill strDatei
DoEvents
End If

Set rngBereich = oTabelle.UsedRange
F = FreeFile
Open strDatei For Append As #F
With Application
If rngBereich.Columns.Count > 1 Then
For Each rngBereich In rngBereich.Rows
strString = Join(.Transpose(.Transpose(rngBereich)), sDelimiter)
Print #F, strString
Next rngBereich
Else
For Each rngBereich In rngBereich.Rows
Print #F, rngBereich.Value
Next rngBereich
End If
End With
Close #F
End Sub

<code>
Mitglied: 114757
114757 (Level 4)
13.01.2016 um 15:53 Uhr
Hier gibts die passende Funktion dafür:
https://www.administrator.de/forum/vba-makro-excel-zellen-auslesen-csv-d ...

Gruß jodel32
Bitte warten ..
Heiß diskutierte Inhalte
Off Topic
Ein Weg weg von Microsoft. Wie würde man es angehen? Lasst uns doch etwas spinnen
it-fraggleVor 1 TagAllgemeinOff Topic48 Kommentare

Guten Morgen Kollegen, es treibt mich schon seit einigen Jahren um, dass es sinnvoll wäre langsam einen Weg weg von Microsoftprodukten zu finden. Mir ...

Batch & Shell
Wieso funktioniert das nicht?
gelöst Hundy132Vor 1 TagFrageBatch & Shell10 Kommentare

Hallo Freunde, kann mir irgendjemand sagen wieso meine Batch datei nicht funktioniert? So sieht Sie aus: Hier soll ein ein vorgegebenes Passwort Eingegeben werden ...

Server-Hardware
HPE ProLiant MicroServer Gen10 Plus - Wo wird das OS installiert?
mayho33Vor 1 TagFrageServer-Hardware13 Kommentare

Hallo @ All, Ich liebäugle mit einem neuem Server (siehe Überschrift). Mein alter Gen8 ist zwar immer noch am laufen, aber es gibt einiges ...

Router & Routing
Probleme mit VPN Verbindung über shrewsoft
martenkVor 1 TagFrageRouter & Routing25 Kommentare

Hallo Gemeinschaft, habe ein Problem mit der o.g. Verbindung die Verbindung wird aufgebaut und ich kann auch den entfernten Rechner anpingen unter ipconfig sehe ...

Windows Server
Server 2019 RDS-CALs für Domänen-Admins? Ernsthaft?
gelöst anteNopeVor 1 TagFrageWindows Server7 Kommentare

Nabend zusammen, ich habe hier heute einen RDS auf Basis eines Server 2019 STD installiert und mit User-CALs lizenziert. Soweit funktioniert auch alles. Nur ...

Exchange Server
Outlook Automatisch auf alle eingehendem Mail eine Antwortvorlage versenden
shooanVor 1 TagFrageExchange Server13 Kommentare

Guten Morgen, ich hätte da gerne mal ein Problem zur Lösung. Auf das Freigegeben Postfach Bewerbung@ wünscht nun die Führung das auf alle Mail ...

LAN, WAN, Wireless
100m GBit-Richtfunk im Freien - Produktempfehlungen?
mstrd308Vor 1 TagFrageLAN, WAN, Wireless9 Kommentare

Hallo zusammen, ich bin auf der Suche nach Produktempfehlungen um einen Richtfunk von einem Gebäude zu einen weiteren zu realisieren. Die Peripherie soll draußen ...

Exchange Server
Transparente Mail-Archivierung Exch. 2016 m. direktem Outlook-Zugriff
departure69Vor 1 TagFrageExchange Server17 Kommentare

Hallo. - Windows 2016 AD-Domäne, 2 DCs unter W2K16 Std. (1 x physisch, 1 x virtuell unter Hyper-V), Funktionsebene 2016 - Exchange 2016 unter ...