Spalten und zellen Schleife?

[kaptan2002]

Vielen Dank

Super Atilla


Daumen hoch

[kaptan2002]

Hallo kaplan,

Der Bereich natürlich ab A2, so:

Code:

Sub verschieben3()
    Range("A2:A29").Cut Destination:=Range("D2:D29")
    Range("B2:D29").Cut Destination:=Range("A2:C29")
End Sub

und so ohne Bildschirmflackern:

Code:

Sub verschieben3()
   Application.ScreenUpdating = False
    Range("A2:A29").Cut Destination:=Range("D2:D29")
    Range("B2:D29").Cut Destination:=Range("A2:C29")
   Application.ScreenUpdating = True
End Sub

frage dazu

A23 und B23 haben nur Früh und Spätschicht sowie A26 und B26 haben nur Früh und Spätschicht keine Nachtschicht

Können die in diesem code nur im bereich Spät und Frühschicht wechseln keine Nachtschicht.

d.h. A23 mit B23 und A26 mit B26 wechseln.

wäre froh wenn ich hilfe bekommen würde.


gruß

kaptan

[atilla]

Hallo Kaptan,

stell bitte bei deinen Fragen nach Möglichkeit immer einen Tabellenausschnitt hier ein.

Ich würde in diesem Fall eine weitere Tabelle aufbauen, die nur Tag -und Spätschicht hat.
Dann kannst Du das gleiche Muster des von mir zuletzt eingestellten Codes verwenden.

[kaptan2002]

Hallo atilla,

ich habe das mit dem code habe ich schon dank dir hin bekommen aber ich bekomme den Laufzeitfehler"kann Teil einer verbundenen Zelle nicht ändern"

da die Zelle A23 Verbundene Zelle ist (sollte so sein) aber B23 ist Zeilenumbruch drin.Dann kommt der Fehler.

und zuletzt noch wie kann ich in den code einfügen das A9 immer Frühschicht hat der bleibt fest.

[atilla]

Hallo Kaptan,

mit Verbundenen Zellen wird das nicht funktionieren.
Aber ohne Beispieldatei kann ich leider nicht helfen. Deine Angaben sind zu dürftig.

[kaptan2002]

Hallo Kaptan,

mit Verbundenen Zellen wird das nicht funktionieren.
Aber ohne Beispieldatei kann ich leider nicht helfen. Deine Angaben sind zu dürftig.

okay ich habe jetzt die Datei zugefügt hoffe es klappt

Gruß
kaptan

[atilla]

Hallo Kaplan:

ich bin von Deiner Idee zwar nicht überzeugt, aber bitte.
Deine jetzigen Vorgaben mit den eingestellten Daten ist so umsetzbar:

Code:

Sub Schaltfläche1_Klicken()
   Application.ScreenUpdating = False
    Range("A2:A22").Cut Destination:=Range("D2:D29")
    Range("B2:D22").Cut Destination:=Range("A2:C29")
    
    Range("A24:A25").Cut Destination:=Range("D24:D25")
    Range("B24:D25").Cut Destination:=Range("A24:C25")
    
    Range("A27:A28").Cut Destination:=Range("D27:D28")
    Range("B27:D28").Cut Destination:=Range("A27:C28")
    
    Range("A23").Cut Destination:=Range("D23")
    Range("B23").Cut Destination:=Range("A23")
    Range("D23").Cut Destination:=Range("B23")
    
   Application.ScreenUpdating = True
End Sub

[kaptan2002]

vielen Dank Atilla,

jetzt habe ich es endlich Geschafft dank dir......





Gruß

kaptan