Hilfe bei Codeabänderung
Uwe
kann mir einer dabei helfen den folgenden Code so anzupassen, dass er auch in Zeile 4700 seine Daten nimmt?
Im Einzeltest funktioniert es.... aber wenn ich es in mein Tabellenblatt einbette kann ich ihm die abfragenden zellen erst ab Zeile 4700 abieten....nur dann meckert der Code.
Sub DatenFiltern()
Dim sAddress As String, ccAdr As String, sBCC As String, sSubject As String, sTxt As String
Dim iRow As Integer, iRowT As Integer
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
If Cells(iRow, 1).Value = "ja" Then
sAddress = Cells(iRow, 2).Value
ccAdr = Cells(iRow, 4).Value
sBCC = Cells(iRow, 3).Value
sSubject = Cells(iRow, 13).Value
sTxt = Cells(iRow, 6).Value
Call Mail(sAddress, sBCC, ccAdr, sSubject, sTxt)
End If
iRow = iRow + 1
Loop
End Sub
Uwe
P.S: @Gerwas......... vielen Dank für deinen letzten Tip!!!
Anzeige