Herbers Excel/VBA-Archiv

Spalten in Email versenden

• Spalten in Email versenden von Müller vom 12.10.2020 13:25:23
• AW: Spalten in Email versenden - von Rudi Maintaire am 12.10.2020 14:05:46
  • AW: Spalten in Email versenden - von Müller am 12.10.2020 14:59:30
    • AW: Spalten in Email versenden - von Müller am 12.10.2020 15:06:22
      • AW: Spalten in Email versenden - von Müller am 12.10.2020 15:55:44
        • welcher Fehler? - von Rudi Maintaire am 12.10.2020 16:01:32
        • AW: Spalten in Email versenden - von Müller am 12.10.2020 16:34:34
          • AW: Spalten in Email versenden - von Müller am 13.10.2020 06:25:42

Betrifft: Spalten in Email versenden von: Müller
Geschrieben am: 12.10.2020 13:25:23

Hallo,

ich brauche mal Hilfe, ich habe auf mehreren Tabellen Blättern in einer Arbeitsmappe in Spalte A Geräte Bezeichnungen das heisst Tabellen Blatt 3 bis 6 nun habe ich im Tabellen Blatt ein Button Email versenden möchte aber in der Email nicht nur die Werte aus Tabellen Blatt3 sondern auch die aus 4 5 und 6 haben.


Sub Mail ()

Dim bereich As Range, a, z, s, zeile, gesamt, alles

Set bereich = Range("A3:A600")

For Each a In bereich.Areas

For z = 1 To a.Rows.Count

For s = 1 To a.Columns.Count

zeile = zeile & " " & a.Cells(z, s)

Next

gesamt = gesamt & vbCrLf & zeile

zeile = ""

Next

alles = alles & vbCrLf & gesamt

gesamt = ""

Next

Dim Nachricht As Object, OutApp As Object

Set OutApp = CreateObject("Outlook.Application")

Set Nachricht = OutApp.CreateItem(0)


Wie muss ich das anpassen das nicht nur die Werte vom Tabellenblatt 3 in der Mail stehen.

  

Betrifft: AW: Spalten in Email versenden
von: Rudi Maintaire
Geschrieben am: 12.10.2020 14:05:46

sub Mail ()

Dim bereich As Range, a, z, s, zeile, gesamt, alles
for each wks in sheets(array("blatt3","Blatt4"))
Set bereich = wks.Range("A3:A600")

For Each a In bereich.Areas

For z = 1 To a.Rows.Count

For s = 1 To a.Columns.Count

zeile = zeile & " " & a.Cells(z, s)

Next

gesamt = gesamt & vbCrLf & zeile

zeile = ""

Next

alles = alles & vbCrLf & gesamt

gesamt = ""

Next
next wks
Dim Nachricht As Object, OutApp As Object

Set OutApp = CreateObject("Outlook.Application")

Set Nachricht = OutApp.CreateItem(0)

  

Betrifft: AW: Spalten in Email versenden
von: Müller
Geschrieben am: 12.10.2020 14:59:30

hab es getestet kommt aber immer Fehler beim kompilieren FOR ohne Next

  

Betrifft: AW: Spalten in Email versenden
von: Müller
Geschrieben am: 12.10.2020 15:06:22

Next Fehler gefunden jetzt kommt hier der Fehler For Each wks In Sheets(Array("Tabelle31", "Tabelle4"))

  

Betrifft: AW: Spalten in Email versenden
von: Müller
Geschrieben am: 12.10.2020 15:55:44

Jemand einen Tip für mich

  

Betrifft: welcher Fehler?
von: Rudi Maintaire
Geschrieben am: 12.10.2020 16:01:32

LZF 9 (index außerhalb...)?
Dann gibt es min. 1 Blatt nicht.

  

Betrifft: AW: Spalten in Email versenden
von: Müller
Geschrieben am: 12.10.2020 16:34:34

Fehler gefunden, aber erschreibt mir in die Email wieder nur die Daten aus dem ersten blatt.

  

Betrifft: AW: Spalten in Email versenden
von: Müller
Geschrieben am: 13.10.2020 06:25:42

ich bin nicht weiter gekommen die Daten werden nur aus Tabellenblatt 1 in die Email geschrieben,
hat jemand einen Tip wie man das realisieren kann