Forum des VBA-Tutorials

Excel_Worksheet füllen (VBA)

Martin Asal, Donnerstag, 18. Mai 2017, 14:57 (vor 67 Tagen) @ Pacman

 
Sub Testen()
Dim x As Long
Dim i As Long
 
x = 30
For i = 1 To x
    ActiveSheet.Range("A" & i) = i
    ActiveSheet.Range("A" & i).Offset(0, 1) = "K1"
    ActiveSheet.Range("A" & i).Offset(0, 2) = "K2"
    ActiveSheet.Range("A" & i).Offset(0, 3) = "K3"
Next
 
End Sub

Natürlich geht das auch ohne Offset - du kannst ja auch Range("B" & i) schreiben. Und das Berechnen der Werte, die anstelle von "K1" usw da rein gehören, musst du natürlich auch noch lösen ;-)

Martin


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum