kurz vor Feierabend hätte ich noch eine kleine Frage an Euch:
Wie stelle ich es an, dass wenn der Inhalt der Zelle (1, 6) doppelt oder mehrfach vorkommt, das Register mit der nächsten Zahl beschrieben wird.
Beispiel:
Zelle (1, 6) hat den Wert 11 und folgt 4x untereinander, danach folgt der Wert 12 usw.
Jetzt soll nicht 4-mal je ein Register mit den Inhalt von 11 beschrieben werden, sondern der nächste Register gleich mit 12 weitermachen.
Mein VBA-Code sieht bis hierhin wie folgt aus:
Sub C_Register_Fuellen()
' Uebertrag der Daten
Sheets("Register_1").Select
Dim Bereich As Range
Dim I As Integer
I = 0
With Tabelle4
Set Bereich = .Range(.Cells(1, 6), .Cells(.Rows.Count, 6).End(xlUp))
End With
Dim Zelle As Range
For Each Zelle In Bereich
If Zelle "" Then
I = I + 1
End If
'MsgBox ("Register_" & I)
If Worksheets("Content").Cells(I, 6) = Zelle Then
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)
Else
End If
Next Zelle
End Sub