Zeilen Kopieren als "index" und Umwandeln in Zahlen

Ich habe eine Excel Datei mit mehreren Tabellenblättern als Dienstplan erstellt. Für jeden Mitarbeiter (10 an der Zahl) gibt es in jedem Monat 3 Zeilen für jeden Tag. Die erste Zeile (C18 bis AG18) welche nicht formatiert ist und frei beschreibbar (Arztbesuch, Termine etc.), in der zweiten ist eine Schichtplanung mittels Index hinterlegt, welche fortlaufend einem festen Plan folgt und diese ist „fix“ (geschützte Zellen), die 3. Zeile bildet den „wahren“ Schichtplan ab, so wie er wirklich abläuft, inkl. Urlaub, Krank, Schichttausch, Frei usw.

Jetzt mein Wunsch:
Nun möchte ich einmal jährlich am Anfang des Jahres den Plan mit der mittleren Zeile (weil fortlaufend über den Jahreswechsel) synchronisieren, also übernimm die Werte aus der Index und schreibe sie in die 3. Zeile und! Wandel sie in normale Zahlen um.

Das Makro, welches ich aufgezeichnet habe wird utopisch lang und das für noch nicht mal einen Monat.

Sub Kopieren_mehrere_Zeilen()

'

' Kopieren_mehrere_Zeilen Makro

'



'

    Range("C18:AG18").Select

    Selection.Copy

    Range("C19").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Range("C21:AG21").Select

    Application.CutCopyMode = False

    Selection.Copy

    Range("C22").Select

    ActiveSheet.Paste

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Application.CutCopyMode = False

    Range("C24:AG24").Select

    Selection.Copy

    Range("C25").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Application.CutCopyMode = False

End Sub

Ich hoffe, ich habe mich halbwegs verständlich ausgedrückt und hoffe auf eure Hilfe.
Vielen Dank, Jörg

Hallo Gerd,

Vielen Dank für den Code.
Für diesen einen Monat läuft dieser korrekt durch, leider wird mit

PasteSpecial Paste:=xlPasteValues

nicht die Umwandlung in eine Zahl erreicht, was für die bedingte Formatierung aber relevant ist.
Und mein 2. Problem ist, wie springe ich in jeweils den nächsten Monat um die Schleife fortzuführen? Ich weiß, in der verlinkten Datei ist nur ein Monat drin. Ich würde nochmals die Datei hochladen mit 3 Monaten.

Ich habe diesen Code noch gefunden, welcher auch wirklich umwandelt und die bedingte Formatierung danach auch dargestellt wird.

Sub FormelnAlsZahlenKopieren()



  Dim Quelle As Range, Ziel As Range

  Dim Zelle As Range



  'Definieren des Zellbereichs, der kopiert werden soll

  Set Quelle = Range("C21:AG21") 'Selection ' Oder geben Sie einen festen Bereich an, z.B. Range("A1:A10")



  'Definieren der Zielzelle

  Set Ziel = Range("C22") 'Application.InputBox("Zielzelle angeben (z.B. C19)", Type:=8) ' Erfordert eine Eingabe der Zielzelle



  'Überprüfen, ob eine Zielzelle ausgewählt wurde

  If Ziel Is Nothing Then

    Exit Sub

  End If



  'Schleife durch jede Zelle im Quellbereich

  For Each Zelle In Quelle

    'Kopieren des Wertes (als Zahl) in die Zielzelle

    Ziel.Cells(Zelle.Row - Quelle.Row + 1, Zelle.Column - Quelle.Column + 1).Value = Zelle.Value

  Next Zelle



End Sub

Wie am Anfang schon geschrieben, meinen herzlichsten Dank schon einmal.

Zeilen Kopieren als "index" und Umwandeln in Zahlen

Forumthread: Zeilen Kopieren als "index" und Umwandeln in Zahlen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Zeilen Kopieren als "index" und Umwandeln in Zahlen

Forumthread: Zeilen Kopieren als "index" und Umwandeln in Zahlen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread