Spaltenbeschriftung mit Zähler
02.03.2020 05:53:04
TH
ich komme nicht weiter hier. In Zelle B1 ("7") steht ein Wert, bis zu diesem Zähle ich. Ich möchte, dass ab Zeile B2 bis I2 ("7")
Typ 1 bis Typ 7 steht ("7" Wert aus B1)
Danke für die Hilfe
Mein Ansatz:
Sub test()
Dim rng As Range 'Objektvariable für die Zelle
Z = Range("B1").Value
For Each rng In Range(Cells(2, 2), Cells(2, Z + 2)) 'Zelle für Zelle im Bereich abarbeiten
rng.FormulaLocal = "Typ" & " " & i
For i = 1 To Z Step 1
Next i
Next
End Sub
Anzeige