Ich versende SMS über eine Exceltabelle. Die benoetigten Daten lade ich automatisch in die Exceltabelle. Die Anzahl ist immer unterschiedlich. Ich kann aber hoechstens 20 miteinander versenden. Wie muss ich den folgenden Code, den ich hier gefunden habe aendern, damit immer zuerst geprueft wird, wie viele Daten vorhanden sind und die Schlaufe For i = 1 to ? angepasst wird.
Im Voraus vielen Dank für eure Hilfe.
Thomy
Private Sub CommandButton1_Click()
Dim OutApp As Object, Mail As Object
Dim i As Integer
Dim Nachricht
For i = 1 To 20
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.SentOnBehalfOfName = Cells(i, 6)
.To = Cells(i, 5) 'Adresse
.Subject = Cells(i, 8)
.Body = Cells(i, 9)
.Display
SendKeys "%s", True
End With
Set OutApp = Nothing 'CreateObject("Outlook.Application")
Set Nachricht = Nothing 'OutApp.CreateItem(0)
Application.Wait (Now + TimeValue("0:00:05"))
Next i
End Sub