Hallo,
ich hoffe ihr könnt mir weiterhelfen.
Ich möchte gerne mit einer Schleife prüfen ob meine Zellen gefüllt sind und wenn dem so ist, dann soll mein Htmlbody weiter gefüllt werden. Leider habe ich etwas falsch gemacht und bekomme trotzdem immer nur eine Zeile in meiner Email ausgegeben. Vermutlich habe ich mir das etwas zu leicht gedacht. Kann mir jemand sagen was ich in meiner Schliefe anpassen muss um alle beschriebenen Zellen hinzuzufügen ?
Das ganze sieht derzeit so aus:
Dim Anfang As Integer
Dim Ende As Integer
Dim i As Integer
Dim rngZelle As Range
Anfang = 1
Ende = 10
Set rngZelle = Sheets("Tabelle2").Range("A1")
For i = Anfang To Ende
If Cells(i, rngZelle.Column) "" Then
strhtml = Sheets("Tabelle2").Range("A1").Value & " Zeilenumbruch"
strhtml = Sheets("Tabelle2").Range("A2").Value & " Zeilenumbruch"
End If
Next i
Ich hoffe wirklich ihr habt eine Idee woran ich hänge.
Dort wo Zeilenumbruch steht habe ich sonst br stehen, aber das zwerschießt mir hier sonst meinen code weil hier ein Zeilenumbruch eingefügt wird.
FF