Vielen Dank
Super Atilla
Daumen hoch
(08.12.2014, 08:55)atilla schrieb: [ -> ]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
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.
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.
Hallo Kaptan,
mit Verbundenen Zellen wird das nicht funktionieren.
Aber ohne Beispieldatei kann ich leider nicht helfen. Deine Angaben sind zu dürftig.
(10.12.2014, 11:57)atilla schrieb: [ -> ]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
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
vielen Dank Atilla,
jetzt habe ich es endlich Geschafft dank dir......
Gruß
kaptan