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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen