|
Hallo,
wenn es darum geht, "nur" Werte in Spalten nacheinander zu schreiben, kann dies mit Cells umgesetzt werden.
Der nachstehene Befehl beschreibt z.B. zwei Zellen A1 und B4:
Sub Test()
Dim wsh As Worksheet
Set wsh = ActiveWorkbook.Worksheets(1)
With wsh
.Cells(1, 1).Formula = "Test" ' A1
.Cells(4, 2).Formula = "Test 6" ' B4
End With
End Sub
Der Befehl Cells erwartet zwei Parameter:
Cells(Zeile, Spalte)
In einer For-Next-Schleife kann man Werte nebeneinander wegschreiben.
Sub Test2()
Dim wsh As Worksheet
Dim Spalte As Integer
Set wsh = ActiveWorkbook.Worksheets(1)
With wsh
For Spalte = 1 To 10
.Cells(2, Spalte).Formula = "Test " & CStr(Spalte)
Next
End With
End Sub
Dieser Beispiel-Code beschreibt die Zellen B2 bis J2 mit Inhalten.
Die Inhalte können hier auch von anderen Zellen kommen.
LG, BigBen
|