VBA Zeile füllen in Bereich

[kurtkurt57]

Ich möchte in Tabelle 3 die Zeile 3 mit von Spalte 4 bis 

Code:

Sub IntervallzeilefüllenGZ()
With Worksheets("Tabelle3")
For Spalte = 6 To 34
        Cells(Spalte, 3) = Zeile - 6
        Next
End With
End Sub

Spalte 34 mit Spaltennummern füllen. Wie kann ich jetzt hier den Bereich einfügen, damit er weiss, was gemeint ist?

[kurtkurt57]

er machts nicht!

[Case]

Hallo,  

die Syntax von "Cells" ist:

Code:

Cells(Zeile, Spalte) 

[snb]

Code:

Sub M_snb()
    [D3:AH3] = "=column()"
End Sub

[kurtkurt57]

Code:

Sub IntervallzeilefüllenGZ()
With Worksheets("Tabelle3")
For Spalte = 6 To 34
        Cells(6, Spalte) = Zeile - 6
        Next
End With
End Sub

Hab es eingebaut, den Hinweis, hat nichts gebracht, ist wieder abgestürzt ... ich bin wohl von Python verdorben!

[snb]

Schau mal #4

[Glausius]

Hallo Kurt,
wenn Du schon mit With arbeitest, solltest du den Punkt vor Cells nicht vergessen: .Cells(3, Spallte) = Zeile - 6.

[Gast 123]

Hallo

mit der Syntac :  .Cells(3, Spalte) = Zeile - 6   klappt es nicht. Beide Codes klappen mit der richtigen Syntac einwandfrei.

mfg Gast 123

Code:

Sub IntervallzeilefüllenGZ()
With Worksheets("Tabelle3")
For Spalte = 6 To 34
    .Cells(3, Spalte) = Spalte - 6
Next
End With
End Sub



Sub M_snb()
    Worksheets("Tabelle3").[F3:AH3] = "=column()-6"
End Sub