Thema Datum  Von Nutzer Rating
Antwort
Rot Zwei Spalten (mitten in der Tabelle)Kopieren, neue Spalten hinzufügen und Inhalt löschen
07.10.2022 15:55:27 serek92
NotSolved
07.10.2022 17:09:42 Gast41416
NotSolved
08.10.2022 09:15:31 Gast93186
NotSolved

Ansicht des Beitrags:
Von:
serek92
Datum:
07.10.2022 15:55:27
Views:
262
Rating: Antwort:
  Ja
Thema:
Zwei Spalten (mitten in der Tabelle)Kopieren, neue Spalten hinzufügen und Inhalt löschen

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zwei Spalten (mitten in der Tabelle)Kopieren, neue Spalten hinzufügen und Inhalt löschen
07.10.2022 15:55:27 serek92
NotSolved
07.10.2022 17:09:42 Gast41416
NotSolved
08.10.2022 09:15:31 Gast93186
NotSolved