Hallo zusammen,
Ich habe das Problem, dass ich die fünfte und sechste Spalten links bevor "Ende Mitarbeiter" in Zeile 2 auftauchte per Knopfdruck kopieren möchte und dan direkt rechts daneben als neue Spalten einfügen möchte nur mit gelöschtem Inhalt. Die Spalten sind mitten in der Tabelle, genauso wie die Spalte in der in Zeile zwei "Ende Mitarbeiter" steht. Ich bin leider noch ein noobie mit VBA. Ich kann euch ja mal zeigen was ich bis jetzt habe oder besser gesagt mir gedacht habe wie es funktionieren könnte. Leider funktioniert das nicht.,
Sub MitarbeiterspaltenKopieren(ByVal Target As Range)
Dim lCol As Integer
Dim LastCol As Integer
LastCol = Cells(2, Target.Column).Value = "Ende Mitarbeiterspalten"
lCol = LastCol
Columns(lCol - 6).Copy Columns(lCol - 4).Insert
Columns(lCol - 5).Copy Columns(lCol - 4).Insert
Range(...).ClearContents
End Sub
Bei Range (...).ClearContents weis ich lieder nicht was ich da reinschreiben soll, damit er mir nur die neu hinzugefügten spalten leert.
Es sollen auch erst Spalte 6 links von "Ende Mitarbeiter" kopiert werden und dan Spalte 5 links von "Ende Mitarbeiter", da in einer Spalte ein Dropdown zur Auswahl gegeben ist. Die vier Spalten die links von "Ende Mitarbeiter" stehen, sollen genauso bleiben wie sie sind.
Ich hoffe mir kann jemand helfen
Liebe Grüße
|