Hallo Leute,
ich stehe absolut auf dem Schlauch. Ich habe eine Tabelle der folgenden Struktur:
In der Zelle A1 steht "Product", in A2-A23 stehen Daten, in Zelle A24 wieder "Product" usw.
Neben der Zelle A1, A24 (also neben der Product Zelle) steht der Produktname.
Ich möchte nun einen Code bauen, der in Spalte G neben die einzelnen Daten das jeweilige Produkt schreibt.
Bisher habe ich diesen Code geschrieben:
Dim Product As Variant
Dim a As Double
Dim b As Double
a = 1
b = 7
LR2 = Range("A65536").End(xlUp).Row
For i = 1 To LR2
If Cells(i, 1) = "PROGRAM:" Then
Program = Cells(i, 2)
Cells(i + 1, b) = Program
a = a + 1
Else
a = a + 1
End If
Next i
End Sub
Leider schreibt er nur in die erste Zeile den Produktnamen in die Spalte G und anschliessend nicht mehr.
Nach welcher Logik ist es möglich Für die Zeilen 1 bis x den jeweiligen Produktnamen in Spalte G zu schreiben und sobald ein neuer Produktname auftaucht diesen in die nächsten Zeilen zu schreiben?
Sorry, dass das hier so umständlich beschrieben ist, aber ich habe leider keine Ahnung wie ich einen Screenshot o.ä. hochladen kann.
ich stehe absolut auf dem Schlauch. Ich habe eine Tabelle der folgenden Struktur:
In der Zelle A1 steht "Product", in A2-A23 stehen Daten, in Zelle A24 wieder "Product" usw.
Neben der Zelle A1, A24 (also neben der Product Zelle) steht der Produktname.
Ich möchte nun einen Code bauen, der in Spalte G neben die einzelnen Daten das jeweilige Produkt schreibt.
Bisher habe ich diesen Code geschrieben:
Dim Product As Variant
Dim a As Double
Dim b As Double
a = 1
b = 7
LR2 = Range("A65536").End(xlUp).Row
For i = 1 To LR2
If Cells(i, 1) = "PROGRAM:" Then
Program = Cells(i, 2)
Cells(i + 1, b) = Program
a = a + 1
Else
a = a + 1
End If
Next i
End Sub
Leider schreibt er nur in die erste Zeile den Produktnamen in die Spalte G und anschliessend nicht mehr.
Nach welcher Logik ist es möglich Für die Zeilen 1 bis x den jeweiligen Produktnamen in Spalte G zu schreiben und sobald ein neuer Produktname auftaucht diesen in die nächsten Zeilen zu schreiben?
Sorry, dass das hier so umständlich beschrieben ist, aber ich habe leider keine Ahnung wie ich einen Screenshot o.ä. hochladen kann.