Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Spalten und zellen Schleife?
#11
Vielen Dank

Super Atilla


Daumen hoch
Antworten Top
#12
(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
Antworten Top
#13
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.
Gruß Atilla
Antworten Top
#14
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.
Antworten Top
#15
Hallo Kaptan,

mit Verbundenen Zellen wird das nicht funktionieren.
Aber ohne Beispieldatei kann ich leider nicht helfen. Deine Angaben sind zu dürftig.
Gruß Atilla
Antworten Top
#16
(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 klapptSmile

Gruß
kaptan


Angehängte Dateien
.xlsm   schichtwechsel.xlsm (Größe: 19,43 KB / Downloads: 2)
Antworten Top
#17
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
Gruß Atilla
Antworten Top
#18
vielen Dank Atilla,

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





Gruß

kaptan
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste