Vielen vielen Dank für die schnelle Antwort! Das funktioniert auch super (er zeigt zwar den Pfad und nicht den Namen der Datei an, aber das geht auch, da im Pfad der Name enthalten ist).
Ein Problem habe ich noch. Es sind insgesamt 32 Zeilen die ich aus jeder Datei entnehme. Der Pfad wird jetzt jedoch immer nur in die erste Zeile rechts daneben eingefügt. Mein Code schaut momentan so aus (ich musste den Befehl für nicht zusammenhängende Zeilen irgendwie immer neu einfügen, da sonst ein Fehler gemeldet wurde)
wksInput.Activate
wksInput.Range("=L7:AQ7").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=A2").Select
If Selection.Value <> "" Then
Worksheets(i).Range("A2").End(xlDown).Select
Selection.Offset(1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
wksInput.Activate
wksInput.Range("=L11:AQ14").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=B2").Select
If Selection.Value <> "" Then
Worksheets(i).Range("B2").End(xlDown).Select
Selection.Offset(1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
wksInput.Activate
wksInput.Range("=L19:AQ20").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=F2").Select
If Selection.Value <> "" Then
Worksheets(i).Range("F2").End(xlDown).Select
Selection.Offset(1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
wksInput.Activate
wksInput.Range("=L24:AQ25").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=H2").Select
If Selection.Value <> "" Then
Worksheets(i).Range("H2").End(xlDown).Select
Selection.Offset(1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
wksInput.Activate
wksInput.Range("=L48:AQ49").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=J2").Select
If Selection.Value <> "" Then
Worksheets(i).Range("J2").End(xlDown).Select
Selection.Offset(1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
wksInput.Activate
wksInput.Range("=L108:AQ113").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=L2").Select
If Selection.Value <> "" Then
Worksheets(i).Range("L2").End(xlDown).Select
Selection.Offset(1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
wksInput.Activate
wksInput.Range("=L115:AQ123").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=R2").Select
If Selection.Value <> "" Then
Worksheets(i).Range("R2").End(xlDown).Select
Selection.Offset(1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
wksInput.Activate
wksInput.Range("=L170:AQ178").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=AA2").Select
If Selection.Value <> "" Then
Worksheets(i).Range("AA2").End(xlDown).Select
Selection.Offset(1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
wksInput.Activate
wksInput.Range("=L181:AQ188").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=AJ2").Select
If Selection.Value <> "" Then
Worksheets(i).Range("AJ2").End(xlDown).Select
Selection.Offset(1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
wksInput.Activate
wksInput.Range("=L189:AQ189").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=AR2").Select
If Selection.Value <> "" Then
Worksheets(i).Range("AR2").End(xlDown).Select
Selection.Offset(1).Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Selection.Cells(1).Offset(0, 1).Value = wkbInput.FullName & " " & wksInput.Name
i = i + 1
Loop
|