code und File siehe unten
"Teil" ist eine Variable, die ich überprüfen möchte, ob es auch ein Blatt mit dem selben Namen hat. Wenn ja, soll er dann in jenens Blatt gehen, die Felder kopieren, zurückkommmen und auf selber Zeile wie "Teil" in Spalte U einfügen. Sonst soll er die Fehlermeldung ausgeben. Leider funkt. es einfach nicht, habe Teil auch schon in "" geschriben aber es hilt auch nichts
Zur Umbebung: Teil steht in dem aktiven Feld (J22 im File), Baugruppe steht in Feld J18(das Blatt hat den selben Namen)
Code
Sub Makro3()
Dim Zeile As String
Zeile = ActiveCell.Row
Dim Teil As String
Teil = ActiveCell
Dim Baugruppe As String
Range("J18").Select
Baugruppe = ActiveCell
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
If ws.Name = Teil Then
Sheets(Teil).Select
Range("U5:AC5").Select
Selection.Copy
Sheets(Baugruppe).Select
Range("U" & Zeile).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Exit Sub
End If
Next ws
MsgBox "Blatt mit dem Teil zuerst einfügen!!"
Range("C12").Select
End Sub
https://www.herber.de/bbs/user/31699.xls
Grues
de Bruno