VBA variabler Zellbezug
jojo
ich habe folgendes Problem.
Schritt 1: Ermittlung der nicht leeren Zellen + Faktor
Schritt 2: kopieren einer Formel gemäß der aus Schritt 1 ermittelten länge
Sub Kopieren_TEST()
Dim i As Integer
Dim leer As Integer
leer = 0
For i = 1 To 100
If Worksheets("Eingabeblatt").Cells(i, 3).Text = "" Then leer = leer + 1
If leer > 5 Then Exit For
Debug.Print i
Debug.Print leer
Next i
' bis zu diesem Schritt läuft das Makro wie ich es mir vorstelle, wie bekomme ich jetzt über _
'eine for-Schleife '(2 bis zeilenlänge), oder über Range den Wert aus Cells(2,1) in die _
entsprechenden 'Zelle (b2 bis b ' 'zeilenlänge kopiert?
Cells(2, 1).Copy
For zeilenlänge = 2 To i
Debug.Print zeilenlänge
Range(2, zeilenlänge).Paste
Next zeilenlänge
'Range("B2:Cells(2, 1).FormulaR1C1 = "=R[-1]C+i").Select
'ActiveSheet.Paste
End Sub
Da ich VBA-Anfänger bin, und diese Frage bestimmt Peanuts ist, wäre ich schon mit einem Link mit ähnlichem Sachverhalt sehr zufrieden.
DANKE