hänge mal wieder an einer Kleinigkeit !
Es wir in der Spalte "B" ein Wert geschrieben und in jeder Zeile nach unten.
zB.
With Worksheets("Tabelle3")
.Range("B" & lZeileD).Value = iAnzahl
End With
Nun möchte ich, daß eine Schleife auch über die Spalten geht, über B,C,D usw
Wie muß ich die Sache ändern ?
So ist sicher falsch.!
For xy=1 To5
.Rang(XY ? & lZeileD).Value=iAnzahl
Next xy
Gruß Klaus