selbstverständlich:
Dim liZeile As Long
Dim liZeileMax As Long
Dim blnInsert As Boolean
liZeileMax = Cells(Rows.Count, 1).End(xlUp).Row
For liZeile = 1 To liZeileMax
If Range("A" & liZeile).Interior.ColorIndex = 48 Then
If Range("B" & liZeile).Text = "" Then
Exit For
Else
blnInsert = True
End If
End If
Next
If liZeile > liZeileMax Then
Call MsgBox("nichts gefunden", vbExclamation)
Exit Sub
End If
If blnInsert Then Call Rows(liZeile).Insert(xlShiftDown)
Cells(liZeile, "B").Value = "TestB"
Cells(liZeile, "C").Value = "TestC"
Cells(liZeile, "D").Value = "TestD"
Cells(liZeile, "E").Value = "TestE"
End Sub
..ich noch nicht viel daran geändert, da ich Ihn zum Testen in ein Modul geschrieben hab und nicht in den orignal Code aus der Userform, da er ja auch nicht darauf zugreift.
In der zweiten IF-Schleife habe ich die Spalte auf B geändert.
|