ich komme einfach nicht weiter und mein Abgabetermin rückt immer näher - HILFE!
Ich möchte die Daten aus dem Tabellenblatt "Content" in Register übertragen.
Das Anlegen der Register_1 bis _n im Bezug auf die Werte in Spalte F funktioniert soweit schon.
Nun habe ich das Problem, dass mir die Daten nicht richtig in die Register eingetragen werden, wenn
ein Wert in Spalte F mehr als 1x vorhanden ist - z.B. da die Zahl 11 insg. 6x vorhanden ist, werden die Register_11, _12 usw. mit den Inhalt überschrieben + Programm-Abbruch. Ich möchte aber, dass alle Daten mit 11 in einen Regsiter geschrieben werden. Hat jemand von Euch eine Idee?
https://www.herber.de/bbs/user/61836.xls
Mein VBA-Code:
Sub C_Register_Fuellen()
' Uebertrag der Daten
Dim Bereich As Range
Dim Zelle As Range
Dim i As Integer
i = 0
Sheets("Register_1").Select
With Sheets("content")
Set Bereich = .Range(.Cells(1, 6), .Cells(.Rows.Count, 6).End(xlUp))
End With
For Each Zelle In Bereich
If Worksheets("Content").Cells(i + 1, 6).Value = Zelle.Value Then
i = i + 1
Worksheets("Register_" & i).Cells(21, 4) = Worksheets("Content").Cells(i, 5)
Worksheets("Register_" & i).Cells(24, 4) = Worksheets("Content").Cells(i, 2)
Worksheets("Register_" & i).Cells(30, 4) = Worksheets("Content").Cells(i, 4)
Worksheets("Register_" & i).Cells(27, 4) = Worksheets("Content").Cells(i, 3)
Worksheets("Register_" & i).Cells(11, 5) = Worksheets("Content").Cells(i, 6)
Worksheets("Register_" & i).Cells(15, 5) = Worksheets("Content").Cells(i, 1)
End If
Next Zelle
End Sub
Gruß, Stefan
P.S. DANKE an Monika!