ich habe von Euch ein Makro bekommen, welches mir die Zellen von Blatt 1 (nur die grau hinterlegten) in Blatt 2 kopiert!
For Each Z In Workbooks(Dateiname).Worksheets _
("Personalstammdaten").UsedRange
If Z.Interior.ColorIndex = 15 Then
Z.Copy
Workbooks(Aktuell_Datei).Worksheets("Datenblatt").Activate
Workbooks(Aktuell_Datei).Sheets("Personalstammdaten").Select
Cells(Z.Row, Z.Column).Select
Selection.PasteSpecial Paste:=xlValues, _
Operation:=xlNone, kipBlanks:= _
False, Transpose:=False
End If
Next
In Blatt 1 könnte aber eine Tabelle sein, die variabel ist, d.h. es besteht die Gefahr, dass wenn die Tabelle zu gross ist, Daten auf Blatt 2 überschrieben werden. Deshalb habe ich im Blatt 2 folgendes Makro hinterlegt:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target <> "" And Target.Row > 19 Then
Selection.EntireRow.Insert
ElseIf Target = "" And Target.Row > 19 Then
Selection.EntireRow.Delete
End If
End Sub
Jetzt passiert folgendes, wenn ich die Daten kopiere, dann fügt er die Daten im Blatt 2 verändert ein!
Kann mir jemand sagen woran das liegt, bzw. hat jemand einen Verbesserungsvorschlag für mich!
Gruß Chris