Bereich erweitern
10.11.2004 10:15:33
Thomas
Ich habe ein Problem mit untenstehendem Makro.
Das Makro sucht in der Spalte G nach E-Mailadressen.
Neu sind die E-Mailadressen aber nicht nur in der Spalte G sondern
in den Spalten G-K verteilt.
Kann mir jemand das untenstehende Makro erweitern?
Die restlichen Makrofunktionen bleiben erhalten, es geht nur um die
Bereichserweiterung G-H.
Sub E_Mail_Versand()
Dim iZeile As Long
For iZeile = 1 To Range("g65536").End(xlUp).Row
If WorksheetFunction.CountIf(Range("g1:g" & iZeile), Cells(iZeile, 7)) = 1 Then
' OK schick mal
' ActiveWorkbook.SendMail CStr(Cells(iZeile, 1)), "E-Mail-Versand"
ActiveSheet.Copy
ActiveWorkbook.SendMail CStr(Cells(iZeile, 7)), "Bestellung von VTS - Beilage beachten!!!"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End If
Next iZeile
'Columns("A:A").Select
' Selection.ClearContents
' Range("A1").Select
End Sub
Vielen Dank schon jetzt!
Gruss Thomas