ich habe eine Exceldatei mit mehreren Arbeitsblättern (alle identisch aufgebaut) und möchte jeweils eine Zeile davon in ein neues Arbeitsblatt kopiere. Ich habe zwar jede Menge VBA Codes dafür gefunden aber alle haben das gleiche Problem, es wird der gesamte Inhalt der Arbeitsblätter kopiert. Leider fehlen mir die Kenntnisse um den Code richtig anzupassen.
Kann mir jemand verraten, was ich editieren muss, damit von jedem Arbeitsblatt nur die Zeile A3 bis M3 kopiert wird?
Ich benutze momentan folgenden Code:
Sub neut()
For i = 1 To Sheets.Count + 1
If i > Sheets.Count Then
Set NewSheet = Worksheets.Add
NewSheet.Name = "Auswertung"
End If
If Sheets(i).Name = "Auswertung" Then
MsgBox "Tabellenblatt Auswertung ist bereits vorhanden!"
Exit For
End If
Next i
Set ws1 = Worksheets("Auswertung")
anz1 = ws1.Cells(65356, 1).End(xlUp).Row
ws1.Range("a3:m" & anz1).ClearContents
For i = 1 To Sheets.Count
If Sheets(i).Name "Auswertung" Then
anz1 = ws1.Cells(65356, 1).End(xlUp).Row
Set ws2 = Worksheets(Sheets(i).Name)
anz2 = ws2.Cells(65356, 1).End(xlUp).Row
ws2.Range("a3:m" & anz2).Copy Destination:=ws1.Range("a" & anz1 + 1)
End If
Next i
End Sub
Vielen Dank für Eure Hilfe