Ich kann meine Excel Dateien leider nicht in einer zulässigen Form speichern (endet - egal wie eingegeben - immer auf xlsx), also versuche ich so gut es geht zu erklären, was mein Problem ist.
Ich führe im Moment für 10 Techniker eine Auswertung, jeweils in einer eigenen Datei mit den Sheets "Auswertung" (Zusammenfassung mit Bezug auf die anderen Sheets) und Januar bis Dezember.
Nun würde ich gerne eine Auswertung als "Quelle" führen mit den Sheets Januar bis Dezember und einer Variablen in der ersten Spalte (Kürzel für den jeweiligen Techniker). Daraus würde ich gern über ein Makro die Daten des jeweiligen Technikers in das zugehörige andere Dokument kopieren.
Mein Code sieht im Moment so aus:
Option Explicit
Sub BedingteKopieZeilen()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Quelle SheetX
ZeileMax = .UsedRange.Rows.Count
n = 3
For Zeile = 3 To ZeileMax
If .Cells(Zeile, 1).Value = "kle" Then
.Rows(Zeile).Copy Destination.=Datei Kleeberger SheetX.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub
Was und wie muss ich hier noch definieren, damit das funktionieren kann?
Vielen Dank für eure Hilfe!
LG Rebecca