Suche ChrisL
Roman
Du hast mir bei meinem E-Mail-Problem geholfen - besten Dank.
Nun habe ich aber noch ein Problem, wenn ich die a's mit g's vertausche läuft nichts mehr, warum? (habe die Mailadressen in der
Spalte g).
Kannst Du mir einen Tipp geben, habe schon über eine Stunde nach der Ursache gesucht, keine Ahnung.
Besten Dank für Deinen Tipp und Deine Geduld. (Habe auch versuche mit kopieren in Spalte A mit nachfolgendem Löschen gemacht, dann geht es - kann aber so die Vorlage nicht präsentieren)
Sub E_Mail_Versand()
'Columns("g:g").Select
' Selection.Copy
'Columns("A:A").Select
'ActiveSheet.Paste
' Range("A1").Select
'Application.CutCopyMode = False
Dim iZeile As Long
For iZeile = 1 To Range("g65536").End(xlUp).Row
If WorksheetFunction.CountIf(Range("g1:g" & iZeile), Cells(iZeile, 1)) = 1 Then
' OK schick mal
' ActiveWorkbook.SendMail CStr(Cells(iZeile, 1)), "E-Mail-Versand"
ActiveSheet.Copy
ActiveWorkbook.SendMail CStr(Cells(iZeile, 1)), "Interne Bestellung durch VTS-Bestellsystem gesendet"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End If
Next iZeile
'Columns("A:A").Select
' Selection.ClearContents
' Range("A1").Select
End Sub
Viele Grüsse
Thomas
Anzeige