Hallöchen,

ich komme einfach bei meinem kleinen Projekt nicht so richtig weiter.

Ich habe eine Tabelle bestehend aus 5 Spalten. In der ersten Spalte sind Zellberieche entsprechend den Abteilungen in unserer Firma farblich markiert.

Nun wird mittels Userform die Befüllung der restlichen Spalten vorgneommen. Man füllt zunächst entsprechende Textfelder aus und trifft mittels OptionsButton die Entscheidung, zu welcher Abteilung --> Farbbereich der Eintrag gehört. Dieser soll dann in dem gewählten Bereich in die erste freie Zeile geschrieben werden und anschließend soll eine neue leere Zeile eingfeügt werden.

Ich weiß, wie ich die leeren Zeilen finde und ich weiß,  wie ich den Farbindex suchen kann. Leider bekomme ich beide Codes nicht so richtig zusammen gebastelt.

Ich hab schon diverse Foren durchforstet und vieles hin und her probiert, aber der richtige Stein der Weisen war noch nicht dabei.

Vielleicht kann mir einer von euch weiterhelfen?

Mein bisher erfolgreichstes Codefragment ist dieses hier:

  Dim liZeile As Integer
  Dim i, j, x As Integer

If OptionButton3 = True Then
  
        For liZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
            If Range("A" & liZeile).Interior.ColorIndex = 42 Then
               i = liZeile
            End If
   
        Next
        
                Range("A" & i).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
                Range("B" & i).Value = UserForm1.TextBox1
                Range("C" & i).Value = UserForm1.TextBox2
                Range("D" & i).Value = UserForm1.TextBox3
                Range("E" & i).Value = UserForm1.TextBox4
                Range("A" & i).WrapText = True
  
  End If

...hier wird von unten her nach der Farbe gesucht und in die letzte Zeile werden die Einträge geschrieben. Nach leeren Zeile wird nicht gesucht.

Da aber die Tabelle am Beginn noch leer ist und jeder Farbreich (leider notwendig) aus zwei leeren Zeilen besteht und immer nur die letzte Zeile des Farbbreichs aufgegriffen wird, bleibt die erste Zeile stets leer.

Deshalb müsste das Makro so geändert werden, dass die Suche nach der Farbe von oben beginnt, entsprechende Zeile dann einer weiteren Schleife übergeben wird und in diesem Bereich nach der ersten leeren Zeile gesucht wird, da im Laufe der Zeit immer mehr Einträge hinzukommen.

Und eben bei der Kombination der beiden Suchabfragen stehe ich auf dem Schlau.

Ich wäre über einen Idee oder einen Denkanstoß sehr Dankbar.

vg vanderstorm