Mappe liegt bei!!
DANKE!! gurß leo
https://www.herber.de/bbs/user/60127.xls
Private Sub CommandButton1_Click()
Dim zeile As Long, Wks As Worksheet
zeile = TextBox1.Value
For Each Wks In Worksheets
With Wks
.Cells(zeile, 3).EntireRow.Insert Shift:=xlDown
.Rows(zeile - 1).Copy Destination:=.Cells(zeile, 1)
.Range("D" & zeile & ":E" & zeile).AutoFill _
Destination:=.Range("D" & zeile & ":E" & .Cells(Rows.Count, 5).End(xlUp).Row), Type:= _
xlFillDefault
.Cells(zeile, 3) = TextBox2.Value
End With
Next
End Sub
Gruß
Dierk